The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Stop xterm-color from removing text properties.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
1d0b1fe
..
b018cc9
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-61,8
+61,8
@@
;; Full instructions can be found in the Elpher info manual.
;; Elpher is under active development. Any suggestions for
;; Full instructions can be found in the Elpher info manual.
;; Elpher is under active development. Any suggestions for
-;; improvements are welcome, and can be made on the official
-;; p
roject page, gopher://thelambdalab.xyz
/elpher, or via the
+;; improvements are welcome, and can be made on the official
project
+;; p
age, gopher://thelambdalab.xyz/1/projects
/elpher, or via the
;; project mailing list at https://lists.sr.ht/~michel-slm/elpher.
;;; Code:
;; project mailing list at https://lists.sr.ht/~michel-slm/elpher.
;;; Code:
@@
-138,12
+138,15
@@
;;
(eval-when-compile
;;
(eval-when-compile
- (defvar bookmark-make-record-function)
+ (declare-function ansi-color-filter-apply "ansi-color")
+ (declare-function ansi-color-apply "ansi-color")
(declare-function bookmark-store "bookmark")
(declare-function org-link-store-props "ol")
(declare-function org-link-set-parameters "ol")
(declare-function bookmark-store "bookmark")
(declare-function org-link-store-props "ol")
(declare-function org-link-set-parameters "ol")
- (defvar thing-at-point-uri-schemes)
- (defvar mu4e~view-beginning-of-url-regexp))
+ (defvar ansi-color-context)
+ (defvar bookmark-make-record-function)
+ (defvar mu4e~view-beginning-of-url-regexp)
+ (defvar thing-at-point-uri-schemes))
;;; Customization group
;;; Customization group
@@
-723,7
+726,7
@@
the host operating system and the local network capabilities.)"
:hostname host
:keylist
(elpher-get-current-keylist address)))
:hostname host
:keylist
(elpher-get-current-keylist address)))
- (timer (elpher-
get
-network-timer
+ (timer (elpher-
make
-network-timer
(lambda ()
(elpher-process-cleanup)
(cond
(lambda ()
(elpher-process-cleanup)
(cond
@@
-1671,26
+1674,35
@@
The result is rendered using RENDERER."
"(Bookmarks from legacy elpher-bookmarks files will be automatically imported.)\n"
'face 'shadow))
(insert "\n"
"(Bookmarks from legacy elpher-bookmarks files will be automatically imported.)\n"
'face 'shadow))
(insert "\n"
- "
For Elpher release news or to leave feedback, visit
:\n")
+ "
The gopher home of the Elpher project is here
:\n")
(elpher-insert-index-record "The Elpher Project Page"
(elpher-make-gopher-address ?1
"/projects/elpher/"
"thelambdalab.xyz"
70))
(elpher-insert-index-record "The Elpher Project Page"
(elpher-make-gopher-address ?1
"/projects/elpher/"
"thelambdalab.xyz"
70))
- (insert "\n"
- "** Refer to the ")
(let ((help-string "RET,mouse-1: Open Elpher info manual (if available)"))
(let ((help-string "RET,mouse-1: Open Elpher info manual (if available)"))
- (insert-text-button "Elpher info manual"
+ (insert "\n"
+ "The following info documentation is available:\n"
+ " - ")
+ (insert-text-button "Elpher Manual"
'face 'link
'action (lambda (_)
(interactive)
(info "(elpher)"))
'follow-link t
'face 'link
'action (lambda (_)
(interactive)
(info "(elpher)"))
'follow-link t
- 'help-echo help-string))
- (insert " for the full documentation. **\n")
+ 'help-echo help-string)
+ (insert "\n - ")
+ (insert-text-button "Changes introduced by the latest release"
+ 'face 'link
+ 'action (lambda (_)
+ (interactive)
+ (info "(elpher)News"))
+ 'follow-link t
+ 'help-echo help-string))
+ (insert "\n")
(insert (propertize
(insert (propertize
- (concat " (Th
is should be available if you have installed Elpher using
\n"
- "
MELPA. Otherwise you will
have to install the manual yourself.)\n")
+ (concat " (Th
ese documents should be available if you have installed Elpher
\n"
+ "
using MELPA. Otherwise you may
have to install the manual yourself.)\n")
'face 'shadow))
(elpher-restore-pos)))
'face 'shadow))
(elpher-restore-pos)))
@@
-2228,7
+2240,8
@@
functions which initialize the client, namely
(setq-local elpher-history nil)
(setq-local elpher-buffer-name (buffer-name))
(setq-local bookmark-make-record-function #'elpher-bookmark-make-record)
(setq-local elpher-history nil)
(setq-local elpher-buffer-name (buffer-name))
(setq-local bookmark-make-record-function #'elpher-bookmark-make-record)
- (setq-local imenu-create-index-function (lambda () elpher--gemini-page-headings)))
+ (setq-local imenu-create-index-function (lambda () elpher--gemini-page-headings))
+ (setq-local xterm-color-preserve-properties t))
(when (fboundp 'evil-set-initial-state)
(evil-set-initial-state 'elpher-mode 'motion))
(when (fboundp 'evil-set-initial-state)
(evil-set-initial-state 'elpher-mode 'motion))