# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1717709491 14400
# Node ID 14878efc5a61a6b35b826ec5d52ee2dc17e75042
# Parent  86ce16b512b7c4da94e7bba97c82ddf36b2d6072
skt

diff -r 86ce16b512b7 -r 14878efc5a61 .emacs.d/ellis.el
--- a/.emacs.d/ellis.el	Wed Jun 05 17:00:54 2024 -0400
+++ b/.emacs.d/ellis.el	Thu Jun 06 17:31:31 2024 -0400
@@ -649,6 +649,14 @@
     > ":depends-on (:std :log)" \n
     > ":components ((:file \"pkg\")" _ "))")
 
+  (skt-define-skeleton pkg-head (:abbrev "pkg-head" :mode lisp-mode)
+    "ignored"
+    ";;; " (skt-buffer-path 'file-name-nondirectory) " --- "
+    '(setq v1 (skeleton-read "name: ")) v1 " Package Definitions" \n
+    > "(defpkg :" v1 \n
+    > ":use (:std :log))" \n \n
+    > "(in-package :" v1 ")" \n >)
+    
   (skt-define-skeleton crate-head (:abbrev "crate-head" :mode conf-toml-mode)
     "ignored"
     "### " (skt-buffer-path 'file-name-nondirectory) " --- " 
@@ -689,6 +697,7 @@
   (skt-register-auto-insert "skelfile" #'skt-template-skel-head)
   (skt-register-auto-insert "readme.org" #'skt-template-org-readme)
   (skt-register-auto-insert "Cargo.toml" #'skt-template-conf-toml-crate-head)
+  (skt-register-auto-insert "pkg.lisp" #'skt-template-lisp-pkg-head)
   (skt-register-auto-insert ".*[.]asd" #'skt-template-lisp-system-head)
   (skt-register-auto-insert ".*[.]lisp" #'skt-template-lisp-head)
   (skt-register-auto-insert ".*[.].rs" #'skt-template-rust-head)