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 (from parent 1:
184e0cf
)
A few explanatory comments.
author
Tim Vaughan
<tgvaughan@gmail.com>
Thu, 2 May 2019 14:48:35 +0000
(16:48 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Thu, 2 May 2019 14:48:35 +0000
(16:48 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
7add720
..
ca3a82a
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-292,6
+292,8
@@
content and cursor position fields of the node."
(defun elpher-insert-index (string)
"Insert the index corresponding to STRING into the current buffer."
(defun elpher-insert-index (string)
"Insert the index corresponding to STRING into the current buffer."
+ ;; Should be able to split directly on CRLF, but some non-conformant
+ ;; LF-only servers sadly exist, hence the following.
(dolist (line (split-string (replace-regexp-in-string "\r" "" string) "\n"))
(unless (= (length line) 0)
(elpher-insert-index-record line))))
(dolist (line (split-string (replace-regexp-in-string "\r" "" string) "\n"))
(unless (= (length line) 0)
(elpher-insert-index-record line))))
@@
-333,10
+335,10
@@
content and cursor position fields of the node."
'help-echo (format "mouse-1, RET: open %s on %s port %s"
selector host port)))
(pcase type
'help-echo (format "mouse-1, RET: open %s on %s port %s"
selector host port)))
(pcase type
- (?i (elpher-insert-margin) ; Information
+ (?i (elpher-insert-margin) ;
;
Information
(insert (propertize display-string
'face 'elpher-info)))
(insert (propertize display-string
'face 'elpher-info)))
- (?h (elpher-insert-margin "W") ; Web link
+ (?h (elpher-insert-margin "W") ;
;
Web link
(let ((url (elt (split-string selector "URL:") 1)))
(insert-text-button display-string
'face 'elpher-url
(let ((url (elt (split-string selector "URL:") 1)))
(insert-text-button display-string
'face 'elpher-url
@@
-344,7
+346,7
@@
content and cursor position fields of the node."
'action #'elpher-click-url
'follow-link t
'help-echo (format "mouse-1, RET: open url %s" url))))
'action #'elpher-click-url
'follow-link t
'help-echo (format "mouse-1, RET: open url %s" url))))
- (?.) ; Occurs at end of index, can safely ignore.
+ (?.) ;
;
Occurs at end of index, can safely ignore.
(tp (elpher-insert-margin (concat (char-to-string tp) "?"))
(insert (propertize display-string
'face 'elpher-unknown-face)))))
(tp (elpher-insert-margin (concat (char-to-string tp) "?"))
(insert (propertize display-string
'face 'elpher-unknown-face)))))