1.1--- a/emacs.sk Mon Sep 23 19:20:00 2024 -0400
1.2+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
1.3@@ -1,27 +0,0 @@
1.4-;;; core/lisp skel system
1.5-:name "core/emacs"
1.6-:path "emacs"
1.7-;; :components ((:org "babel"))
1.8-:bind ((dotemacs (merge-pathnames ".emacs.d/" (user-homedir-pathname)))
1.9- (config () (directory "emacs/*.el"))
1.10- (lib () (directory "emacs/lib/*.el")))
1.11-:rules
1.12-((install ()
1.13- (mapcar
1.14- (lambda (el)
1.15- (std:with-open-files
1.16- ((in el :direction :input)
1.17- (out (merge-pathnames (file-namestring el) dotemacs) :direction :output))
1.18- (std:copy-stream in out :finish-output t)))
1.19- config)
1.20- (mapcar
1.21- (lambda (el)
1.22- (std:with-open-files
1.23- ((in el :direction :input)
1.24- (out (merge-pathnames (file-namestring el)
1.25- (ensure-directories-exist
1.26- (merge-pathnames "lib/" dotemacs)))
1.27- :direction :output))
1.28- (std:copy-stream in out :finish-output t)))
1.29- lib)))
1.30-