Archived
1
0
Fork 0

gnu: global: Use G-expressions.

* gnu/packages/code.scm (global)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-10 19:10:46 +01:00
parent 9526ce9bf1
commit d9d65f4e5b
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -33,6 +33,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages code) (define-module (gnu packages code)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix download) #:use-module (guix download)
@ -140,57 +141,59 @@ highlighting your own code that seemed comprehensible when you wrote it.")
"1kaphc3gml89p8dpdgh2is8hj46wj05689kxj0bmh5q759rxk4vg")))) "1kaphc3gml89p8dpdgh2is8hj46wj05689kxj0bmh5q759rxk4vg"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list #:configure-flags
(list (string-append "--with-ncurses=" #~(list (string-append "--with-ncurses="
(assoc-ref %build-inputs "ncurses")) #$(this-package-input "ncurses"))
(string-append "--with-sqlite3=" (string-append "--with-sqlite3="
(assoc-ref %build-inputs "sqlite")) #$(this-package-input "sqlite"))
(string-append "--with-universal-ctags=" (string-append "--with-universal-ctags="
(assoc-ref %build-inputs "universal-ctags") "/bin/ctags") #$(this-package-input "universal-ctags")
(string-append "--sysconfdir=" "/bin/ctags")
(assoc-ref %outputs "out") "/share/gtags") (string-append "--sysconfdir="
"--localstatedir=/var" ; This needs to be a writable location. #$output "/share/gtags")
"--disable-static") "--localstatedir=/var" ; This needs to be a writable location.
"--disable-static")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-globash (add-after 'unpack 'fix-globash
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((echo (string-append (substitute* "globash/globash.in"
(assoc-ref inputs "coreutils") "/bin/echo"))) (("/bin/echo")
(substitute* "globash/globash.in" (search-input-file inputs "bin/echo")))))
(("/bin/echo") echo))))) (add-after 'post-install 'install-plugins
(add-after 'post-install 'install-plugins (lambda _
(lambda _ (with-directory-excursion "plugin-factory"
(with-directory-excursion "plugin-factory" (invoke "make" "install"))))
(invoke "make" "install")))) (add-before 'install 'dont-install-to-/var
(add-before 'install 'dont-install-to-/var (lambda _
(lambda _ (substitute* "gozilla/Makefile"
(substitute* "gozilla/Makefile" (("DESTDIR\\)\\$\\{localstatedir\\}")
(("DESTDIR\\)\\$\\{localstatedir\\}") "TMPDIR)")))) "TMPDIR)"))))
(add-after 'install-plugins 'wrap-program (add-after 'install-plugins 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(wrap-program (wrap-program
(string-append (assoc-ref outputs "out") (string-append #$output
"/share/gtags/script/pygments_parser.py") "/share/gtags/script/pygments_parser.py")
`("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))))) `("GUIX_PYTHONPATH" ":" prefix
(add-after 'install 'post-install (,(getenv "GUIX_PYTHONPATH"))))))
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'post-install
;; Install the plugin files in the right place. (lambda _
(let* ((out (assoc-ref outputs "out")) ;; Install the plugin files in the right place.
(data (string-append out "/share/gtags")) (let* ((data (string-append #$output "/share/gtags"))
(vim (string-append out "/share/vim/vimfiles/plugin")) (vim (string-append #$output
(lisp (string-append out "/share/emacs/site-lisp/" "/share/vim/vimfiles/plugin"))
,(package-name this-package) "-" (lisp (string-append #$output "/share/emacs/site-lisp/"
,(package-version this-package)))) #$(package-name this-package) "-"
(mkdir-p lisp) #$(package-version this-package))))
(mkdir-p vim) (mkdir-p lisp)
(rename-file (string-append data "/gtags.el") (mkdir-p vim)
(string-append lisp "/gtags.el")) (rename-file (string-append data "/gtags.el")
(rename-file (string-append data "/gtags.vim") (string-append lisp "/gtags.el"))
(string-append vim "/gtags.vim")) (rename-file (string-append data "/gtags.vim")
(rename-file (string-append data "/gtags-cscope.vim") (string-append vim "/gtags.vim"))
(string-append vim "/gtags-cscope.vim")))))))) (rename-file (string-append data "/gtags-cscope.vim")
(string-append vim "/gtags-cscope.vim"))))))))
(inputs (inputs
(list bash-minimal ; for wrap-program (list bash-minimal ; for wrap-program
coreutils coreutils