amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build: emacs-utils: Add emacs-makeinfo.

Browse source 
* guix/build/emacs-utils.scm (emacs-makeinfo): New variable.
* gnu/packages/emacs-xyz.scm (emacs-show-font, emacs-mct, emacs-corfu)
(emacs-cape, emacs-embark, emacs-orderless, emacs-consult, emacs-marginalia)
(emacs-logos, emacs-tmr, emacs-beframe, emacs-tempel, emacs-lin, emacs-pulsar)
(emacs-dired-preview, emacs-modus-themes, emacs-org-glossary, emacs-vertico)
(emacs-org-margin, emacs-osm)[#:phases]<makeinfo>: Use it.
Move before ‘install’ if it was previously after ‘install’.
This commit is contained in:
Liliana Marie Prikler 2025-08-14 10:08:25 +02:00
parent fcd191dfc0
commit 6c41e4d180
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
2 changed files with 42 additions and 137 deletions
Download patch file Download diff file Expand all files Collapse all files

171
gnu/packages/emacs-xyz.scm
View file

@ -1683,12 +1683,7 @@ is based off of Slim mode.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (native-inputs
(list texinfo)) (list texinfo))
(home-page "https://github.com/protesilaos/show-font") (home-page "https://github.com/protesilaos/show-font")
@ -2540,14 +2535,8 @@ for filesystem and generic servers.")
(list (list
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "mct.info" (string-append #$output "/share/info")))))))
(home-page "https://protesilaos.com/emacs/mct") (home-page "https://protesilaos.com/emacs/mct")
(synopsis "Enhancement of the default Emacs minibuffer completion UI") (synopsis "Enhancement of the default Emacs minibuffer completion UI")
(description "Minibuffer and Completions in Tandem, also known as MCT, or (description "Minibuffer and Completions in Tandem, also known as MCT, or
@ -6189,11 +6178,7 @@ of bibliographic references.")
(rename-file f (basename f))) (rename-file f (basename f)))
el-files)))) el-files))))
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs" "--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (propagated-inputs
(list emacs-compat)) (list emacs-compat))
@ -6273,12 +6258,7 @@ be regarded as @code{emacs-company-quickhelp} for @code{emacs-corfu}.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (list emacs-compat)) (propagated-inputs (list emacs-compat))
(home-page "https://github.com/minad/cape") (home-page "https://github.com/minad/cape")
@ -14340,15 +14320,8 @@ them easier to distinguish from other, less important buffers.")
(list (list
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda* (#:key outputs #:allow-other-keys) (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "embark.info"
(string-append #$output "/share/info")))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (propagated-inputs
(list emacs-avy emacs-consult)) (list emacs-avy emacs-consult))
@ -14441,11 +14414,8 @@ interface.")
#:tests? #f #:tests? #f
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "makeinfo" "orderless.texi")
(install-file "orderless.info"
(string-append #$output "/share/info")))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (list emacs-compat)) (propagated-inputs (list emacs-compat))
(home-page "https://github.com/oantolin/orderless") (home-page "https://github.com/oantolin/orderless")
@ -14478,12 +14448,7 @@ style, or as multiple word prefixes.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (list emacs-compat)) (propagated-inputs (list emacs-compat))
(home-page "https://github.com/minad/consult") (home-page "https://github.com/minad/consult")
@ -14863,12 +14828,7 @@ expansion and overwriting the marked region with a new snippet completion.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (propagated-inputs
(list emacs-compat)) (list emacs-compat))
@ -20879,14 +20839,8 @@ graph. (Optional dependencies GraphViz, D3js, to be acquired separately!)
(list (list
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda* (#:key outputs #:allow-other-keys) (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "logos.info" (string-append #$output "/share/info")))))))
(home-page "https://protesilaos.com/emacs/logos") (home-page "https://protesilaos.com/emacs/logos")
(synopsis "Simple focus mode for Emacs") (synopsis "Simple focus mode for Emacs")
(description "This package provides a simple focus mode which can be (description "This package provides a simple focus mode which can be
@ -20926,12 +20880,7 @@ structure, or any other pattern.")
inputs inputs
"share/sounds/freedesktop/stereo/alarm-clock-elapsed.oga"))))) "share/sounds/freedesktop/stereo/alarm-clock-elapsed.oga")))))
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(inputs (list ffmpeg sound-theme-freedesktop)) (inputs (list ffmpeg sound-theme-freedesktop))
(home-page "https://protesilaos.com/emacs/tmr/") (home-page "https://protesilaos.com/emacs/tmr/")
@ -20963,12 +20912,7 @@ using a convenient notation.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (native-inputs
(list texinfo)) (list texinfo))
(home-page "https://protesilaos.com/emacs/beframe") (home-page "https://protesilaos.com/emacs/beframe")
@ -21423,12 +21367,7 @@ been adapted to also work with mu4e.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (propagated-inputs
(list emacs-compat)) (list emacs-compat))
@ -21854,14 +21793,8 @@ number on the left margin in Emacs.")
#:tests? #f ; no tests #:tests? #f ; no tests
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "lin.info" (string-append #$output "/share/info")))))))
(home-page "https://protesilaos.com/emacs/lin") (home-page "https://protesilaos.com/emacs/lin")
(synopsis "Make Hl Line mode more suitable for selection UIs") (synopsis "Make Hl Line mode more suitable for selection UIs")
(description (description
@ -28168,14 +28101,8 @@ subscription.")
(list (list
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "pulsar.info" (string-append #$output "/share/info")))))))
(home-page "https://protesilaos.com/emacs/pulsar") (home-page "https://protesilaos.com/emacs/pulsar")
(synopsis "Pulse highlight line on demand or after running select functions") (synopsis "Pulse highlight line on demand or after running select functions")
(description "This package temporarily highlights the current line after a (description "This package temporarily highlights the current line after a
@ -32864,12 +32791,7 @@ buffer displays recursive dir sizes.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (list emacs-ert-runner texinfo)) (native-inputs (list emacs-ert-runner texinfo))
(home-page "https://protesilaos.com/emacs/dired-preview") (home-page "https://protesilaos.com/emacs/dired-preview")
(synopsis "Automatically preview file at point in Dired") (synopsis "Automatically preview file at point in Dired")
@ -39544,14 +39466,7 @@ Emacs that integrate with major modes like Org-mode.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-after 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"doc/modus-themes.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "doc/modus-themes.info"
(string-append #$output "/share/info")))))))
(home-page "https://protesilaos.com/modus-themes/") (home-page "https://protesilaos.com/modus-themes/")
(synopsis "Accessible themes for Emacs (WCAG AAA standard)") (synopsis "Accessible themes for Emacs (WCAG AAA standard)")
(description (description
@ -42429,15 +42344,8 @@ org-mode templates.")
(list (list
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo "org-glossary.org"))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"org-glossary.org\")"
"--eval=(org-texinfo-export-to-info)")
(install-file "org-glossary.info"
(string-append #$output "/share/info")))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(home-page "https://git.tecosaur.net/tec/org-glossary") (home-page "https://git.tecosaur.net/tec/org-glossary")
(synopsis "Interact with glossary-like structures in Org documents") (synopsis "Interact with glossary-like structures in Org documents")
@ -43856,12 +43764,7 @@ and preferred services can easily be configured.")
(rename-file f (basename f))) (rename-file f (basename f)))
el-files)))) el-files))))
(add-after 'move-source-files 'makeinfo (add-after 'move-source-files 'makeinfo
(lambda _ (lambda _ (emacs-makeinfo))))))
(invoke "emacs"
"--batch"
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)"))))))
(native-inputs (native-inputs
(list texinfo)) (list texinfo))
(propagated-inputs (propagated-inputs
@ -44615,16 +44518,10 @@ used with or without Org Modern mode.")
(list (list
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'makeinfo (add-before 'install 'makeinfo
(lambda _ (lambda _
(invoke "emacs" (emacs-makeinfo)
"--batch" (rename-file "README.info" "org-margin.info"))))))
"--eval=(require 'ox-texinfo)"
"--eval=(find-file \"README.org\")"
"--eval=(org-texinfo-export-to-info)")
(rename-file "README.info" "org-margin.info")
(install-file "org-margin.info"
(string-append #$output "/share/info")))))))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(license license:gpl3+) (license license:gpl3+)
(home-page "https://github.com/rougier/org-margin") (home-page "https://github.com/rougier/org-margin")
@ -44744,12 +44641,12 @@ hacker.")
space "\""))))) space "\"")))))
(add-after 'unpack 'makeinfo (add-after 'unpack 'makeinfo
(lambda _ (lambda _
(invoke "emacs" (emacs-makeinfo
"--batch" "README.org"
"--eval=(require 'ox-texinfo)" '(progn
"--eval=(setq org-export-with-broken-links t)" (require 'ox-texinfo)
"--eval=(find-file \"README.org\")" (setq org-texinfo-with-broken-links t)
"--eval=(org-texinfo-export-to-info)")))))) (org-texinfo-export-to-info))))))))
(inputs (list curl)) (inputs (list curl))
(native-inputs (list texinfo)) (native-inputs (list texinfo))
(propagated-inputs (list emacs-compat)) (propagated-inputs (list emacs-compat))

8
guix/build/emacs-utils.scm
View file

@ -36,6 +36,7 @@
emacs-batch-error? emacs-batch-error?
emacs-batch-error-message emacs-batch-error-message
emacs-makeinfo
emacs-generate-autoloads emacs-generate-autoloads
emacs-byte-compile-directory emacs-byte-compile-directory
emacs-compile-directory emacs-compile-directory
@ -107,6 +108,13 @@ If NATIVE?, only disable native compilation."
(message (read-string (car error-pipe))))))) (message (read-string (car error-pipe)))))))
output)) output))
(define* (emacs-makeinfo #:optional
(file "README.org")
(expr '(progn
(require 'ox-texinfo)
(org-texinfo-export-to-info))))
(emacs-batch-edit-file file expr))
(define (emacs-generate-autoloads name directory) (define (emacs-generate-autoloads name directory)
"Generate autoloads for Emacs package NAME placed in DIRECTORY." "Generate autoloads for Emacs package NAME placed in DIRECTORY."
(let* ((file (string-append directory "/" name "-autoloads.el")) (let* ((file (string-append directory "/" name "-autoloads.el"))