diff options
| author | Case Duckworth | 2022-01-05 11:25:16 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-05 11:25:16 -0600 |
| commit | 9ba030fff8b6f017a795a48d7b6b8973685db4aa (patch) | |
| tree | 7d7f0061717717421be33d1c4916ed828ea2d1f4 | |
| parent | Add dictionary lookup to +lookup-map (diff) | |
| download | emacs-9ba030fff8b6f017a795a48d7b6b8973685db4aa.tar.gz emacs-9ba030fff8b6f017a795a48d7b6b8973685db4aa.zip | |
Fix +Emacs lisp auto-insert
| -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 |