gnu: emacs-telega-server: Update to 0.8.03-0.01e8f9e.

* gnu/packages/emacs-xyz.scm (emacs-telega-server): Update to 0.8.03-0.01e8f9e.
(emacs-telega): Update build phase to patch telega-core.el instead of
telega-util.el.
* gnu/packages/patches/emacs-telega-path-placeholder.patch: Update patch.

gnu/packages/emacs-xyz.scm

@@ -30976,17 +30976,19 @@ other @code{helm-type-file} sources such as @code{helm-locate}.")
     (license license:gpl3+)))
 
 (define-public emacs-telega-server
+  (let ((commit "01e8f9e397bb18522b76d3bcdb74f5798e7c4999")
+        (revision "0"))
     (package
       (name "emacs-telega-server")
-    (version "0.8.03")
+      (version (git-version "0.8.03" revision commit))
       (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/zevlg/telega.el")
-             (commit (string-append "v" version))))
+               (commit commit)))
          (sha256
-        (base32 "1ffy17i5fi1bw5r5m6x372c52hc1k83wxdxvi4z0hixyklj48nsv"))
+          (base32 "0fv0czx61rsvgf9jnn8nvng7flnihnjhym73hli5fzfgdx15lam7"))
          (file-name (git-file-name "emacs-telega" version))
          (patches
           (search-patches "emacs-telega-path-placeholder.patch"
@@ -31021,7 +31023,7 @@ other @code{helm-type-file} sources such as @code{helm-locate}.")
       (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.")
-    (license license:gpl3+)))
+      (license license:gpl3+))))
 
 (define-public emacs-telega
   (package
@@ -31059,7 +31061,7 @@ service, and connect it with Emacs via inter-process communication.")
               (substitute* "telega-customize.el"
                 (("@TELEGA_SERVER_BIN@")
                  (search-input-file inputs "/bin/telega-server")))
-              (substitute* "telega-util.el"
+              (substitute* "telega-core.el"
                 (("@TELEGA_SHARE@")
                  (string-append (elpa-directory (assoc-ref outputs "out"))
                                 "/etc"))))))))

gnu/packages/patches/emacs-telega-path-placeholder.patch

@@ -1,18 +1,31 @@
-From bf95de21faa623e48bca00d6a2c9b33ab2c5d812 Mon Sep 17 00:00:00 2001
+From bfcd616f2870c8c3ffc9a526fcd574eb5e726a96 Mon Sep 17 00:00:00 2001
 From: Andrew Tropin <andrew@trop.in>
-Date: Wed, 8 Dec 2021 11:01:31 +0300
+Date: Sat, 14 Jan 2023 09:33:34 +0400
-Subject: [PATCH] Use absolute path for telega-server-command.
+Subject: [PATCH] Add path placeholder for telega-server-command and etc-file.
 
 ---
+ telega-core.el      | 2 +-
  telega-customize.el | 2 +-
- telega-util.el      | 2 +-
  2 files changed, 2 insertions(+), 2 deletions(-)
 
+diff --git a/telega-core.el b/telega-core.el
+index 36f121e..f9f7976 100644
+--- a/telega-core.el
++++ b/telega-core.el
+@@ -41,7 +41,7 @@
+ 
+ (defun telega-etc-file (filename)
+   "Return absolute path to FILENAME from etc/ directory in telega."
+-  (expand-file-name (concat "etc/" filename) telega--lib-directory))
++  (concat "@TELEGA_SHARE@" "/" filename))
+ 
+ (defconst telega-spoiler-translation-table
+   (let ((table (make-char-table 'translation-table)))
 diff --git a/telega-customize.el b/telega-customize.el
-index 0af343f..cc2938c 100644
+index 0efb001..77cec5f 100644
 --- a/telega-customize.el
 +++ b/telega-customize.el
-@@ -591,7 +591,7 @@ In range [1..3].  Use 1."
+@@ -633,7 +633,7 @@ In range [1..3].  Use 1."
    :prefix "telega-server-"
    :group 'telega)
  
@@ -21,19 +34,5 @@ index 0af343f..cc2938c 100644
    "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
-index 6340c27..01e3cb7 100644
---- a/telega-util.el
-+++ b/telega-util.el
-@@ -587,7 +587,7 @@ N can't be 0."
- 
- (defun telega-etc-file (filename)
-   "Return absolute path to FILENAME from etc/ directory in telega."
--  (expand-file-name (concat "etc/" filename) telega--lib-directory))
-+  (concat "@TELEGA_SHARE@" "/" filename))
- 
- (defun telega-link-props (link-type link-to &optional face)
-   "Generate props for link button openable with `telega-link--button-action'."
 -- 
-2.34.0
+2.38.1
-