feat: set evil-normal-state-local-map (#103)

* feat: set evil-normal-state-local-map

Author: kaiwk

ChangeLog

@@ -1,3 +1,7 @@
+2022-05-03  Wang Kai  <[email protected]>
+
+	* leetcode.el (leetcode--set-evil-local-map): set evil-normal-state-local-map.
+
 2022-05-02  Wang Kai  <[email protected]>
 
 	* leetcode.el:

README.md

@@ -11,8 +11,6 @@ LeetCode brings you offer, and now Emacs brings you LeetCode!
 
 | Keymap | Description                              |
 |--------|------------------------------------------|
-| n      | cursor move down                         |
-| p      | cursor move up                           |
 | o      | show current problem                     |
 | O      | show problem by prompting problem id     |
 | v      | view the current problem                 |

leetcode.el

@@ -6,7 +6,7 @@
 ;; Keywords: extensions, tools
 ;; URL: https://github.com/kaiwk/leetcode.el
 ;; Package-Requires: ((emacs "26.1") (dash "2.16.0") (graphql "0.1.1") (spinner "1.7.3") (aio "1.0") (log4e "0.3.3"))
-;; Version: 0.1.26
+;; Version: 0.1.27
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -1326,8 +1326,6 @@ It will restore the layout based on current buffer's name."
       (define-key map "B" #'leetcode-show-problem-in-browser)
       (define-key map "c" #'leetcode-solve-current-problem)
       (define-key map "C" #'leetcode-solve-problem)
-      (define-key map "n" #'next-line)
-      (define-key map "p" #'previous-line)
       (define-key map "s" #'leetcode-set-filter-regex)
       (define-key map "l" #'leetcode-set-prefer-language)
       (define-key map "t" #'leetcode-set-filter-tag)
@@ -1348,16 +1346,22 @@ It will restore the layout based on current buffer's name."
   :group 'leetcode
   :keymap leetcode--problems-mode-map)
 
+(defun leetcode--set-evil-local-map (map)
+  "Set `evil-normal-state-local-map' to MAP."
+  (when (and (featurep 'evil))
+    (setq evil-normal-state-local-map map)))
+
 (add-hook 'leetcode--problems-mode-hook #'hl-line-mode)
+(add-hook 'leetcode--problems-mode-hook
+          (lambda () (leetcode--set-evil-local-map leetcode--problems-mode-map)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Detail Mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defvar leetcode--problem-detail-mode-map
   (let ((map (make-sparse-keymap)))
     (prog1 map
       (suppress-keymap map)
-      (define-key map "n" #'next-line)
-      (define-key map "p" #'previous-line)))
+      (define-key map "q" #'quit-window)))
   "Keymap for `leetcode--problem-detail-mode'.")
 
 (define-derived-mode leetcode--problem-detail-mode
@@ -1366,6 +1370,9 @@ It will restore the layout based on current buffer's name."
   :group 'leetcode
   :keymap leetcode--problem-detail-mode-map)
 
+(add-hook 'leetcode--problem-detail-mode-hook
+          (lambda () (leetcode--set-evil-local-map leetcode--problem-detail-mode-map)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Loading Mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;;; Use spinner.el to show progress indicator