me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-telega: Install etc directory to better path. 

* gnu/packages/emacs-xyz.scm (emacs-telega)[arguments]: Add the #:include
argument.  Remove install-share-files phase.

Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
master
Z572 2021-09-06 18:56:18 +08:00 committed by Nicolas Goaziou
parent 1ada5e28ba
commit 30a31004b1
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 3 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/emacs-xyz.scm
View File

@ -26718,6 +26718,7 @@ service, and connect it with Emacs via inter-process communication.")
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)
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-sources (add-after 'unpack 'patch-sources
@ -26745,24 +26746,8 @@ service, and connect it with Emacs via inter-process communication.")
"/bin/telega-server"))) "/bin/telega-server")))
(substitute* "telega-util.el" (substitute* "telega-util.el"
(("@TELEGA_SHARE@") (("@TELEGA_SHARE@")
(string-append (assoc-ref outputs "out") (string-append (elpa-directory (assoc-ref outputs "out"))
"/share/emacs-telega"))))) "/etc"))))))))
(add-after 'install 'install-share-files
(lambda* (#:key outputs #:allow-other-keys)
(define install-plan
'("langs" "sounds" "emojis.alist"
"verified.svg" "telega-logo.svg"))
(define prefix (string-append (assoc-ref outputs "out")
"/share/emacs-telega"))
(with-directory-excursion "etc"
(for-each (lambda (file)
(if (file-is-directory? file)
(let ((dest (string-append prefix "/" file)))
(copy-recursively file dest))
(install-file file prefix)))
install-plan))
#t)))))
(inputs (inputs
`(("emacs-telega-server" ,emacs-telega-server) `(("emacs-telega-server" ,emacs-telega-server)
("ffmpeg" ,ffmpeg))) ("ffmpeg" ,ffmpeg)))