changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / emacs.sk

changeset 666: f15e0f021a64
parent: cc89b337384b
author: Richard Westhaver <ellis@rwest.io>
date: Sun, 22 Sep 2024 22:13:44 -0400
permissions: -rw-r--r--
description: more elisp 
     1 ;;; core/lisp skel system
     2 :name "core/emacs"
     3 :path "emacs"
     4 ;; :components ((:org "babel"))
     5 :bind ((dotemacs (merge-pathnames ".emacs.d/" (user-homedir-pathname)))
     6        (config () (directory "emacs/*.el"))
     7        (lib () (directory "emacs/lib/*.el")))
     8 :rules 
     9 ((install ()
    10           (mapcar
    11            (lambda (el)
    12              (std:with-open-files
    13                  ((in el :direction :input)
    14                   (out (merge-pathnames (file-namestring el) dotemacs) :direction :output))
    15                (std:copy-stream in out :finish-output t)))
    16            config)
    17           (mapcar
    18            (lambda (el)
    19              (std:with-open-files
    20                  ((in el :direction :input)
    21                   (out (merge-pathnames (file-namestring el) 
    22                                         (ensure-directories-exist 
    23                                          (merge-pathnames "lib/" dotemacs))) 
    24                        :direction :output))
    25                (std:copy-stream in out :finish-output t)))
    26            lib)))
    27