Leser: 2
|< 1 2 3 4 ... 15 >| | 143 Einträge, 15 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
;;;------------------------------------------------------------
;;; autoinsert from ~/emacs/insert
(if (fboundp 'auto-insert)
(progn
(setq auto-insert-query nil)
(add-hook 'find-file-hooks 'auto-insert))
(load "autoinsert" t nil))
(setq auto-insert-alist nil)
(setq auto-insert-directory (expand-file-name "~/emacs/insert/"))
(my-append 'auto-insert-alist `("\\.\\([pP][lL]x?\\|cgi\\)$" .
,(if is-onlineoffice
"perl-oo.pl"
"perl.pl")))
(my-append 'auto-insert-alist `("\\.pm$" .
,(if is-onlineoffice
"perl-oo-module.pm"
"perl-module.pm")))
(my-append 'auto-insert-alist '(".*Tk.*\\.pm$" . "perl-widget.pm") t)
(my-append 'auto-insert-alist '("\\(^\\|[^g]\\)tk\\.pl$" . "perl-tk.pl") t)
(my-append 'auto-insert-alist '("gtk\\.pl$" . "perl-gtk.pl") t)
(my-append 'auto-insert-alist '("\\.t$" . "perl-test.t") t)
(my-append 'auto-insert-alist '("Makefile\\.PL$" . "Makefile.PL") t)
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)
Quote
[quote=lichtkind,25.03.2004, 14:12]
@strat das wird nicht ganz einfach weil der in c geschriebene perl lexer dafür geändert werden muss, aber für solche sachen such ich immer noch dringend einen perl liebenden c hacker. die idee eines voll scriptbaren universallexers wäre neil nicht abgeneigt er wäre zwar langsamer, aber den würde er auch niemals selbst machen, ausserdem ist neil klarer python fan.
|< 1 2 3 4 ... 15 >| | 143 Einträge, 15 Seiten |