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:
054c7e3
)
Autoload main method.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 28 Apr 2019 11:00:29 +0000
(13:00 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sun, 28 Apr 2019 11:00:29 +0000
(13:00 +0200)
elopher.el
patch
|
blob
|
history
diff --git
a/elopher.el
b/elopher.el
index
0dab9d3
..
7e45cab
100644
(file)
--- a/
elopher.el
+++ b/
elopher.el
@@
-166,18
+166,6
@@
content and cursor position fields of the node."
"Set the cursor position cache of NODE to POS."
(setcar (nthcdr 4 node) pos))
"Set the cursor position cache of NODE to POS."
(setcar (nthcdr 4 node) pos))
-(defun elopher-save-pos ()
- "Save the current position of point to the current node."
- (when elopher-current-node
- (elopher-set-node-pos elopher-current-node (point))))
-
-(defun elopher-restore-pos ()
- "Restore the position of point to that cached in the current node."
- (let ((pos (elopher-node-pos elopher-current-node)))
- (if pos
- (goto-char pos)
- (goto-char (point-min)))))
-
;; Node graph traversal
(defvar elopher-current-node)
;; Node graph traversal
(defvar elopher-current-node)
@@
-202,6
+190,18
@@
content and cursor position fields of the node."
(elopher-set-node-content elopher-current-node nil)
(elopher-visit-node elopher-current-node))
(elopher-set-node-content elopher-current-node nil)
(elopher-visit-node elopher-current-node))
+(defun elopher-save-pos ()
+ "Save the current position of point to the current node."
+ (when elopher-current-node
+ (elopher-set-node-pos elopher-current-node (point))))
+
+(defun elopher-restore-pos ()
+ "Restore the position of point to that cached in the current node."
+ (let ((pos (elopher-node-pos elopher-current-node)))
+ (if pos
+ (goto-char pos)
+ (goto-char (point-min)))))
+
;;; Buffer preparation
;;
;;; Buffer preparation
;;
@@
-635,6
+635,7
@@
The result is stored as a string in the variable elopher-selector-string."
;;; Main start procedure
;;
;;; Main start procedure
;;
+;;;###autoload
(defun elopher ()
"Start elopher with default landing page."
(interactive)
(defun elopher ()
"Start elopher with default landing page."
(interactive)