changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / emacs/emacs.sk

changeset 670: 6856c021d084
child: ca09f470abb3
author: Richard Westhaver <ellis@rwest.io>
date: Mon, 23 Sep 2024 21:14:10 -0400
permissions: -rw-r--r--
description: add dir-locals to skel, fix package lock violation in castable, move .sk files 
     1 ;;; core/lisp skel system
     2 :name "core/emacs"
     3 :path "emacs"
     4 ;; :components ((:org "babel"))
     5 ;; TODO 2024-09-23: 
     6 :bind ((dotemacs (merge-pathnames ".emacs.d/" (user-homedir-pathname)))
     7        (config (directory "emacs/*.el"))
     8        (lib (directory "emacs/lib/*.el")))
     9 :rules 
    10 ((install ()
    11           (flet ((el-write (in out)
    12                    (let* ((fn (file-namestring in)))
    13                      (println (format nil "~A -> ~A" fn out))
    14                      (std:with-open-files
    15                          ((in in :direction :input)
    16                           (out out :direction :output :if-exists :supersede))
    17                        (std:copy-stream in out :finish-output t)))))
    18           (let ((dotemacs (merge-pathnames ".emacs.d/" (user-homedir-pathname)))
    19                 (config (directory "*.el"))
    20                 (lib (directory "lib/*.el")))
    21             (mapcar
    22              (lambda (el)
    23                (el-write el (merge-pathnames (file-namestring el) dotemacs)))
    24              config)
    25             (mapcar
    26              (lambda (el)
    27                (el-write el 
    28                          (merge-pathnames (file-namestring el)
    29                                           (ensure-directories-exist 
    30                                            (merge-pathnames "lib/" dotemacs)))))
    31              lib))))
    32  (clean () #$rm -rf ~/.emacs.d/{*.el,lisp,site-lisp,lib,elpa$#))
    33