gnu: global: Use G-expressions.
* gnu/packages/code.scm (global)[arguments]: Rewrite as G-expressions.
This commit is contained in:
parent
9526ce9bf1
commit
d9d65f4e5b
1 changed files with 53 additions and 50 deletions
|
@ -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
|
||||||
|
|
Reference in a new issue