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

gnu: Use new package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-shroud):
(emacs-w3m):
(emacs-howm):
(emacs-guix):
(emacs-deferred):
(emacs-irony-mode):
(emacs-irony-mode-server):
(emacs-scel):
(emacs-elfeed-org):
(emacs-mocker):
(emacs-find-file-in-project):
(emacs-pyvenv):
(emacs-elpy):
(emacs-org-contrib):
(emacs-ob-sclang):
(emacspeak):
(emacs-json-reformat):
(emacs-ws-butler):
(emacs-browse-at-remote):
(epipe):
(emacs-emacsql):
(emacs-emacsql-sqlite3):
(emacs-org-super-agenda):
(emacs-dumb-jump):
(emacs-ytdl):
(emacs-arduino-mode):
(emacs-vterm):
(emacs-forge):
(emacs-flycheck-cpplint):
(emacs-telega-server):
(emacs-inf-janet):
(emacs-keystore-mode): Remove input labels.  Remove trailing #T in phases. Use gexps.
This commit is contained in:
Nicolas Goaziou 2021-12-14 22:24:25 +01:00
parent 50b8a8e8c2
commit 88097dfba7
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 400 additions and 448 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1300,14 +1300,15 @@ for editing Racket's Scribble documentation syntax in Emacs.")
(base32 "0q2pb3w8s833fjhkzicciw2php4lsnismad1dnwgp2lcway757ra")))) (base32 "0q2pb3w8s833fjhkzicciw2php4lsnismad1dnwgp2lcway757ra"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (list
#:modules '((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:) ((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)) (guix build utils))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system) (guix build emacs-build-system)
(guix build emacs-utils)) (guix build emacs-utils))
#:configure-flags (list (string-append "--with-lispdir=" #:configure-flags #~(list (string-append "--with-lispdir="
(emacs:elpa-directory %output))) (emacs:elpa-directory #$output)))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'expand-load-path (add-after 'unpack 'expand-load-path
@ -1977,7 +1978,8 @@ or unexpected behavior inside an elisp configuration file (typically
(package (package
(name "emacs-w3m") (name "emacs-w3m")
(version "2018-11-11") (version "2018-11-11")
(source (origin (source
(origin
(method cvs-fetch) (method cvs-fetch)
(uri (cvs-reference (uri (cvs-reference
(root-directory (root-directory
@ -1986,32 +1988,30 @@ or unexpected behavior inside an elisp configuration file (typically
(revision version))) (revision version)))
(file-name (string-append name "-" version "-checkout")) (file-name (string-append name "-" version "-checkout"))
(sha256 (sha256
(base32 (base32 "0nvahdbjs12zg7zsk4gql02mvnv56cf1rwj2f5p42lwp3xvswiwp"))))
"0nvahdbjs12zg7zsk4gql02mvnv56cf1rwj2f5p42lwp3xvswiwp"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list autoconf texinfo emacs-minimal)) (native-inputs (list autoconf texinfo emacs-minimal))
(inputs (list w3m imagemagick)) (inputs (list w3m imagemagick))
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (list
#:modules '((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:) ((guix build emacs-build-system) #:prefix emacs:)
(guix build utils) (guix build utils)
(guix build emacs-utils)) (guix build emacs-utils))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system) (guix build emacs-build-system)
(guix build emacs-utils)) (guix build emacs-utils))
#:configure-flags #:configure-flags
(let ((out (assoc-ref %outputs "out"))) #~(list (string-append "--with-lispdir=" (emacs:elpa-directory #$output))
(list (string-append "--with-lispdir="
(emacs:elpa-directory out))
(string-append "--with-icondir=" (string-append "--with-icondir="
out "/share/images/emacs-w3m") #$output "/share/images/emacs-w3m")
;; Leave .el files uncompressed, otherwise GC can't ;; Leave .el files uncompressed, otherwise GC can't
;; identify run-time dependencies. See ;; identify run-time dependencies. See
;; <http://lists.gnu.org/archive/html/guix-devel/2015-12/msg00208.html> ;; <http://lists.gnu.org/archive/html/guix-devel/2015-12/msg00208.html>
"--without-compress-install")) "--without-compress-install")
#:tests? #f ; no check target #:tests? #f ; no check target
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'autoconf (add-after 'unpack 'autoconf
(lambda _ (lambda _
(invoke "autoconf"))) (invoke "autoconf")))
@ -2020,37 +2020,29 @@ or unexpected behavior inside an elisp configuration file (typically
;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is ;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is
;; unsupported. ;; unsupported.
(substitute* "configure" (substitute* "configure"
(("EMACS_FLAVOR=unsupported") (("EMACS_FLAVOR=unsupported") "EMACS_FLAVOR=emacs"))))
"EMACS_FLAVOR=emacs"))
#t))
(add-before 'build 'patch-exec-paths (add-before 'build 'patch-exec-paths
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out")))
(w3m (assoc-ref inputs "w3m"))
(imagemagick (assoc-ref inputs "imagemagick"))
(coreutils (assoc-ref inputs "coreutils")))
(make-file-writable "w3m.el") (make-file-writable "w3m.el")
(emacs-substitute-variables "w3m.el" (emacs-substitute-variables "w3m.el"
("w3m-command" (string-append w3m "/bin/w3m")) ("w3m-command" (search-input-file inputs "/bin/w3m"))
("w3m-touch-command" ("w3m-touch-command" (search-input-file inputs "/bin/touch"))
(string-append coreutils "/bin/touch"))
("w3m-icon-directory" ("w3m-icon-directory"
(string-append out "/share/images/emacs-w3m"))) (string-append out "/share/images/emacs-w3m")))
(make-file-writable "w3m-image.el") (make-file-writable "w3m-image.el")
(emacs-substitute-variables "w3m-image.el" (emacs-substitute-variables "w3m-image.el"
("w3m-imagick-convert-program" ("w3m-imagick-convert-program"
(string-append imagemagick "/bin/convert")) (search-input-file inputs "/bin/convert"))
("w3m-imagick-identify-program" ("w3m-imagick-identify-program"
(string-append imagemagick "/bin/identify"))) (search-input-file inputs "/bin/identify"))))))
#t)))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(invoke "make" "install" "install-icons") (invoke "make" "install" "install-icons")
(with-directory-excursion (with-directory-excursion
(emacs:elpa-directory (assoc-ref outputs "out")) (emacs:elpa-directory (assoc-ref outputs "out"))
(for-each delete-file '("ChangeLog" "ChangeLog.1")) (for-each delete-file '("ChangeLog" "ChangeLog.1"))
(symlink "w3m-load.el" "w3m-autoloads.el") (symlink "w3m-load.el" "w3m-autoloads.el")))))))
#t))))))
(home-page "http://emacs-w3m.namazu.org/") (home-page "http://emacs-w3m.namazu.org/")
(synopsis "Simple Web browser for Emacs based on w3m") (synopsis "Simple Web browser for Emacs based on w3m")
(description (description
@ -2693,12 +2685,13 @@ a set of simplified face specifications and a user-supplied color palette")
(native-inputs (native-inputs
(list emacs-minimal)) (list emacs-minimal))
(arguments (arguments
`(#:configure-flags (list
(list (string-append "--with-howmdir=" (emacs:elpa-directory %output))) #:configure-flags
#:modules ((guix build gnu-build-system) #~(list (string-append "--with-howmdir=" (emacs:elpa-directory #$output)))
#:modules '((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:) ((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)) (guix build utils))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system) (guix build emacs-build-system)
(guix build emacs-utils)) (guix build emacs-utils))
#:phases #:phases
@ -3494,17 +3487,18 @@ type, for example: packages, buffers, files, etc.")
"00xdxadbi9fxpfp60zah9190rcz3w08vl1blbhmaiy7c1hd2gi39")))) "00xdxadbi9fxpfp60zah9190rcz3w08vl1blbhmaiy7c1hd2gi39"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (list
#:modules '((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:) ((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)) (guix build utils))
#:imported-modules (,@%gnu-build-system-modules #:imported-modules `(,@%gnu-build-system-modules
(guix build emacs-build-system) (guix build emacs-build-system)
(guix build emacs-utils)) (guix build emacs-utils))
#:configure-flags #:configure-flags
(list (string-append "--with-lispdir=" #~(list (string-append "--with-lispdir="
(emacs:elpa-directory (assoc-ref %outputs "out")))) (emacs:elpa-directory #$output)))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'expand-load-path (add-after 'unpack 'expand-load-path
(lambda _ (lambda _
((assoc-ref emacs:%standard-phases 'expand-load-path) ((assoc-ref emacs:%standard-phases 'expand-load-path)
@ -6011,15 +6005,15 @@ framework for Emacs Lisp to be used with @code{ert}.")
(name "emacs-deferred") (name "emacs-deferred")
(version "0.5.1") (version "0.5.1")
(home-page "https://github.com/kiwanami/emacs-deferred") (home-page "https://github.com/kiwanami/emacs-deferred")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url home-page) (url home-page)
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0xy9zb6wwkgwhcxdnslqk52bq3z24chgk6prqi4ks0qcf2bwyh5h"))))
"0xy9zb6wwkgwhcxdnslqk52bq3z24chgk6prqi4ks0qcf2bwyh5h"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -6028,19 +6022,15 @@ framework for Emacs Lisp to be used with @code{ert}.")
;; Setting the SHELL environment variable is required for the tests ;; Setting the SHELL environment variable is required for the tests
;; to find sh. ;; to find sh.
(lambda _ (lambda _
(setenv "SHELL" (which "sh")) (setenv "SHELL" (which "sh"))))
#t))
(add-before 'check 'fix-makefile (add-before 'check 'fix-makefile
(lambda _ (lambda _
(substitute* "Makefile" (substitute* "Makefile"
(("\\$\\(CASK\\) exec ") "")) (("\\$\\(CASK\\) exec ") "")))))
#t)))
#:tests? #t #:tests? #t
#:test-command '("make" "test"))) #:test-command '("make" "test")))
(native-inputs (native-inputs
`(("emacs-ert-expectations" ,emacs-ert-expectations) (list emacs-ert-expectations emacs-ert-runner emacs-undercover))
("emacs-undercover" ,emacs-undercover)
("ert-runner" ,emacs-ert-runner)))
(synopsis "Simple asynchronous functions for Emacs Lisp") (synopsis "Simple asynchronous functions for Emacs Lisp")
(description (description
"The @code{deferred.el} library provides support for asynchronous tasks. "The @code{deferred.el} library provides support for asynchronous tasks.
@ -6223,26 +6213,26 @@ languages.")
(name "emacs-irony-mode") (name "emacs-irony-mode")
(version "1.5.0") (version "1.5.0")
(home-page "https://github.com/Sarcasm/irony-mode") (home-page "https://github.com/Sarcasm/irony-mode")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url (string-append home-page ".git")) (url (string-append home-page ".git"))
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "1ilvfqn7hzrjjy2zrv08dbdnmgksdgsmrdcvx05s8704430ag0pb"))))
"1ilvfqn7hzrjjy2zrv08dbdnmgksdgsmrdcvx05s8704430ag0pb"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(inputs `(("server" ,emacs-irony-mode-server))) (arguments
(arguments `(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(chmod "irony.el" #o644) (chmod "irony.el" #o644)
(emacs-substitute-variables "irony.el" (emacs-substitute-variables "irony.el"
("irony-server-install-prefix" ("irony-server-install-prefix" #$emacs-irony-mode-server)))))))
(assoc-ref inputs "server"))) (inputs (list emacs-irony-mode-server))
#t)))))
(synopsis "C/C++/ObjC Code completion and syntax checks for Emacs") (synopsis "C/C++/ObjC Code completion and syntax checks for Emacs")
(description "Irony-mode provides Clang-assisted syntax checking and (description "Irony-mode provides Clang-assisted syntax checking and
completion for C, C++, and ObjC in GNU Emacs. Using @code{libclang} it can completion for C, C++, and ObjC in GNU Emacs. Using @code{libclang} it can
@ -6253,10 +6243,9 @@ described on the homepage.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-irony-mode-server (define-public emacs-irony-mode-server
(package (inherit emacs-irony-mode) (package
(inherit emacs-irony-mode)
(name "emacs-irony-mode-server") (name "emacs-irony-mode-server")
(inputs
(list clang))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -6265,7 +6254,9 @@ described on the homepage.")
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(invoke "cmake" (invoke "cmake"
"server" "server"
(string-append "-DCMAKE_INSTALL_PREFIX=" out)) #t)))))) (string-append "-DCMAKE_INSTALL_PREFIX=" out))))))))
(inputs
(list clang))
(build-system cmake-build-system) (build-system cmake-build-system)
(synopsis "Server for the Emacs @dfn{irony mode}"))) (synopsis "Server for the Emacs @dfn{irony mode}")))
@ -6791,31 +6782,33 @@ to a key in your preferred mode.")
"0jvmzs1lsjyndqshhii2y4mnr3wghai26i3p75453zrpxpg0zvvw")))) "0jvmzs1lsjyndqshhii2y4mnr3wghai26i3p75453zrpxpg0zvvw"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:modules ((guix build emacs-build-system) (list
#:modules '((guix build emacs-build-system)
((guix build cmake-build-system) #:prefix cmake:) ((guix build cmake-build-system) #:prefix cmake:)
(guix build utils)) (guix build utils))
#:imported-modules (,@%emacs-build-system-modules #:imported-modules `(,@%emacs-build-system-modules
(guix build cmake-build-system)) (guix build cmake-build-system))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(substitute* "el/CMakeLists.txt" (substitute* "el/CMakeLists.txt"
(("share/emacs/site-lisp/SuperCollider") (("share/emacs/site-lisp/SuperCollider")
(elpa-directory (assoc-ref outputs "out")))) (elpa-directory #$output)))
((assoc-ref cmake:%standard-phases 'configure) ((assoc-ref cmake:%standard-phases 'configure)
#:outputs outputs #:outputs outputs
#:configure-flags '("-DSC_EL_BYTECOMPILE=OFF")))) #:configure-flags '("-DSC_EL_BYTECOMPILE=OFF"))))
(add-after 'expand-load-path 'add-el-dir-to-emacs-load-path (add-after 'expand-load-path 'add-el-dir-to-emacs-load-path
(lambda _ (lambda _
(setenv "EMACSLOADPATH" (setenv "EMACSLOADPATH"
(string-append (getcwd) "/el:" (getenv "EMACSLOADPATH"))) (string-append (getcwd)
#t)) "/el:"
(getenv "EMACSLOADPATH")))))
(replace 'install (assoc-ref cmake:%standard-phases 'install))))) (replace 'install (assoc-ref cmake:%standard-phases 'install)))))
(inputs (inputs
(list supercollider)) (list supercollider))
(native-inputs (native-inputs
`(("cmake" ,cmake-minimal))) (list cmake-minimal))
(home-page "https://github.com/supercollider/scel") (home-page "https://github.com/supercollider/scel")
(synopsis "SuperCollider Emacs interface") (synopsis "SuperCollider Emacs interface")
(description "@code{emacs-scel} is an Emacs interface to SuperCollider. (description "@code{emacs-scel} is an Emacs interface to SuperCollider.
@ -10075,11 +10068,6 @@ and RSS, with a user interface inspired by notmuch.")
(sha256 (sha256
(base32 "0a2ibka82xq1dhy2z7rd2y9zhcj8rna8357881yz49wf55ccgm53")))) (base32 "0a2ibka82xq1dhy2z7rd2y9zhcj8rna8357881yz49wf55ccgm53"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(propagated-inputs
(list emacs-elfeed emacs-org emacs-dash emacs-s))
(native-inputs
`(("ert-runner" ,emacs-ert-runner)
("emacs-xtest" ,emacs-xtest)))
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("ert-runner" "-L" "org-mode/lisp") #:test-command '("ert-runner" "-L" "org-mode/lisp")
@ -10087,8 +10075,11 @@ and RSS, with a user interface inspired by notmuch.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'check 'chmod (add-before 'check 'chmod
(lambda _ (lambda _
(chmod "test/fixture-mark-feed-ignore.org" #o644) (chmod "test/fixture-mark-feed-ignore.org" #o644))))))
#t))))) (propagated-inputs
(list emacs-elfeed emacs-org emacs-dash emacs-s))
(native-inputs
(list emacs-ert-runner emacs-xtest))
(home-page "https://github.com/remyhonig/elfeed-org") (home-page "https://github.com/remyhonig/elfeed-org")
(synopsis "Configure Elfeed with an Org-mode file") (synopsis "Configure Elfeed with an Org-mode file")
(description (description
@ -10236,21 +10227,21 @@ customizable 256 color support to @code{term} and @code{ansi-term}.")
(package (package
(name "emacs-mocker") (name "emacs-mocker")
(version "0.5.0") (version "0.5.0")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/sigma/mocker.el") (url "https://github.com/sigma/mocker.el")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "1dc514cqbfmg33sb3j90s5jmw6jnm3wzvs0zhw3maz13bp7w6z48"))))
"1dc514cqbfmg33sb3j90s5jmw6jnm3wzvs0zhw3maz13bp7w6z48"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("ert-runner"))) #:test-command '("ert-runner")))
(native-inputs (native-inputs
`(("ert-runner" ,emacs-ert-runner))) (list emacs-ert-runner))
(propagated-inputs (propagated-inputs
(list emacs-el-x)) (list emacs-el-x))
(home-page "https://github.com/sigma/mocker.el") (home-page "https://github.com/sigma/mocker.el")
@ -10264,26 +10255,25 @@ maximizes flexibility (at the expense of conciseness).")
(package (package
(name "emacs-find-file-in-project") (name "emacs-find-file-in-project")
(version "6.1.2") (version "6.1.2")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/technomancy/find-file-in-project") (url "https://github.com/technomancy/find-file-in-project")
;; The "6.1.2" tag was modified in place, initially pointing to
;; The "6.1.2" tag was modified in place, initially ;; 756f616f77f3829de07821480e229c587c1afec0 and then change to
;; pointing to 756f616f77f3829de07821480e229c587c1afec0 ;; the subsequent commit,
;; and then change to the subsequent commit,
;; 52274e6001545bdf45c6477ba21bfaa8eca04755. ;; 52274e6001545bdf45c6477ba21bfaa8eca04755.
(commit "756f616f77f3829de07821480e229c587c1afec0"))) (commit "756f616f77f3829de07821480e229c587c1afec0")))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "00i62qspgmpg45gfzyq722wnni3yfmrkvlva8kmxdv5id919x1sc"))))
"00i62qspgmpg45gfzyq722wnni3yfmrkvlva8kmxdv5id919x1sc"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("ert-runner" "tests"))) #:test-command '("ert-runner" "tests")))
(native-inputs (native-inputs
`(("ert-runner" ,emacs-ert-runner))) (list emacs-ert-runner))
(home-page "https://github.com/technomancy/find-file-in-project") (home-page "https://github.com/technomancy/find-file-in-project")
(synopsis "File/directory finder for Emacs") (synopsis "File/directory finder for Emacs")
(description "@code{find-file-in-project} finds files or (description "@code{find-file-in-project} finds files or
@ -10296,15 +10286,15 @@ functions to assist in reviewing changes on files.")
(package (package
(name "emacs-pyvenv") (name "emacs-pyvenv")
(version "1.21") (version "1.21")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/jorgenschaefer/pyvenv") (url "https://github.com/jorgenschaefer/pyvenv")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "055sgk8zf4wb5nqsf3qasf5gg861zlb1831733f1qcrd2ij5gzxx"))))
"055sgk8zf4wb5nqsf3qasf5gg861zlb1831733f1qcrd2ij5gzxx"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -10315,8 +10305,7 @@ functions to assist in reviewing changes on files.")
#:tests? #t #:tests? #t
#:test-command '("ert-runner"))) #:test-command '("ert-runner")))
(native-inputs (native-inputs
`(("ert-runner" ,emacs-ert-runner) (list emacs-ert-runner emacs-mocker))
("emacs-mocker" ,emacs-mocker)))
(home-page "https://github.com/jorgenschaefer/pyvenv") (home-page "https://github.com/jorgenschaefer/pyvenv")
(synopsis "Python virtual environment interface for Emacs") (synopsis "Python virtual environment interface for Emacs")
(description "pyvenv.el is a minor mode to support using Python virtual (description "pyvenv.el is a minor mode to support using Python virtual
@ -10444,27 +10433,27 @@ indentation guides in Emacs:
#:tests? #t #:tests? #t
#:test-command '("ert-runner"))) #:test-command '("ert-runner")))
(propagated-inputs (propagated-inputs
`(("emacs-company" ,emacs-company) (list emacs-company
("emacs-find-file-in-project" ,emacs-find-file-in-project) emacs-find-file-in-project
("emacs-highlight-indentation" ,emacs-highlight-indentation) emacs-highlight-indentation
("emacs-yasnippet" ,emacs-yasnippet) emacs-yasnippet
("pyvenv" ,emacs-pyvenv) emacs-pyvenv
("s" ,emacs-s) emacs-s
;; The following are recommended Python dependencies that make Elpy ;; The following are recommended Python dependencies that make
;; much more useful. Installing these avoids Elpy prompting to install them ;; Elpy much more useful. Installing these avoids Elpy prompting
;; from PyPI using pip. ;; to install them from PyPI using pip.
("python-autopep8" ,python-autopep8) python-autopep8
("python-black" ,python-black) python-black
("python-flake8" ,python-flake8) python-flake8
("python-jedi" ,python-jedi) python-jedi
("python-yapf" ,python-yapf))) python-yapf))
(native-inputs (native-inputs
`(("ert-runner" ,emacs-ert-runner) (list emacs-ert-runner
("emacs-f" ,emacs-f) emacs-f
("python" ,python-wrapper) python-wrapper
;; For documentation. ;; For documentation.
("python-sphinx" ,python-sphinx) python-sphinx
("texinfo" ,texinfo))) texinfo))
(home-page "https://github.com/jorgenschaefer/elpy") (home-page "https://github.com/jorgenschaefer/elpy")
(synopsis "Python development environment for Emacs") (synopsis "Python development environment for Emacs")
(description "Elpy brings powerful Python editing to Emacs. It combines (description "Elpy brings powerful Python editing to Emacs. It combines
@ -12185,9 +12174,9 @@ programming and reproducible research.")
(lambda _ (lambda _
(chdir "lisp")))))) (chdir "lisp"))))))
(propagated-inputs (propagated-inputs
`(("arduino-mode" ,emacs-arduino-mode) ;XXX: remove after 0.4+ release. (list emacs-arduino-mode ;XXX: remove after 0.4+ release.
("cider" ,emacs-cider) emacs-cider
("org" ,emacs-org))) emacs-org))
(home-page "https://git.sr.ht/~bzg/org-contrib") (home-page "https://git.sr.ht/~bzg/org-contrib")
(synopsis "Unmaintained add-ons for Org mode") (synopsis "Unmaintained add-ons for Org mode")
(description (description
@ -12270,18 +12259,17 @@ characters.")
(inherit emacs-org-contrib) (inherit emacs-org-contrib)
(name "emacs-ob-sclang") (name "emacs-ob-sclang")
(source (source
(origin (inherit (package-source emacs-org-contrib)) (origin
(inherit (package-source emacs-org-contrib))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
(for-each (lambda (file) (for-each (lambda (file)
(unless (equal? file "./ob-sclang.el") (unless (equal? file "./ob-sclang.el")
(delete-file file))) (delete-file file)))
(find-files "." "\\.el")) (find-files "." "\\.el"))))))
#t))))
(propagated-inputs (propagated-inputs
`(("org" ,emacs-org) (list emacs-emacs org-scel))
("scel" ,emacs-scel)))
(synopsis "Org Babel support for SuperCollider") (synopsis "Org Babel support for SuperCollider")
(description "This package adds support for evaluating @code{sclang} (description "This package adds support for evaluating @code{sclang}
Org mode source blocks. It is extracted from the @code{emacs-org-contrib} Org mode source blocks. It is extracted from the @code{emacs-org-contrib}
@ -13256,10 +13244,10 @@ highlights quasi-quoted expressions.")
(base32 "0lasj4ggsh93ingf46n16wxfx5zzxvr1igikbmdqlz3i99j331gs")))) (base32 "0lasj4ggsh93ingf46n16wxfx5zzxvr1igikbmdqlz3i99j331gs"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags (list (string-append "prefix=" (list
(assoc-ref %outputs "out"))) #:make-flags #~(list (string-append "prefix=" #$output))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(setenv "SHELL" (which "sh")) (setenv "SHELL" (which "sh"))
@ -13270,7 +13258,7 @@ highlights quasi-quoted expressions.")
(substitute* "servers/espeak" (substitute* "servers/espeak"
(("package require Tclx") (("package require Tclx")
(string-append "set auto_path [linsert $auto_path 0 " (string-append "set auto_path [linsert $auto_path 0 "
(assoc-ref inputs "tclx") #$tclx
"/lib]\n" "/lib]\n"
"package require Tclx")))) "package require Tclx"))))
;; Configure Emacspeak according to etc/install.org. ;; Configure Emacspeak according to etc/install.org.
@ -13298,15 +13286,10 @@ highlights quasi-quoted expressions.")
(string-append lisp "/lisp/emacspeak-setup.el"))) (string-append lisp "/lisp/emacspeak-setup.el")))
;; Install the convenient startup script. ;; Install the convenient startup script.
(mkdir-p bin) (mkdir-p bin)
(copy-file "run" (string-append bin "/emacspeak"))) (copy-file "run" (string-append bin "/emacspeak"))))))
#t)))
#:tests? #f)) ; no check target #:tests? #f)) ; no check target
(inputs (inputs
`(("emacs" ,emacs) (list emacs espeak-ng perl tcl tclx))
("espeak" ,espeak-ng)
("perl" ,perl)
("tcl" ,tcl)
("tclx" ,tclx)))
(home-page "http://emacspeak.sourceforge.net") (home-page "http://emacspeak.sourceforge.net")
(synopsis "Audio desktop interface for Emacs") (synopsis "Audio desktop interface for Emacs")
(description (description
@ -14564,12 +14547,6 @@ running a customisable handler command (@code{ignore} by default). ")
(base32 "0qp4n2k6s69jj4gwwimkpadjv245y54wk3bxb1x96f034gkp81vs")) (base32 "0qp4n2k6s69jj4gwwimkpadjv245y54wk3bxb1x96f034gkp81vs"))
(patches (search-patches "emacs-json-reformat-fix-tests.patch")))) (patches (search-patches "emacs-json-reformat-fix-tests.patch"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(propagated-inputs
(list emacs-undercover))
(native-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-shut-up" ,emacs-shut-up)
("ert-runner" ,emacs-ert-runner)))
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("ert-runner") #:test-command '("ert-runner")
@ -14577,8 +14554,7 @@ running a customisable handler command (@code{ignore} by default). ")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'check 'make-tests-writable (add-before 'check 'make-tests-writable
(lambda _ (lambda _
(for-each make-file-writable (find-files "test")) (for-each make-file-writable (find-files "test"))))
#t))
(add-before 'check 'delete-json-objects-order-test (add-before 'check 'delete-json-objects-order-test
(lambda _ (lambda _
(emacs-batch-edit-file "test/json-reformat-test.el" (emacs-batch-edit-file "test/json-reformat-test.el"
@ -14587,8 +14563,11 @@ running a customisable handler command (@code{ignore} by default). ")
"ert-deftest json-reformat-test:json-reformat-region") "ert-deftest json-reformat-test:json-reformat-region")
(beginning-of-line) (beginning-of-line)
(kill-sexp)) (kill-sexp))
(basic-save-buffer))) (basic-save-buffer))))))))
#t))))) (native-inputs
(list emacs-dash emacs-ert-runner emacs-shut-up))
(propagated-inputs
(list emacs-undercover))
(home-page "https://github.com/gongo/json-reformat") (home-page "https://github.com/gongo/json-reformat")
(synopsis "Reformatting tool for JSON") (synopsis "Reformatting tool for JSON")
(description "@code{json-reformat} provides a reformatting tool for (description "@code{json-reformat} provides a reformatting tool for
@ -14914,21 +14893,21 @@ of commands is displayed in a handy popup.")
(package (package
(name "emacs-ws-butler") (name "emacs-ws-butler")
(version "0.6") (version "0.6")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/lewang/ws-butler") (url "https://github.com/lewang/ws-butler")
(commit "323b651dd70ee40a25accc940b8f80c3a3185205"))) (commit "323b651dd70ee40a25accc940b8f80c3a3185205")))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "1a4b0lsmwq84qfx51c5xy4fryhb1ysld4fhgw2vr37izf53379sb"))))
"1a4b0lsmwq84qfx51c5xy4fryhb1ysld4fhgw2vr37izf53379sb"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(native-inputs
`(("ert-runner" ,emacs-ert-runner)))
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("ert-runner" "tests"))) #:test-command '("ert-runner" "tests")))
(native-inputs
(list emacs-ert-runner))
(home-page "https://github.com/lewang/ws-butler") (home-page "https://github.com/lewang/ws-butler")
(synopsis "Trim spaces from end of lines") (synopsis "Trim spaces from end of lines")
(description (description
@ -15346,13 +15325,13 @@ the latest versions of Idris 1.")
(sha256 (sha256
(base32 "0bx4ns0jb0sqrjk1nsspvl3mhz3n12925azf7brlwb1vcgnji09v")))) (base32 "0bx4ns0jb0sqrjk1nsspvl3mhz3n12925azf7brlwb1vcgnji09v"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(propagated-inputs
(list emacs-f emacs-s))
(native-inputs
`(("ert-runner" ,emacs-ert-runner)))
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("ert-runner"))) #:test-command '("ert-runner")))
(native-inputs
(list emacs-ert-runner))
(propagated-inputs
(list emacs-f emacs-s))
(home-page "https://github.com/rmuslimov/browse-at-remote") (home-page "https://github.com/rmuslimov/browse-at-remote")
(synopsis "Open github/gitlab/bitbucket/stash page from Emacs") (synopsis "Open github/gitlab/bitbucket/stash page from Emacs")
(description (description
@ -16391,8 +16370,6 @@ Features:
(sha256 (sha256
(base32 "0lkisi1s7sn12nx8zh58qmsxwnk1rjwryj18wcbr148xqz3swg57")))) (base32 "0lkisi1s7sn12nx8zh58qmsxwnk1rjwryj18wcbr148xqz3swg57"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(inputs
(list bash perl))
(arguments (arguments
`(#:modules `(#:modules
((guix build utils)) ((guix build utils))
@ -16412,8 +16389,9 @@ Features:
;; Install. ;; Install.
(for-each (lambda (file) (for-each (lambda (file)
(install-file file (string-append %output "/bin"))) (install-file file (string-append %output "/bin")))
'("epipe" "epipe.pl")) '("epipe" "epipe.pl")))))
#t))) (inputs
(list bash perl))
(home-page "https://github.com/cute-jumper/epipe") (home-page "https://github.com/cute-jumper/epipe")
(synopsis "Pipe to the @code{emacsclient}") (synopsis "Pipe to the @code{emacsclient}")
(description "@code{epipe} provides an utility to use your editor in (description "@code{epipe} provides an utility to use your editor in
@ -16904,15 +16882,15 @@ object has been freed.")
(package (package
(name "emacs-emacsql") (name "emacs-emacsql")
(version "3.0.0") (version "3.0.0")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/skeeto/emacsql") (url "https://github.com/skeeto/emacsql")
(commit (string-append version)))) (commit (string-append version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "1c84gxr1majqj4b59wgdy3lzm3ap66w9qsrnkx8hdbk9895ak81g"))))
"1c84gxr1majqj4b59wgdy3lzm3ap66w9qsrnkx8hdbk9895ak81g"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:modules ((guix build emacs-build-system) `(#:modules ((guix build emacs-build-system)
@ -16924,8 +16902,7 @@ object has been freed.")
(add-before 'install 'patch-elisp-shell-shebangs (add-before 'install 'patch-elisp-shell-shebangs
(lambda _ (lambda _
(substitute* (find-files "." "\\.el") (substitute* (find-files "." "\\.el")
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))))
#t))
(add-after 'patch-elisp-shell-shebangs 'setenv-shell (add-after 'patch-elisp-shell-shebangs 'setenv-shell
(lambda _ (lambda _
(setenv "SHELL" "sh"))) (setenv "SHELL" "sh")))
@ -16936,9 +16913,7 @@ object has been freed.")
;; This build phase installs emacs-emacsql binary. ;; This build phase installs emacs-emacsql binary.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(install-file "sqlite/emacsql-sqlite" (install-file "sqlite/emacsql-sqlite"
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out") "/bin"))))
"/bin"))
#t))
(add-after 'install-emacsql-sqlite 'patch-emacsql-sqlite.el (add-after 'install-emacsql-sqlite 'patch-emacsql-sqlite.el
;; This build phase removes interactive prompts ;; This build phase removes interactive prompts
;; and makes sure Emacs look for binaries in the right places. ;; and makes sure Emacs look for binaries in the right places.
@ -16954,10 +16929,7 @@ object has been freed.")
(string-append (assoc-ref outputs "out") (string-append (assoc-ref outputs "out")
"/bin/emacsql-sqlite"))))))))) "/bin/emacsql-sqlite")))))))))
(inputs (inputs
`(("emacs-minimal" ,emacs-minimal) (list emacs-minimal `(,mariadb "dev") `(,mariadb "lib") postgresql))
("mariadb" ,mariadb "lib")
("mariadb-dev" ,mariadb "dev")
("postgresql" ,postgresql)))
(propagated-inputs (propagated-inputs
(list emacs-finalize emacs-pg)) (list emacs-finalize emacs-pg))
(home-page "https://github.com/skeeto/emacsql") (home-page "https://github.com/skeeto/emacsql")
@ -16972,22 +16944,16 @@ object @code{nil} corresponds 1:1 with @code{NULL} in the database.")
(package (package
(name "emacs-emacsql-sqlite3") (name "emacs-emacsql-sqlite3")
(version "1.0.2") (version "1.0.2")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/cireu/emacsql-sqlite3") (url "https://github.com/cireu/emacsql-sqlite3")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "1jzvvsvi8jm2ws3y49nmpmwd3zlvf8j83rl2vwizd1aplwwdnmd6"))))
"1jzvvsvi8jm2ws3y49nmpmwd3zlvf8j83rl2vwizd1aplwwdnmd6"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(native-inputs
`(("ert-runner" ,emacs-ert-runner)))
(inputs
(list sqlite))
(propagated-inputs
(list emacs-emacsql))
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("emacs" "-Q" "--batch" "-L" "." #:test-command '("emacs" "-Q" "--batch" "-L" "."
@ -16999,8 +16965,13 @@ object @code{nil} corresponds 1:1 with @code{NULL} in the database.")
(lambda _ (lambda _
(substitute* "emacsql-sqlite3.el" (substitute* "emacsql-sqlite3.el"
(("\\(executable-find \"sqlite3\"\\)") (("\\(executable-find \"sqlite3\"\\)")
(string-append "\"" (which "sqlite3") "\""))) (string-append "\"" (which "sqlite3") "\""))))))))
#t))))) (native-inputs
(list emacs-ert-runner))
(inputs
(list sqlite))
(propagated-inputs
(list emacs-emacsql))
(home-page "https://github.com/cireu/emacsql-sqlite3") (home-page "https://github.com/cireu/emacsql-sqlite3")
(synopsis "EmacSQL backend for SQLite") (synopsis "EmacSQL backend for SQLite")
(description "This is yet another EmacSQL backend for SQLite which uses (description "This is yet another EmacSQL backend for SQLite which uses
@ -17269,15 +17240,15 @@ as well as functions for navigating between these headings.")
(package (package
(name "emacs-org-super-agenda") (name "emacs-org-super-agenda")
(version "1.2") (version "1.2")
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/alphapapa/org-super-agenda") (url "https://github.com/alphapapa/org-super-agenda")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "10l9h2n09cql4ih7nc0ma3ghdsq9l5v9xlj1lg7kq67icdwjlsvy"))))
"10l9h2n09cql4ih7nc0ma3ghdsq9l5v9xlj1lg7kq67icdwjlsvy"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:tests? #t `(#:tests? #t
@ -17294,13 +17265,11 @@ as well as functions for navigating between these headings.")
;; https://github.com/alphapapa/org-super-agenda/issues/183). ;; https://github.com/alphapapa/org-super-agenda/issues/183).
(substitute* "test/test.el" (substitute* "test/test.el"
((".*org-super-agenda-test--:auto-(map|tags).*" all) ((".*org-super-agenda-test--:auto-(map|tags).*" all)
(string-append all " (skip-unless nil)\n"))) (string-append all " (skip-unless nil)\n"))))))))
#t)))))
(native-inputs (native-inputs
`(("emacs-f" ,emacs-f) (list emacs-f util-linux))
("getopt" ,util-linux)))
(propagated-inputs (propagated-inputs
(list emacs-org emacs-dash emacs-ts emacs-ht emacs-s)) (list emacs-dash emacs-ht emacs-org emacs-s emacs-ts))
(home-page "https://github.com/alphapapa/org-super-agenda") (home-page "https://github.com/alphapapa/org-super-agenda")
(synopsis "Supercharged Org agenda") (synopsis "Supercharged Org agenda")
(description "This package allows items in the Org agenda to be grouped (description "This package allows items in the Org agenda to be grouped
@ -20229,13 +20198,9 @@ through the symbol: @command{this-fn}.")
(lambda _ (lambda _
;; Setting the SHELL environment variable is required for the ;; Setting the SHELL environment variable is required for the
;; tests to find sh. ;; tests to find sh.
(setenv "SHELL" (which "sh")) (setenv "SHELL" (which "sh")))))))
#t)))))
(native-inputs (native-inputs
`(("emacs-el-mock" ,emacs-el-mock) (list emacs-el-mock emacs-ert-runner emacs-noflet emacs-undercover))
("emacs-noflet" ,emacs-noflet)
("emacs-undercover" ,emacs-undercover)
("ert-runner" ,emacs-ert-runner)))
(propagated-inputs (propagated-inputs
(list emacs-f emacs-popup)) (list emacs-f emacs-popup))
(home-page "https://github.com/jacktasia/dumb-jump") (home-page "https://github.com/jacktasia/dumb-jump")
@ -21975,24 +21940,22 @@ can be queued at any time.")
(sha256 (sha256
(base32 "010arhvibyw50lqhsr8bm0vj3pzry1h1vgcvxnmyryirk3dv40jl")))) (base32 "010arhvibyw50lqhsr8bm0vj3pzry1h1vgcvxnmyryirk3dv40jl"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(inputs
(list youtube-dl))
(propagated-inputs
`(("async" ,emacs-async)
("transient" ,emacs-transient)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((youtube-dl (assoc-ref inputs "youtube-dl")))
;; .el is read-only in git. ;; .el is read-only in git.
(make-file-writable "ytdl.el") (make-file-writable "ytdl.el")
;; Specify the absolute file names of the various programs so ;; Specify the absolute file names of the various programs so
;; that everything works out-of-the-box. ;; that everything works out-of-the-box.
(emacs-substitute-variables "ytdl.el" (emacs-substitute-variables "ytdl.el"
("ytdl-command" (string-append youtube-dl "/bin/youtube-dl"))) ("ytdl-command"
#t)))))) (search-input-file inputs "/bin/youtube-dl"))))))))
(inputs
(list youtube-dl))
(propagated-inputs
(list emacs-async emacs-transient))
(home-page "https://gitlab.com/tuedachu/ytdl") (home-page "https://gitlab.com/tuedachu/ytdl")
(synopsis "Emacs interface for youtube-dl") (synopsis "Emacs interface for youtube-dl")
(description (description
@ -22211,8 +22174,7 @@ files are easily readable and they work nicely with version control systems.")
#:exclude '("^test/") #:exclude '("^test/")
#:tests? #f)) #:tests? #f))
(propagated-inputs (propagated-inputs
`(("f" ,emacs-f) (list emacs-f emacs-memoize))
("memoize" ,emacs-memoize)))
(home-page "https://github.com/domtronn/all-the-icons.el") (home-page "https://github.com/domtronn/all-the-icons.el")
(synopsis "Collect icon fonts and propertize them within Emacs") (synopsis "Collect icon fonts and propertize them within Emacs")
(description (description
@ -22716,19 +22678,16 @@ other frame parameters.")
(package (package
(name "emacs-arduino-mode") (name "emacs-arduino-mode")
(version (git-version "0" revision commit)) (version (git-version "0" revision commit))
(source (origin (source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/stardiviner/arduino-mode") (url "https://github.com/stardiviner/arduino-mode")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32 "08vnbz9gpah1l93fzfd87aawrhcnh2v1kyfxgsn88pdwg8awz8rx"))
"08vnbz9gpah1l93fzfd87aawrhcnh2v1kyfxgsn88pdwg8awz8rx"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system emacs-build-system) (build-system emacs-build-system)
(inputs
`(("spinner" ,emacs-spinner)
("flycheck" ,emacs-flycheck)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -22739,8 +22698,9 @@ other frame parameters.")
(lambda _ (lambda _
(substitute* "ede-arduino.el" (substitute* "ede-arduino.el"
(("defmethod") "cl-defmethod") (("defmethod") "cl-defmethod")
(("defgeneric") "cl-defgeneric")) (("defgeneric") "cl-defgeneric")))))))
#t))))) (inputs
(list emacs-flycheck emacs-spinner))
(synopsis "Emacs major mode for editing Arduino sketches") (synopsis "Emacs major mode for editing Arduino sketches")
(description "Emacs major mode for editing Arduino sketches.") (description "Emacs major mode for editing Arduino sketches.")
(home-page "https://github.com/stardiviner/arduino-mode") (home-page "https://github.com/stardiviner/arduino-mode")
@ -23155,16 +23115,14 @@ stored playlists.")
("(require 'vterm-module nil t)" ("(require 'vterm-module nil t)"
`(module-load `(module-load
,(string-append (assoc-ref outputs "out") ,(string-append (assoc-ref outputs "out")
"/lib/vterm-module.so")))) "/lib/vterm-module.so"))))))
#t))
(add-after 'build 'configure (add-after 'build 'configure
;; Run cmake. ;; Run cmake.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
((assoc-ref cmake:%standard-phases 'configure) ((assoc-ref cmake:%standard-phases 'configure)
#:outputs outputs #:outputs outputs
#:out-of-source? #f #:out-of-source? #f
#:configure-flags '("-DUSE_SYSTEM_LIBVTERM=ON")) #:configure-flags '("-DUSE_SYSTEM_LIBVTERM=ON"))))
#t))
(add-after 'configure 'make (add-after 'configure 'make
;; Run make. ;; Run make.
(lambda* (#:key (make-flags '()) outputs #:allow-other-keys) (lambda* (#:key (make-flags '()) outputs #:allow-other-keys)
@ -23173,13 +23131,10 @@ stored playlists.")
;; Move the file into /lib. ;; Move the file into /lib.
(install-file (install-file
"vterm-module.so" "vterm-module.so"
(string-append (assoc-ref outputs "out") "/lib")) (string-append (assoc-ref outputs "out") "/lib")))))
#t)))
#:tests? #f)) #:tests? #f))
(native-inputs (native-inputs
`(("cmake" ,cmake-minimal) (list cmake-minimal libtool libvterm))
("libtool" ,libtool)
("libvterm" ,libvterm)))
(home-page "https://github.com/akermu/emacs-libvterm") (home-page "https://github.com/akermu/emacs-libvterm")
(synopsis "Emacs libvterm integration") (synopsis "Emacs libvterm integration")
(description "This package implements a bridge to @code{libvterm} to (description "This package implements a bridge to @code{libvterm} to
@ -24091,7 +24046,7 @@ as Emacs Lisp.")
(native-inputs (native-inputs
(list texinfo)) (list texinfo))
(propagated-inputs (propagated-inputs
`(("dash" ,emacs-dash))) (list emacs-dash))
(home-page "https://magit.vc/manual/transient") (home-page "https://magit.vc/manual/transient")
(synopsis "Transient commands in Emacs") (synopsis "Transient commands in Emacs")
(description "Taking inspiration from prefix keys and prefix arguments (description "Taking inspiration from prefix keys and prefix arguments
@ -24115,18 +24070,6 @@ commands (a prefix and a suffix) we prefer to call it just a \"transient\".")
(sha256 (sha256
(base32 "15zm5azgl8gyd91i40a00ih4s2iwg1r8007n2gcfnmi6m4b7s0ak")))) (base32 "15zm5azgl8gyd91i40a00ih4s2iwg1r8007n2gcfnmi6m4b7s0ak"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(native-inputs
(list texinfo))
(propagated-inputs
`(("emacs-closql" ,emacs-closql)
("emacs-dash" ,emacs-dash)
("emacs-emacsql-sqlite" ,emacs-emacsql)
("emacs-ghub" ,emacs-ghub)
("emacs-let-alist" ,emacs-let-alist)
("emacs-magit" ,emacs-magit)
("emacs-markdown-mode" ,emacs-markdown-mode)
("emacs-transient" ,emacs-transient)
("emacs-yaml" ,emacs-yaml)))
(arguments (arguments
`(#:tests? #f ;no tests `(#:tests? #f ;no tests
#:phases #:phases
@ -24140,6 +24083,18 @@ commands (a prefix and a suffix) we prefer to call it just a \"transient\".")
(add-after 'build-info-manual 'chdir-lisp (add-after 'build-info-manual 'chdir-lisp
(lambda _ (lambda _
(chdir "lisp")))))) (chdir "lisp"))))))
(native-inputs
(list texinfo))
(propagated-inputs
(list emacs-closql
emacs-dash
emacs-emacsql
emacs-ghub
emacs-let-alist
emacs-magit
emacs-markdown-mode
emacs-transient
emacs-yaml))
(home-page "https://github.com/magit/forge/") (home-page "https://github.com/magit/forge/")
(synopsis "Access Git forges from Magit") (synopsis "Access Git forges from Magit")
(description "Work with Git forges, such as Github and Gitlab, from the (description "Work with Git forges, such as Github and Gitlab, from the
@ -26673,12 +26628,11 @@ such as:
(lambda _ (lambda _
(substitute* "flycheck-google-cpplint.el" (substitute* "flycheck-google-cpplint.el"
(("\"cpplint.py\"") (("\"cpplint.py\"")
(string-append "\"" (which "cpplint") "\""))) (string-append "\"" (which "cpplint") "\""))))))))
#t)))))
(inputs (inputs
(list cpplint)) (list cpplint))
(propagated-inputs (propagated-inputs
`(("flycheck-mode" ,emacs-flycheck))) (list emacs-flycheck))
(synopsis "Google C++ checker for Flycheck") (synopsis "Google C++ checker for Flycheck")
(description "This package provides a interface for @code{cpplint} over (description "This package provides a interface for @code{cpplint} over
Flycheck plugin. @code{cpplint} is a static code checker for C++, following Flycheck plugin. @code{cpplint} is a static code checker for C++, following
@ -26752,12 +26706,12 @@ other @code{helm-type-file} sources such as @code{helm-locate}.")
"emacs-telega-test-env.patch")))) "emacs-telega-test-env.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list
(list (string-append "CC=" ,(cc-for-target)) #:make-flags
(string-append "INSTALL_PREFIX=" #~(list (string-append "CC=" ,(cc-for-target))
(assoc-ref %outputs "out") "/bin")) (string-append "INSTALL_PREFIX=" #$output "/bin"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'enter-subdirectory (add-before 'configure 'enter-subdirectory
(lambda _ (chdir "server"))) (lambda _ (chdir "server")))
(replace 'configure (replace 'configure
@ -29168,8 +29122,6 @@ syntax highlighting and UI components.")
(sha256 (sha256
(base32 "0g0y7q62667j0p32md1h6zb2cap9fga9qgdg7138xwjqnk0328v7")))) (base32 "0g0y7q62667j0p32md1h6zb2cap9fga9qgdg7138xwjqnk0328v7"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(propagated-inputs
`(("janet-mode" ,emacs-janet-mode)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -29177,8 +29129,9 @@ syntax highlighting and UI components.")
(lambda _ (lambda _
(make-file-writable "inf-janet.el") (make-file-writable "inf-janet.el")
(emacs-substitute-variables "inf-janet.el" (emacs-substitute-variables "inf-janet.el"
("inf-janet-program" "janet")) ("inf-janet-program" "janet")))))))
#t))))) (propagated-inputs
(list emacs-janet-mode))
(home-page "https://github.com/velkyel/inf-janet") (home-page "https://github.com/velkyel/inf-janet")
(synopsis "Run an external Janet process in an Emacs buffer") (synopsis "Run an external Janet process in an Emacs buffer")
(description (description
@ -29366,8 +29319,7 @@ and preferred services can easily be configured.")
(native-inputs (native-inputs
(list emacs-ecukes emacs-espuds emacs-undercover openjdk9)) (list emacs-ecukes emacs-espuds emacs-undercover openjdk9))
(propagated-inputs (propagated-inputs
`(("emacs-origami" ,emacs-origami-el) (list emacs-origami-el emacs-s))
("emacs-s" ,emacs-s)))
(synopsis "Major mode for viewing and managing Java keystores") (synopsis "Major mode for viewing and managing Java keystores")
(description (description
"This package provides an Elisp wrapper around the Java "This package provides an Elisp wrapper around the Java