feat: set evil-normal-state-local-map (kaiwk#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                 |
@@ -29,7 +27,7 @@ LeetCode brings you offer, and now Emacs brings you LeetCode!
 | P      | toggle paid problems display             |
 | g      | refresh without fetching from LeetCode   |
 | G      | refresh all problems                     |
-| l      | change prefer language                   |
+| L      | change prefer language                   |
 | RET    | show current problem                     |
 | TAB    | view 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,10 +1326,8 @@ 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 "L" #'leetcode-set-prefer-language)
       (define-key map "t" #'leetcode-set-filter-tag)
       (define-key map "T" #'leetcode-toggle-tag-display)
       (define-key map "P" #'leetcode-toggle-paid-display)
@@ -1348,16 +1346,23 @@ 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 (featurep 'evil)
+    (define-key map "h" nil)
+    (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 +1371,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