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
Switch URL and Name position in the menu
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
b57f2b8
..
acd89fc
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-2195,8
+2195,8
@@
that there are no buffers for history items so many of the buffer
menu commands won't work on them."
(setq tabulated-list-format
(vector '("T" 1 t)
menu commands won't work on them."
(setq tabulated-list-format
(vector '("T" 1 t)
- '("
URL" 4
0 t)
- '("
Name" 3
0 t))
+ '("
Name" 3
0 t)
+ '("
URL" 4
0 t))
tabulated-list-sort-key nil)
;; Collect info for each buffer we're interested in.
(let (entries)
tabulated-list-sort-key nil)
;; Collect info for each buffer we're interested in.
(let (entries)
@@
-2220,25
+2220,25
@@
list established by `elpher-menu-refresh'. See
(list (current-buffer)
(cond ((eq major-mode 'elpher-mode)
(vector "G"
(list (current-buffer)
(cond ((eq major-mode 'elpher-mode)
(vector "G"
- (or (elpher-address-to-url
- (elpher-page-address elpher-current-page))
- "none")
(or (elpher-find-title)
(elpher-page-display-string elpher-current-page)
(or (elpher-find-title)
(elpher-page-display-string elpher-current-page)
- (buffer-name))))
+ (buffer-name))
+ (or (elpher-address-to-url
+ (elpher-page-address elpher-current-page))
+ "none")))
((eq major-mode 'gemini-mode)
(vector "E"
((eq major-mode 'gemini-mode)
(vector "E"
+ (or (elpher-page-display-string elpher-current-page)
+ (buffer-name))
(or (elpher-address-to-url
(elpher-page-address elpher-current-page))
(or (elpher-address-to-url
(elpher-page-address elpher-current-page))
- "none")
- (or (elpher-page-display-string elpher-current-page)
- (buffer-name))))
+ "none")))
((eq major-mode 'eww-mode)
(vector "W"
((eq major-mode 'eww-mode)
(vector "W"
- (or (eww-current-url)
- "none")
(or (plist-get eww-data :title)
(or (plist-get eww-data :title)
- (buffer-name)))))))
+ (buffer-name))
+ (or (eww-current-url)
+ "none"))))))
(defun elpher-menu-refresh-history ()
"Return current entries for `elpher-menu-refresh'.
(defun elpher-menu-refresh-history ()
"Return current entries for `elpher-menu-refresh'.
@@
-2265,9
+2265,9
@@
list established by `elpher-menu-refresh'. See
(if (cdr pair)
(list (car pair)
(vector "G"
(if (cdr pair)
(list (car pair)
(vector "G"
+ (or (elpher-page-display-string (cdr pair)) "?")
(or (elpher-address-to-url
(or (elpher-address-to-url
- (elpher-page-address (cdr pair))) "none")
- (or (elpher-page-display-string (cdr pair)) "?")))
+ (elpher-page-address (cdr pair))) "none")))
separator))
(cons (cons (current-buffer) elpher-current-page)
(mapcar (lambda (page)
separator))
(cons (cons (current-buffer) elpher-current-page)
(mapcar (lambda (page)
@@
-2278,10
+2278,10
@@
list established by `elpher-menu-refresh'. See
;; No history means a list of one item. Add a separator.
(list (list (current-buffer)
(vector "E"
;; No history means a list of one item. Add a separator.
(list (list (current-buffer)
(vector "E"
- (or (elpher-address-to-url
- (elpher-page-address elpher-current-page)))
(or (elpher-page-display-string elpher-current-page)
(or (elpher-page-display-string elpher-current-page)
- (buffer-name))))
+ (buffer-name))
+ (or (elpher-address-to-url
+ (elpher-page-address elpher-current-page)))))
separator))
((eq major-mode 'eww-mode)
;; A pair is (BUFFER-OR-DATA . PAGE) where BUFFER-OR-DTA is
separator))
((eq major-mode 'eww-mode)
;; A pair is (BUFFER-OR-DATA . PAGE) where BUFFER-OR-DTA is
@@
-2290,14
+2290,14
@@
list established by `elpher-menu-refresh'. See
;; what function to call. Add the separator at the end.
(nconc (cons (list (current-buffer)
(vector "W"
;; what function to call. Add the separator at the end.
(nconc (cons (list (current-buffer)
(vector "W"
- (or (plist-get eww-data :
url
) "none")
- (or (plist-get eww-data :
title
) "none")))
+ (or (plist-get eww-data :
title
) "none")
+ (or (plist-get eww-data :
url
) "none")))
(mapcar (lambda (data)
(list
(list (current-buffer) 'eww-restore-history data)
(vector "W"
(mapcar (lambda (data)
(list
(list (current-buffer) 'eww-restore-history data)
(vector "W"
- (or (plist-get data :
url
) "none")
- (or (plist-get data :
title
) "none"))))
+ (or (plist-get data :
title
) "none")
+ (or (plist-get data :
url
) "none"))))
eww-history))
(list separator))))))
eww-history))
(list separator))))))