1 files changed, 11 insertions, 10 deletions

@@ -107,16 +107,17 @@
 (setup auto-insert
   (setf (alist-get '("lisp/.*\\.el\\'" . "+Emacs lisp")
                    auto-insert-alist nil nil #'equal)
-        '("" ";;; " (file-name-nondirectory (buffer-file-name))
-          (make-string (max 2 (- fill-column (current-column) 27)) 32)
-          "-*- lexical-binding: t; -*-"
-          '(setq lexical-binding t)
-          "\n\n;;Copyright (C) " (format-time-string "%Y")
-          " " (progn user-full-name)
-          "\n\n;;; Code:"
-          "\n\n" _
-          "\n\n(provide '" (file-name-base (buffer-file-name)) ")"
-          "\n;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n"))
+        `(nil ";;; " (file-name-nondirectory (buffer-file-name))
+              (make-string (max 2 (- fill-column (current-column) 27)) 32)
+              "-*- lexical-binding: t; -*-" '(setq lexical-binding t)
+              ,(concat "\n\n;;; Commentary:"
+                       "\n\n;; ") _
+              ,(concat "\n\n;;; Code:"
+                       "\n\n"
+                       "\n\n(provide '")
+              (file-name-base (buffer-file-name))
+              ,(concat ")" "\n;;; ")
+              (file-name-nondirectory (buffer-file-name)) " ends here\n"))
   (auto-insert-mode +1))
 
 (setup autorevert