diff options
-rw-r--r-- | init.el | 21 |
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 |