Begin on acdw-auto-insert.el

XXX It doesn't work right now

2 files changed, 89 insertions, 0 deletions

@@ -13,7 +13,9 @@
 ;; Everyone is permitted to do whatever with this software, without
 ;; limitation.  This software comes without any warranty whatsoever,
 ;; but with two pieces of advice:
+
 ;; - Be kind to yourself.
+
 ;; - Make good choices.
 
 ;;; Commentary:
@@ -94,6 +96,38 @@
                (expand-file-name-exists-p "pkg/" user-emacs-directory)))
     (normal-top-level-add-subdirs-to-load-path)))
 
+(setup autoinsert
+  (require 'acdw-autoinsert)
+  (acdw/define-auto-insert '(:replace t)
+    ;; This is my custom auto-insert for elisp files.
+    '("\\.el\\'" . "Emacs Lisp header (acdw)")
+    '("Short description: " ";;; "
+      (file-name-nondirectory (buffer-file-name))
+      " --- " str
+      (make-string (max 2 ( - 80 (current-column) 27)) 32)
+      "-*- lexical-binding: t; -*-"
+      '(setq lexical-binding t)
+      "\n\n;; Copyright (C) " (format-time-string "%Y")
+      "  " (getenv "ORGANIZATION") | (progn user-full-name)
+      "\n\n;; Author: " (user-full-name)
+      '(if (search-backward "&" (line-beginning-position) t)
+           (replace-match (capitalize (user-login-name)) t t))
+      '(end-of-line 1)
+      " <" (progn user-mail-address) ">"
+      & -2
+      "\n\n;;; License:"
+      "\n\n;; Everyone is permitted to do whatever with this software, without"
+      "\n;; limitation.  This software comes without any warranty whatsoever,"
+      "\n;; but with two pieces of advice:"
+      "\n\n;; - Be kind to yourself."
+      "\n\n;; - Make good choices."
+      "\n\n;;; Commentary:"
+      "\n\n;; " _
+      "\n\n;;; Code:"
+      "\n\n\n\n(provide '" (file-name-base (buffer-file-name)) ")"
+      "\n;;; " (file-name-nondirectory (buffer-file-name)) " ends here\n"))
+  (auto-insert-mode +1))
+
 (setup autorevert
   (:option global-auto-revert-non-file-buffers t
            auto-revert-verbose nil)
@@ -0,0 +1,55 @@
+;;; acdw-autoinsert.el --- autoinsert.el            -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2021  Case Duckworth
+
+;; Author: Case Duckworth <acdw@acdw.ne
+
+;;; License:
+
+;; Everyone is permitted to do whatever with this software, without
+;; limitation.  This software comes without any warranty whatsoever,
+;; but with two pieces of advice:
+
+;; - Be kind to yourself.
+
+;; - Make good choices.
+
+;;; Commentary:
+
+;; These are my bespoke changes to the `autoinsert' library.
+
+;;; Code:
+
+(require 'autoinsert)
+(require 'cl-lib)
+
+(defun acdw/define-auto-insert (options condition action)
+  "Associate CONDITION with ACTION in `auto-insert-alist'.
+This function differs from `define-auto-insert' in that it won't
+allow more than one duplicate entry in `auto-insert-alist'.
+
+OPTIONS is a plist with three optional arguments:
+
+- `:testfn' takes a function to test the given CONDITION against
+  the already-existing ones in `auto-insert-alist'.  It defaults
+  to testing the cdr of CONDITION against the cdar of each entry
+  in `auto-insert-alist'.
+
+- `:replace', if non-nil, will replace the matching entry with
+  the given one.  Default: nil.
+
+- `:after' is the third, optional argument to `define-auto-insert'."
+  (declare (indent 1))
+  (let ((testfn (or (plist-get options :testfn)
+                    (lambda (a b)
+                      (string= (cdr a) (cdar b)))))
+        (replace (or (plist-get options :replace) nil))
+        (after (or (plist-get options :after) nil)))
+    (when replace
+      (setq auto-insert-alist
+            (assoc-delete-all condition auto-insert-alist testfn)))
+    (unless (assoc (list condition) auto-insert-alist testfn) 
+      (define-auto-insert condition action after))))
+
+(provide 'acdw-autoinsert)
+;;; acdw-autoinsert.el ends here