about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-05 11:25:16 -0600
committerCase Duckworth2022-01-05 11:25:16 -0600
commit9ba030fff8b6f017a795a48d7b6b8973685db4aa (patch)
tree7d7f0061717717421be33d1c4916ed828ea2d1f4
parentAdd dictionary lookup to +lookup-map (diff)
downloademacs-9ba030fff8b6f017a795a48d7b6b8973685db4aa.tar.gz
emacs-9ba030fff8b6f017a795a48d7b6b8973685db4aa.zip
Fix +Emacs lisp auto-insert
-rw-r--r--init.el21
1 files changed, 11 insertions, 10 deletions
diff --git a/init.el b/init.el index 5586f64..4b899cc 100644 --- a/init.el +++ b/init.el
@@ -107,16 +107,17 @@
107(setup auto-insert 107(setup auto-insert
108 (setf (alist-get '("lisp/.*\\.el\\'" . "+Emacs lisp") 108 (setf (alist-get '("lisp/.*\\.el\\'" . "+Emacs lisp")
109 auto-insert-alist nil nil #'equal) 109 auto-insert-alist nil nil #'equal)
110 '("" ";;; " (file-name-nondirectory (buffer-file-name)) 110 `(nil ";;; " (file-name-nondirectory (buffer-file-name))
111 (make-string (max 2 (- fill-column (current-column) 27)) 32) 111 (make-string (max 2 (- fill-column (current-column) 27)) 32)
112 "-*- lexical-binding: t; -*-" 112 "-*- lexical-binding: t; -*-" '(setq lexical-binding t)
113 '(setq lexical-binding t) 113 ,(concat "\n\n;;; Commentary:"
114 "\n\n;;Copyright (C) " (format-time-string "%Y") 114 "\n\n;; ") _
115 " " (progn user-full-name) 115 ,(concat "\n\n;;; Code:"
116 "\n\n;;; Code:" 116 "\n\n"
117 "\n\n" _ 117 "\n\n(provide '")
118 "\n\n(provide '" (file-name-base (buffer-file-name)) ")" 118 (file-name-base (buffer-file-name))
119 "\n;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n")) 119 ,(concat ")" "\n;;; ")
120 (file-name-nondirectory (buffer-file-name)) " ends here\n"))
120 (auto-insert-mode +1)) 121 (auto-insert-mode +1))
121 122
122(setup autorevert 123(setup autorevert