branch: externals/hiddenquote
commit 1afa4bc748aaaec35dca13e650bd524abbdbfc29
Author: Mauro Aranda <maurooara...@gmail.com>
Commit: Mauro Aranda <maurooara...@gmail.com>
Support searching words inside definitions
* hiddenquote.el (hiddenquote-search-word): New command.
(hiddenquote-mode-map): Bind it.
(hiddenquote-syllable-notify): Print a message when the user completes
the puzzle.
---
hiddenquote.el | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/hiddenquote.el b/hiddenquote.el
index ed22d637b0..4382c9cf1b 100644
--- a/hiddenquote.el
+++ b/hiddenquote.el
@@ -286,6 +286,7 @@ to the syllables buffer."
(define-key map "\C-p" #'hiddenquote-prev)
(define-key map [up] #'hiddenquote-prev)
(define-key map [(meta ?g) (meta ?g)] #'hiddenquote-goto-word)
+ (define-key map [(meta ?g) (control ?s)] #'hiddenquote-search-word)
;; Done.
(define-key map [(control ?x) (control ?s)] #'hiddenquote-save)
(define-key map [(control ?x) ?!] #'hiddenquote-give-up)
@@ -1114,7 +1115,8 @@ Return `hiddenquote-used-syllable' if WIDGET's value is
non-nil,
(defun hiddenquote-syllable-notify (_widget _child &optional _event)
"Check if all syllables are marked as used."
(when (hiddenquote-puzzle-complete-p)
- (hiddenquote-timer-stop-timer)))
+ (hiddenquote-timer-stop-timer)
+ (message "Congratulations, you won!")))
;; Functions.
(defun hiddenquote--get-quote-length ()
@@ -1562,6 +1564,17 @@ every word."
(widget-get (widget-get parent :parent)
:buttons)))))
+(defun hiddenquote-search-word (word)
+ "Search for presence of the string WORD in a definition and go to that word."
+ (interactive (list (read-string "Word: ")))
+ (let* ((clues (oref (widget-get hiddenquote-current :hiddenquote) clues))
+ (re (concat "\\<" (regexp-quote word) "\\>"))
+ (def (seq-position clues word (lambda (clue _word)
+ (string-match re (cadr clue))))))
+ (if def
+ (hiddenquote-goto-word (1+ def))
+ (message "No definition contains that word"))))
+
(defun hiddenquote-toggle-automatic-check ()
"Toggle the `hiddenquote-automatic-check' variable."
(interactive)
