branch: externals/srht
commit 0db131021857d83c293999f4c2b3727051b86bb1
Author: Aleksandr Vityazev <avitya...@posteo.org>
Commit: Aleksandr Vityazev <avitya...@posteo.org>
Downgrade Emacs requirements to 27.1.
---
lisp/srht-paste.el | 18 +++++++++++++++++-
lisp/srht-pkg.el | 2 +-
lisp/srht.el | 2 +-
3 files changed, 19 insertions(+), 3 deletions(-)
diff --git a/lisp/srht-paste.el b/lisp/srht-paste.el
index 82b89a91aa..c7365e0959 100644
--- a/lisp/srht-paste.el
+++ b/lisp/srht-paste.el
@@ -103,9 +103,25 @@ the whole buffer."
(buffer-substring-no-properties (region-beginning) (region-end))
(buffer-string)))
+(defalias 'srht-paste-file-name-concat
+ (if (fboundp 'file-name-concat)
+ #'file-name-concat
+ (lambda (directory &rest components)
+ (let ((components (cl-remove-if (lambda (el)
+ (or (null el) (equal "" el)))
+ components))
+ file-name-handler-alist)
+ (if (null components)
+ directory
+ (apply #'srht-paste-file-name-concat
+ (concat (unless (or (equal "" directory) (null directory))
+ (file-name-as-directory directory))
+ (car components))
+ (cdr components)))))))
+
(defun srht-paste--kill-link (name sha)
"Make URL constructed from NAME and SHA the latest kill in the kill ring."
- (kill-new (file-name-concat (srht--make-uri 'paste nil nil) name sha))
+ (kill-new (srht-paste-file-name-concat (srht--make-uri 'paste nil nil) name
sha))
(message "Paste URL in kill-ring"))
(defun srht-paste--else (plz-error)
diff --git a/lisp/srht-pkg.el b/lisp/srht-pkg.el
index 549c9c768e..17f71d54ad 100644
--- a/lisp/srht-pkg.el
+++ b/lisp/srht-pkg.el
@@ -3,7 +3,7 @@
"srht"
"0.1.0"
"Sourcehut"
- '((emacs "28.1") (plz "0.1-pre"))
+ '((emacs "27.1") (plz "0.1-pre"))
:authors '(("Aleksandr Vityazev" . "avitya...@posteo.org"))
:maintainer '("Aleksandr Vityazev" . "avitya...@posteo.org")
:keywords '("comm"))
diff --git a/lisp/srht.el b/lisp/srht.el
index 0287bb40b6..c27309a97a 100644
--- a/lisp/srht.el
+++ b/lisp/srht.el
@@ -7,7 +7,7 @@
;; Package-Version: 0.1.0
;; Homepage: https://sr.ht/~akagi/srht.el/
;; Keywords: comm
-;; Package-Requires: ((emacs "28.1") (plz "0.1-pre"))
+;; Package-Requires: ((emacs "27.1") (plz "0.1-pre"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
