Opened by ptk at 2004-03-24 14:34
User since
2003-08-04
5246 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
5246 Artikel
ModeratorIn
[quote=ptk,23.03.2004, 19:23]Das nennt sich beim Emacs "auto-insert" und kann dort per Fileextension eingestellt werden. Sehr nuetzlich, habe ich auch fuer .pod, /tk.*\.pl/ (um gleich minimale Anweisungen fuer ein Perl/Tk-Skript einzufuegen), Makefile.PL etc.[/quote]
Das ist ein super Tip; ich hab's gleich ausprobiert, und habe mir trotz meiner nicht vorhandenen LISP-Kenntnisse folgenden Code in der .emacs zusammengebastelt:
Ich habe zuerst versucht, es ueber headerfiles (1,2 und einige andere) zu machen (das hat mir die google-suche zuerst herausgeworfen), aber das brachte ich nicht zum laufen, deshalb dieser primitive Weg. So, jetzt versuche ich noch, beim package das XYZ durch den Filename zu ersetzen (deshalb wollte ich es zuerst mit header-templates machen, weil ich da %b schon in einer Variablen habe\n\n
<!--EDIT|Strat|1080130531-->
Das ist ein super Tip; ich hab's gleich ausprobiert, und habe mir trotz meiner nicht vorhandenen LISP-Kenntnisse folgenden Code in der .emacs zusammengebastelt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
;; ------------------------------------------;; auto-insert for .pl and .pm
(load-library "autoinsert")
(define-auto-insert "\\.pl$" 'perl-auto-insert)
(defun perl-auto-insert ()
(insert "#! /usr/bin/perl\nuse warnings\nuse strict;\n\n"))
(define-auto-insert "\\.pm$" 'pm-auto-insert)
(defun pm-auto-insert ()
(insert "package XYZ;\nuse warnings;\nuse strict\n\n\n#---------\n1;\n"))
(add-hook 'find-file-hooks 'auto-insert)
Ich habe zuerst versucht, es ueber headerfiles (1,2 und einige andere) zu machen (das hat mir die google-suche zuerst herausgeworfen), aber das brachte ich nicht zum laufen, deshalb dieser primitive Weg. So, jetzt versuche ich noch, beim package das XYZ durch den Filename zu ersetzen (deshalb wollte ich es zuerst mit header-templates machen, weil ich da %b schon in einer Variablen habe\n\n
<!--EDIT|Strat|1080130531-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
http://www.fabiani.net/