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: telega: Use new package style.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-telega, emacs-telega-contrib): Use gexps,
remove trailing #t.
This commit is contained in:
Andrew Tropin 2022-01-20 14:09:14 +03:00
parent 6fe253da9b
commit 6cba399c04
No known key found for this signature in database
GPG key ID: 2208D20958C1DEB0
1 changed files with 42 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -30403,13 +30403,14 @@ service, and connect it with Emacs via inter-process communication.")
(name "emacs-telega") (name "emacs-telega")
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:emacs ,(if (target-64bit?) (list
#:emacs (if (target-64bit?)
emacs-minimal emacs-minimal
;; Require wide-int support for 32-bit platform. ;; Require wide-int support for 32-bit platform.
emacs-wide-int) emacs-wide-int)
#:include (cons "^etc\\/" %default-include) #:include #~(cons "^etc\\/" %default-include)
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-sources (add-after 'unpack 'patch-sources
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Hard-code paths to `ffplay` and `ffmpeg`. ;; Hard-code paths to `ffplay` and `ffmpeg`.
@ -30451,13 +30452,14 @@ for the Telegram messaging platform.")))
(inherit emacs-telega) (inherit emacs-telega)
(name "emacs-telega-contrib") (name "emacs-telega-contrib")
(arguments (arguments
`(#:exclude '("telega-live-location.el") (list
#:exclude #~(list "telega-live-location.el")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'enter-subdirectory (add-after 'unpack 'enter-subdirectory
(lambda _ (chdir "contrib") #t)) (lambda _ (chdir "contrib")))
(add-before 'install-license-files 'leave-subdirectory (add-before 'install-license-files 'leave-subdirectory
(lambda _ (chdir "..") #t))))) (lambda _ (chdir ".."))))))
(inputs '()) (inputs '())
(native-inputs '()) (native-inputs '())
(propagated-inputs (propagated-inputs