The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c8c2d1a
)
Bookmarks link on main page now a regular page link.
author
plugd
<plugd@thelambdalab.xyz>
Tue, 3 Aug 2021 12:24:11 +0000
(14:24 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Tue, 3 Aug 2021 12:24:11 +0000
(14:24 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
1178bfc
..
fbdc953
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-1053,9
+1053,7
@@
displayed. The _WINDOW argument is currently unused."
(when button
(let* ((page (button-get button 'elpher-page))
(address (elpher-page-address page)))
(when button
(let* ((page (button-get button 'elpher-page))
(address (elpher-page-address page)))
- (format "mouse-1, RET: open '%s'" (if (elpher-address-about-p address)
- address
- (elpher-address-to-url address))))))))
+ (format "mouse-1, RET: open '%s'" (elpher-address-to-url address)))))))
(defun elpher-insert-index-record (display-string &optional address)
"Function to insert an index record into the current buffer.
(defun elpher-insert-index-record (display-string &optional address)
"Function to insert an index record into the current buffer.
@@
-1721,11
+1719,12
@@
Assumes UTF-8 encoding for all text files."
(let ((help-string "RET,mouse-1: Open bookmark list"))
(insert-text-button "bookmark list"
'face 'link
(let ((help-string "RET,mouse-1: Open bookmark list"))
(insert-text-button "bookmark list"
'face 'link
- 'action (lambda (_)
- (interactive)
- (call-interactively #'elpher-show-bookmarks))
+ 'action #'elpher-click-link
'follow-link t
'follow-link t
- 'help-echo help-string))
+ 'help-echo #'elpher--page-button-help
+ 'elpher-page
+ (elpher-make-page "Elpher Bookmarks"
+ (elpher-make-about-address 'bookmarks))))
(insert ".\n")
(insert (propertize
"(Bookmarks from legacy elpher-bookmarks files will be automatically imported.)\n"
(insert ".\n")
(insert (propertize
"(Bookmarks from legacy elpher-bookmarks files will be automatically imported.)\n"