"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)
(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
;;
(lambda (proc event)
(unless (string-prefix-p "deleted" event)
(let ((image (create-image
- (string-as-unibyte elopher-selector-string)
+ (encode-coding-string elopher-selector-string
+ 'no-conversion)
nil t)))
(elopher-with-clean-buffer
(insert-image image))
;;; Main start procedure
;;
+;;;###autoload
(defun elopher ()
"Start elopher with default landing page."
(interactive)