-;; (defvar elopher-mode-map nil "Keymap for gopher client.")
-
-;; (define-derived-mode elopher-mode special-mode "elopher"
-;; "Major mode for elopher, an elisp gopher client.")
+(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)
+ (define-key map (kbd "u") 'elopher-history-back)
+ (when (require 'evil nil t)
+ (evil-define-key 'normal map
+ (kbd "C-]") 'elopher-follow-closest-link
+ (kbd "C-t") 'elopher-history-back
+ (kbd "u") 'elopher-history-back))
+ map)
+ "Keymap for gopher client.")
+
+(define-derived-mode elopher-mode special-mode "elopher"
+ "Major mode for elopher, an elisp gopher client.")