mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-23 10:47:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-telega: Fix 'patch-source' phase.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-telega)[#:phases]<patch-sources>:
Add missing slash in ‘/bin’ when patching general commands.
Also patch telega-vvnote.el.

Signed-off-by: Leo Prikler <leo.prikler@student.tugraz.at>
This commit is contained in:
Zhu Zihao 2021-07-09 22:58:34 +08:00 committed by Leo Prikler
parent cf88c967af
commit 2086a6a335
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -26290,17 +26290,17 @@ (define-public emacs-telega
(let* ((ffmpeg (assoc-ref inputs "ffmpeg")) (let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
(ffmpeg-bin (string-append ffmpeg "/bin/ffmpeg")) (ffmpeg-bin (string-append ffmpeg "/bin/ffmpeg"))
(ffplay-bin (string-append ffmpeg "/bin/ffplay"))) (ffplay-bin (string-append ffmpeg "/bin/ffplay")))
(substitute* "telega-ffplay.el" (substitute* '("telega-ffplay.el" "telega-vvnote.el")
(("(shell-command-to-string\|concat) \"(ffmpeg\|ffprobe)" (("(shell-command-to-string\|concat) \"(ffmpeg\|ffprobe)"
all func cmd) all func cmd)
(string-append func " \"" (assoc-ref inputs "ffmpeg") (string-append func " \"" (assoc-ref inputs "ffmpeg")
"bin/" cmd)) "/bin/" cmd))
(("\\(executable-find \"ffplay\"\\)") (("\\(executable-find \"ffplay\"\\)")
(string-append "(and (file-executable-p \"" ffplay-bin "\")" (string-append "(and (file-executable-p \"" ffplay-bin "\")"
"\"" ffplay-bin "\")")) "\"" ffplay-bin "\")"))
(("\\(executable-find \"ffmpeg\"\\)") (("\\(executable-find \"ffmpeg\"\\)")
(string-append "(and (file-executable-p \"" ffmpeg-bin "\")" (string-append "(and (file-executable-p \"" ffmpeg-bin "\")"
"\"" ffmpeg-bin "\")")))))) "\"" ffmpeg-bin "\")"))))))
(add-after 'unpack 'configure (add-after 'unpack 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "telega-server.el" (substitute* "telega-server.el"