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:
bb306d8
)
History almost working.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 20 Apr 2019 10:16:57 +0000
(12:16 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 20 Apr 2019 10:16:57 +0000
(12:16 +0200)
elopher.el
patch
|
blob
|
history
diff --git
a/elopher.el
b/elopher.el
index
4408d4d
..
5725a4f
100644
(file)
--- a/
elopher.el
+++ b/
elopher.el
@@
-92,22
+92,26
@@
(defun elopher-node-content (node)
(cadddr node))
(defun elopher-node-content (node)
(cadddr node))
+(defun elopher-set-node-content (node content)
+ (setcar (cdddr node) content))
+
(defvar elopher-start-node (elopher-make-node nil nil #'elopher-get-index-node))
(defvar elopher-current-node)
(defvar elopher-start-node (elopher-make-node nil nil #'elopher-get-index-node))
(defvar elopher-current-node)
-(defun elopher-set-node-content (node content)
- (setcar (elopher-node-content node)
- content))
-
(defun elopher-visit-node (node)
(elopher-prepare-buffer)
(setq elopher-current-node node)
(funcall (elopher-node-getter node)))
(defun elopher-visit-node (node)
(elopher-prepare-buffer)
(setq elopher-current-node node)
(funcall (elopher-node-getter node)))
+(defun elopher-visit-parent-node ()
+ (let ((parent-node (elopher-node-parent elopher-current-node)))
+ (when parent-node
+ (setq elopher-current-node parent-node)
+ (elopher-visit-node elopher-current-node))))
+
(defun elopher-reload-current-node ()
(defun elopher-reload-current-node ()
- (elopher-prepare-buffer)
(elopher-set-node-content elopher-current-node nil)
(elopher-set-node-content elopher-current-node nil)
- (
funcall (elopher-node-getter elopher-current-node)
))
+ (
elopher-visit-node elopher-current-node
))
;;; Buffer preparation
;;; Buffer preparation
@@
-263,6
+267,10
@@
(interactive)
(elopher-reload-current-node))
(interactive)
(elopher-reload-current-node))
+(defun elopher-back ()
+ "Go to previous site."
+ (interactive)
+ (elopher-visit-parent-node))
;;; Main start procedure
;;
;;; Main start procedure
;;
@@
-275,22
+283,22
@@
;;; Mode and keymap
;;
;;; Mode and keymap
;;
-(
setq
elopher-mode-map
+(
defvar
elopher-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<tab>") 'elopher-next-link)
(define-key map (kbd "<S-tab>") 'elopher-prev-link)
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<tab>") 'elopher-next-link)
(define-key map (kbd "<S-tab>") 'elopher-prev-link)
- (define-key map (kbd "u") 'elopher-
pop-history
)
+ (define-key map (kbd "u") 'elopher-
back
)
(define-key map (kbd "g") 'elopher-go)
(define-key map (kbd "r") 'elopher-reload)
(when (require 'evil nil t)
(evil-define-key 'normal map
(kbd "C-]") 'elopher-follow-closest-link
(define-key map (kbd "g") 'elopher-go)
(define-key map (kbd "r") 'elopher-reload)
(when (require 'evil nil t)
(evil-define-key 'normal map
(kbd "C-]") 'elopher-follow-closest-link
- (kbd "C-t") 'elopher-
pop-history
- (kbd "u") 'elopher-
pop-history
+ (kbd "C-t") 'elopher-
back
+ (kbd "u") 'elopher-
back
(kbd "g") 'elopher-go
(kbd "r") 'elopher-reload))
(kbd "g") 'elopher-go
(kbd "r") 'elopher-reload))
- map)
)
-
;;
"Keymap for gopher client.")
+ map)
+ "Keymap for gopher client.")
(define-derived-mode elopher-mode special-mode "elopher"
"Major mode for elopher, an elisp gopher client.")
(define-derived-mode elopher-mode special-mode "elopher"
"Major mode for elopher, an elisp gopher client.")