mirror of
https://codeberg.org/guix/guix.git
synced 2025-10-02 02:15:12 +00:00
gnu: emacs-telega: Update to 0.7.15-1.b4a5e20.
* gnu/packages/emacs-xyz.scm (emacs-telega-server): Update to 0.7.15-1.b4a5e20. * gnu/packages/patches/emacs-telega-path-placeholder.patch: Match patch with newer source code. * gnu/packages/patches/emacs-telega-test-env.patch: Match patch with newer source code. Signed-off-by: Nicolas Goaziou <mail@nicolasgoaziou.fr>
This commit is contained in:
Andrew Tropin
Nicolas Goaziou
parent
649ab3fe2d
commit
2e28b450d5
3 changed files with 93 additions and 86 deletions
|
|
@ -27164,55 +27164,57 @@ other @code{helm-type-file} sources such as @code{helm-locate}.")
|
||||||
(license license:gpl3+)))
|
(license license:gpl3+)))
|
||||||
|
|
||||||
(define-public emacs-telega-server
|
(define-public emacs-telega-server
|
||||||
(package
|
(let ((commit "b4a5e206bd259f3d7f7633a725b2990704d6a1e8")
|
||||||
(name "emacs-telega-server")
|
(revision "1"))
|
||||||
(version "0.7.031")
|
(package
|
||||||
(source
|
(name "emacs-telega-server")
|
||||||
(origin
|
(version (git-version "0.7.15" revision commit))
|
||||||
(method git-fetch)
|
(source
|
||||||
(uri (git-reference
|
(origin
|
||||||
(url "https://github.com/zevlg/telega.el")
|
(method git-fetch)
|
||||||
(commit (string-append "v" version))))
|
(uri (git-reference
|
||||||
(sha256
|
(url "https://github.com/zevlg/telega.el")
|
||||||
(base32 "05j82796s4k3yr0igl6hir3p8qj0cw66vvhbpbcy28d6q9v9vjjz"))
|
(commit commit)))
|
||||||
(file-name (git-file-name "emacs-telega" version))
|
(sha256
|
||||||
(patches
|
(base32 "0gr4nmpk175hxmj357bpzaqywbjc6dmmvfxnyzkh884vyzbwdxlc"))
|
||||||
(search-patches "emacs-telega-path-placeholder.patch"
|
(file-name (git-file-name "emacs-telega" version))
|
||||||
"emacs-telega-test-env.patch"))))
|
(patches
|
||||||
(build-system gnu-build-system)
|
(search-patches "emacs-telega-path-placeholder.patch"
|
||||||
(arguments
|
"emacs-telega-test-env.patch"))))
|
||||||
`(#:make-flags
|
(build-system gnu-build-system)
|
||||||
(list (string-append "CC=" ,(cc-for-target))
|
(arguments
|
||||||
(string-append "INSTALL_PREFIX="
|
`(#:make-flags
|
||||||
(assoc-ref %outputs "out") "/bin"))
|
(list (string-append "CC=" ,(cc-for-target))
|
||||||
#:phases
|
(string-append "INSTALL_PREFIX="
|
||||||
(modify-phases %standard-phases
|
(assoc-ref %outputs "out") "/bin"))
|
||||||
(add-before 'configure 'enter-subdirectory
|
#:phases
|
||||||
(lambda _ (chdir "server") #t))
|
(modify-phases %standard-phases
|
||||||
(replace 'configure
|
(add-before 'configure 'enter-subdirectory
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda _ (chdir "server")))
|
||||||
(let ((out (assoc-ref outputs "out")))
|
(replace 'configure
|
||||||
(substitute* "run_tests.py"
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(("^(TELEGA_SERVER = ).*$" _all prefix)
|
(let ((out (assoc-ref outputs "out")))
|
||||||
(string-append prefix
|
(substitute* "run_tests.py"
|
||||||
"\"" out "/bin/telega-server\"\n"))))))
|
(("^(TELEGA_SERVER = ).*$" _all prefix)
|
||||||
(delete 'check)
|
(string-append prefix
|
||||||
(add-after 'install 'check
|
"\"" out "/bin/telega-server\"\n"))))))
|
||||||
(assoc-ref %standard-phases 'check))
|
(delete 'check)
|
||||||
(add-before 'install-license-files 'leave-subdirectory
|
(add-after 'install 'check
|
||||||
(lambda _ (chdir "..") #t)))
|
(assoc-ref %standard-phases 'check))
|
||||||
#:test-target "test"))
|
(add-before 'install-license-files 'leave-subdirectory
|
||||||
(inputs
|
(lambda _ (chdir ".."))))
|
||||||
`(("tdlib" ,tdlib)
|
#:test-target "test"))
|
||||||
("libappindicator" ,libappindicator)))
|
(inputs
|
||||||
(native-inputs
|
`(("tdlib" ,tdlib)
|
||||||
`(("python" ,python)
|
("libappindicator" ,libappindicator)))
|
||||||
("pkg-config" ,pkg-config)))
|
(native-inputs
|
||||||
(home-page "https://zevlg.github.io/telega.el/")
|
`(("python" ,python)
|
||||||
(synopsis "Server process of Telega")
|
("pkg-config" ,pkg-config)))
|
||||||
(description "Telega-server is helper program to interact with Telegram
|
(home-page "https://zevlg.github.io/telega.el/")
|
||||||
|
(synopsis "Server process of Telega")
|
||||||
|
(description "Telega-server is helper program to interact with Telegram
|
||||||
service, and connect it with Emacs via inter-process communication.")
|
service, and connect it with Emacs via inter-process communication.")
|
||||||
(license license:gpl3+)))
|
(license license:gpl3+))))
|
||||||
|
|
||||||
(define-public emacs-telega
|
(define-public emacs-telega
|
||||||
(package
|
(package
|
||||||
|
|
@ -27246,7 +27248,7 @@ service, and connect it with Emacs via inter-process communication.")
|
||||||
"\"" 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-customize.el"
|
||||||
(("@TELEGA_SERVER_BIN@")
|
(("@TELEGA_SERVER_BIN@")
|
||||||
(string-append (assoc-ref inputs "emacs-telega-server")
|
(string-append (assoc-ref inputs "emacs-telega-server")
|
||||||
"/bin/telega-server")))
|
"/bin/telega-server")))
|
||||||
|
|
|
||||||
|
|
@ -1,36 +1,31 @@
|
||||||
From 865b8c553722a971c68742c2e849e41eb0e2360c Mon Sep 17 00:00:00 2001
|
From bf95de21faa623e48bca00d6a2c9b33ab2c5d812 Mon Sep 17 00:00:00 2001
|
||||||
From: Zhu Zihao <all_but_last@163.com>
|
From: Andrew Tropin <andrew@trop.in>
|
||||||
Date: Thu, 24 Jun 2021 23:43:50 +0800
|
Date: Wed, 8 Dec 2021 11:01:31 +0300
|
||||||
Subject: [PATCH] Replace code that search path with placeholder for
|
Subject: [PATCH] Use absolute path for telega-server-command.
|
||||||
configuration.
|
|
||||||
|
|
||||||
---
|
---
|
||||||
telega-server.el | 6 +-----
|
telega-customize.el | 2 +-
|
||||||
telega-util.el | 2 +-
|
telega-util.el | 2 +-
|
||||||
2 files changed, 2 insertions(+), 6 deletions(-)
|
2 files changed, 2 insertions(+), 2 deletions(-)
|
||||||
|
|
||||||
diff --git a/telega-server.el b/telega-server.el
|
diff --git a/telega-customize.el b/telega-customize.el
|
||||||
index 999125d..0fa0817 100644
|
index 0af343f..cc2938c 100644
|
||||||
--- a/telega-server.el
|
--- a/telega-customize.el
|
||||||
+++ b/telega-server.el
|
+++ b/telega-customize.el
|
||||||
@@ -142,11 +142,7 @@ Otherwise query user about building flags."
|
@@ -591,7 +591,7 @@ In range [1..3]. Use 1."
|
||||||
(defun telega-server--find-bin ()
|
:prefix "telega-server-"
|
||||||
"Find telega-server executable.
|
:group 'telega)
|
||||||
Raise error if not found."
|
|
||||||
- (let ((exec-path (cons telega-directory exec-path)))
|
|
||||||
- (or (executable-find "telega-server")
|
|
||||||
- (progn (telega-server-build)
|
|
||||||
- (executable-find "telega-server"))
|
|
||||||
- (error "`telega-server' not found in exec-path"))))
|
|
||||||
+ "@TELEGA_SERVER_BIN@")
|
|
||||||
|
|
||||||
(defun telega-server-version ()
|
-(defcustom telega-server-command "telega-server"
|
||||||
"Return telega-server version."
|
+(defcustom telega-server-command "@TELEGA_SERVER_BIN@"
|
||||||
|
"Command to run as telega server.
|
||||||
|
It should be absolute path or binary file searchable in `exec-path'."
|
||||||
|
:type 'string
|
||||||
diff --git a/telega-util.el b/telega-util.el
|
diff --git a/telega-util.el b/telega-util.el
|
||||||
index 73a46b1..f53e20a 100644
|
index 6340c27..01e3cb7 100644
|
||||||
--- a/telega-util.el
|
--- a/telega-util.el
|
||||||
+++ b/telega-util.el
|
+++ b/telega-util.el
|
||||||
@@ -464,7 +464,7 @@ N can't be 0."
|
@@ -587,7 +587,7 @@ N can't be 0."
|
||||||
|
|
||||||
(defun telega-etc-file (filename)
|
(defun telega-etc-file (filename)
|
||||||
"Return absolute path to FILENAME from etc/ directory in telega."
|
"Return absolute path to FILENAME from etc/ directory in telega."
|
||||||
|
|
@ -40,5 +35,5 @@ index 73a46b1..f53e20a 100644
|
||||||
(defun telega-link-props (link-type link-to &optional face)
|
(defun telega-link-props (link-type link-to &optional face)
|
||||||
"Generate props for link button openable with `telega-link--button-action'."
|
"Generate props for link button openable with `telega-link--button-action'."
|
||||||
--
|
--
|
||||||
2.32.0
|
2.34.0
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,14 +1,24 @@
|
||||||
Test Emacs environment on startup.
|
From 237ea2471bb6521390bbac174ac2a8a5e9683e4d Mon Sep 17 00:00:00 2001
|
||||||
|
From: Andrew Tropin <andrew@trop.in>
|
||||||
|
Date: Tue, 7 Dec 2021 16:20:38 +0300
|
||||||
|
Subject: [PATCH] Test Emacs environment on startup.
|
||||||
|
|
||||||
Patch by Diego N. Barbato
|
---
|
||||||
|
telega.el | 2 +-
|
||||||
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
||||||
|
|
||||||
--- a/telega.el 2020-02-07 17:07:18.549970090 +0100
|
diff --git a/telega.el b/telega.el
|
||||||
+++ b/telega.el 2020-02-07 17:10:08.383499765 +0100
|
index d6b28b5..40854ec 100644
|
||||||
@@ -82,6 +82,7 @@
|
--- a/telega.el
|
||||||
"Start telegramming.
|
+++ b/telega.el
|
||||||
If prefix ARG is given, then will not pop to telega root buffer."
|
@@ -181,7 +181,7 @@ can't write to `telega-server-logfile'" logfile-dir)))
|
||||||
|
Pop to root buffer.
|
||||||
|
If `\\[universal-argument]' is specified, then do not pop to root buffer."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
|
-
|
||||||
+ (telega-test-env t)
|
+ (telega-test-env t)
|
||||||
(telega--create-hier)
|
;; For multiple accounts setup possibly select (if there is no
|
||||||
|
;; default account declared) an account to use
|
||||||
(unless (telega-server-live-p)
|
(if (and telega-accounts (not (telega-account-current)))
|
||||||
|
--
|
||||||
|
2.34.0
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue