branch: elpa/casual
commit 7bbf96d7dd10bb100babd20d28e5127e133ae2c5
Merge: 2ddf39eee2 7d5e46c0b2
Author: Charles Choi <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #248 from
kickingvegas/243-add-to-info-settings-info-hide-note-references
Add customize Info-hide-note-references
---
lisp/casual-info-settings.el | 63 +++++++++++++++++++++++---------------
tests/test-casual-info-settings.el | 33 ++++++++++++++------
tests/test-casual-info-utils.el | 1 +
3 files changed, 63 insertions(+), 34 deletions(-)
diff --git a/lisp/casual-info-settings.el b/lisp/casual-info-settings.el
index a742cfc0a7..7ddcc44669 100644
--- a/lisp/casual-info-settings.el
+++ b/lisp/casual-info-settings.el
@@ -33,52 +33,67 @@
;;; Menus
(transient-define-prefix casual-info-settings-tmenu ()
["Customize Info"
- ("A" "Additional directories list"
- casual-info--customize-info-additional-directory-list)
- ("i" "I-search multiple nodes"
- casual-info--customize-info-isearch-search
- :description (lambda ()
- (casual-lib-checkbox-label
- Info-isearch-search
- "I-search through multiple nodes")))
+ [("h" "Hide note references"
+ casual-info--customize-info-hide-note-references)
+ ("A" "Additional directories list"
+ casual-info--customize-info-additional-directory-list)
+
+ ("G" "Info Group"
+ casual-info--customize-info-group)
+ ]
+
+ [("i" "I-search multiple nodes"
+ casual-info--customize-info-isearch-search
+ :description (lambda ()
+ (casual-lib-checkbox-label
+ Info-isearch-search
+ "I-search through multiple nodes")))
+ ("c" "Prefer subnodes when scrolling"
+ casual-info--customize-info-scroll-prefer-subnodes
+ :description (lambda ()
+ (casual-lib-checkbox-label
+ Info-scroll-prefer-subnodes
+ "Prefer subnodes when scrolling")))]]
+
+ [:class transient-row
(casual-lib-customize-unicode)
- ("c" "Prefer subnodes when scrolling"
- casual-info--customize-info-scroll-prefer-subnodes
- :description (lambda ()
- (casual-lib-checkbox-label
- Info-scroll-prefer-subnodes
- "Prefer subnodes when scrolling")))
(casual-lib-customize-hide-navigation)]
[:class transient-row
- (casual-lib-quit-one)
- ("a" "About" casual-info-about :transient nil)
-
- (casual-lib-quit-all)])
+ (casual-lib-quit-one)
+ ("a" "About" casual-info-about :transient nil)
+ (casual-lib-quit-all)])
;;; Functions
(defun casual-info--customize-info-isearch-search ()
- "Customize variable `Info-isearch-search'.
+ "If non-nil, isearch through multiple nodes.
-If non-nil, isearch in Info searches through multiple nodes."
+Customize variable `Info-isearch-search'."
(interactive)
(customize-variable 'Info-isearch-search))
(defun casual-info--customize-info-additional-directory-list ()
- "Customize variable `Info-additional-directory-list'.
+ "List of additional directories to search for Info documentation files.
-List of additional directories to search for Info documentation files.
+Customize variable `Info-additional-directory-list'.
These directories are searched after those in `Info-directory-list'."
(interactive)
(customize-variable 'Info-additional-directory-list))
(defun casual-info--customize-info-scroll-prefer-subnodes ()
- "Customize variable `Info-scroll-prefer-subnodes'.
+ "If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes.
-If non-nil, \\<Info-mode-map>\\[Info-scroll-up] in a menu visits subnodes."
+Customize variable `Info-scroll-prefer-subnodes'."
(interactive)
(customize-variable 'Info-scroll-prefer-subnodes))
+(defun casual-info--customize-info-hide-note-references ()
+ "If non-nil, hide the tag and section reference in *note and * menu items.
+
+Customize variable `Info-hide-note-references'."
+ (interactive)
+ (customize-variable 'Info-hide-note-references))
+
(defun casual-info--customize-info-group ()
"Call the Info customization group.
diff --git a/tests/test-casual-info-settings.el
b/tests/test-casual-info-settings.el
index 893eff819d..8ef0a44f33 100644
--- a/tests/test-casual-info-settings.el
+++ b/tests/test-casual-info-settings.el
@@ -25,19 +25,32 @@
;;; Code:
(require 'ert)
+(require 'casual-lib-test-utils)
(require 'casual-info-test-utils)
(require 'casual-info-settings)
-(ert-deftest test-casual-info-settings-tmenu-bindings ()
- (casualt-info-setup)
- (let ((test-vectors (list)))
- (push (casualt-suffix-test-vector "u"
#'casual-lib-customize-casual-lib-use-unicode) test-vectors)
- (push (casualt-suffix-test-vector "a" #'casual-info-about) test-vectors)
-
- (casualt-suffix-testbench-runner test-vectors
- #'casual-info-settings-tmenu
- '(lambda () (random 5000))))
- (casualt-info-breakdown t))
+(ert-deftest test-casual-info-settings-tmenu ()
+ (let ()
+ (casualt-info-setup)
+ (cl-letf ((casualt-mock #'casual-info--customize-info-group)
+ (casualt-mock #'casual-info--customize-info-hide-note-references)
+ (casualt-mock
#'casual-info--customize-info-additional-directory-list)
+ (casualt-mock #'casual-info--customize-info-isearch-search)
+ (casualt-mock
#'casual-info--customize-info-scroll-prefer-subnodes)
+ (casualt-mock #'casual-info-about))
+
+ (let ((test-vectors
+ '((:binding "h" :command
casual-info--customize-info-hide-note-references)
+ (:binding "A" :command
casual-info--customize-info-additional-directory-list)
+ (:binding "i" :command
casual-info--customize-info-isearch-search)
+ (:binding "c" :command
casual-info--customize-info-scroll-prefer-subnodes)
+ (:binding "G" :command casual-info--customize-info-group)
+ (:binding "a" :command casual-info-about))))
+
+ (casualt-suffix-testcase-runner test-vectors
+ #'casual-info-settings-tmenu
+ '(lambda () (random 5000)))))
+ (casualt-info-breakdown)))
(provide 'test-casual-info-settings)
;;; test-casual-info-setttings.el ends here
diff --git a/tests/test-casual-info-utils.el b/tests/test-casual-info-utils.el
index 933b07b379..8f29d8d21c 100644
--- a/tests/test-casual-info-utils.el
+++ b/tests/test-casual-info-utils.el
@@ -24,6 +24,7 @@
;;; Code:
(require 'ert)
+(require 'casual-lib-test-utils)
(require 'casual-info-test-utils)
(require 'casual-info-utils)
