Message ID | 20220514230508.27885-2-plattfot@posteo.net |
---|---|
State | Accepted |
Headers | show |
Series | Add a function to parse emacs elisp's package header | expand |
Context | Check | Description |
---|---|---|
cbaines/comparison | success | View comparision |
cbaines/git branch | success | View Git branch |
cbaines/applying patch | success | View Laminar job |
cbaines/issue | success | View issue |
Fredrik Salomonsson <plattfot@posteo.net> skribis:
> * guix/build/emacs-utils.scm (emacs-header-parse): New procedure.
LGTM!
Could you send a v2 of these patches?
Thanks in advance,
Ludo’.
diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm index 8d40b9e139..76d9464806 100644 --- a/guix/build/emacs-utils.scm +++ b/guix/build/emacs-utils.scm @@ -32,6 +32,7 @@ (define-module (guix build emacs-utils) emacs-batch-script emacs-generate-autoloads emacs-byte-compile-directory + emacs-header-parse as-display emacs-substitute-sexps @@ -97,6 +98,14 @@ (define* (emacs-byte-compile-directory dir) (byte-recompile-directory (file-name-as-directory ,dir) 0 1)))) (emacs-batch-eval expr))) +(define (emacs-header-parse section file) + "Parse the header SECTION in FILE and return it as a string." + (emacs-batch-script + `(progn + (require 'lisp-mnt) + (find-file ,file) + (princ (lm-header ,section))))) + (define as-display ;syntactic keyword for 'emacs-substitute-sexps' '(as display))