Add emacs-minimum argument to confpkg generation
This commit is contained in:
parent
755020d591
commit
c4a9c03c89
|
@ -515,7 +515,7 @@ modify the parent heading, and register the config group with the variables we
|
||||||
created earlier.
|
created earlier.
|
||||||
|
|
||||||
#+name: confpkg
|
#+name: confpkg
|
||||||
#+begin_src elisp :var name="" needs="" after="" pre="" prefix="config-" via="copy" :results silent raw :noweb no-export
|
#+begin_src elisp :var name="" needs="" after="" pre="" prefix="config-" via="copy" emacs-minimum="29.1" :results silent raw :noweb no-export
|
||||||
;; Babel block for use with #+call
|
;; Babel block for use with #+call
|
||||||
;; Arguments:
|
;; Arguments:
|
||||||
;; - name, the name of the config sub-package
|
;; - name, the name of the config sub-package
|
||||||
|
@ -532,6 +532,7 @@ created earlier.
|
||||||
;; + "none", do not do anything to load this configuration.
|
;; + "none", do not do anything to load this configuration.
|
||||||
;; This only makes sense when configuration is either being
|
;; This only makes sense when configuration is either being
|
||||||
;; temporarily disabled or loaded indirectly/elsewhere.
|
;; temporarily disabled or loaded indirectly/elsewhere.
|
||||||
|
;; - emacs-minimum, the minimum emacs version ("29.1" by default)
|
||||||
(when (or (string-empty-p needs)
|
(when (or (string-empty-p needs)
|
||||||
(cl-every #'executable-find (delq nil (split-string needs ","))))
|
(cl-every #'executable-find (delq nil (split-string needs ","))))
|
||||||
(let* ((name (if (string-empty-p name)
|
(let* ((name (if (string-empty-p name)
|
||||||
|
@ -576,6 +577,7 @@ created earlier.
|
||||||
`((?n . ,confpkg--num)
|
`((?n . ,confpkg--num)
|
||||||
(?p . ,confpkg-name)
|
(?p . ,confpkg-name)
|
||||||
(?f . ,confpkg-file)
|
(?f . ,confpkg-file)
|
||||||
|
(?e . ,emacs-minimum)
|
||||||
(?Y . ,(format-time-string "%Y"))
|
(?Y . ,(format-time-string "%Y"))
|
||||||
(?B . ,(format-time-string "%B"))
|
(?B . ,(format-time-string "%B"))
|
||||||
(?m . ,(format-time-string "%m"))
|
(?m . ,(format-time-string "%m"))
|
||||||
|
|
Loading…
Reference in New Issue