me/guix
Archived
1
0
Fork 0
Code Activity

gnu: global: Use G-expressions.

Browse source 
* 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
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/>. ;;; 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,26 +141,26 @@ 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")
"/bin/ctags")
(string-append "--sysconfdir=" (string-append "--sysconfdir="
(assoc-ref %outputs "out") "/share/gtags") #$output "/share/gtags")
"--localstatedir=/var" ; This needs to be a writable location. "--localstatedir=/var" ; This needs to be a writable location.
"--disable-static") "--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
(assoc-ref inputs "coreutils") "/bin/echo")))
(substitute* "globash/globash.in" (substitute* "globash/globash.in"
(("/bin/echo") echo))))) (("/bin/echo")
(search-input-file inputs "bin/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"
@ -167,22 +168,24 @@ highlighting your own code that seemed comprehensible when you wrote it.")
(add-before 'install 'dont-install-to-/var (add-before 'install 'dont-install-to-/var
(lambda _ (lambda _
(substitute* "gozilla/Makefile" (substitute* "gozilla/Makefile"
(("DESTDIR\\)\\$\\{localstatedir\\}") "TMPDIR)")))) (("DESTDIR\\)\\$\\{localstatedir\\}")
"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
(,(getenv "GUIX_PYTHONPATH"))))))
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys) (lambda _
;; Install the plugin files in the right place. ;; Install the plugin files in the right place.
(let* ((out (assoc-ref outputs "out")) (let* ((data (string-append #$output "/share/gtags"))
(data (string-append out "/share/gtags")) (vim (string-append #$output
(vim (string-append out "/share/vim/vimfiles/plugin")) "/share/vim/vimfiles/plugin"))
(lisp (string-append out "/share/emacs/site-lisp/" (lisp (string-append #$output "/share/emacs/site-lisp/"
,(package-name this-package) "-" #$(package-name this-package) "-"
,(package-version this-package)))) #$(package-version this-package))))
(mkdir-p lisp) (mkdir-p lisp)
(mkdir-p vim) (mkdir-p vim)
(rename-file (string-append data "/gtags.el") (rename-file (string-append data "/gtags.el")