me
/
guix
Archived
1
0
Fork 0
Code

gnu: global: Use G-expressions. 

* gnu/packages/code.scm (global)[arguments]:
Rewrite as G-expressions.
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
1 changed files with 53 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
gnu/packages/code.scm
View File

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