From 2b37d0f6494a4916c0b88013e02037485229c438 Mon Sep 17 00:00:00 2001 From: Kato Muso Date: Tue, 28 May 2024 07:35:21 +0000 Subject: [PATCH] Refactor cider-cheatsheet-select --- cider-cheatsheet.el | 23 +++++++++-------------- 1 file changed, 9 insertions(+), 14 deletions(-) diff --git a/cider-cheatsheet.el b/cider-cheatsheet.el index eb9f39628..86fc745b9 100644 --- a/cider-cheatsheet.el +++ b/cider-cheatsheet.el @@ -30,6 +30,7 @@ (require 'cider-doc) (require 'cl-lib) +(require 'map) (require 'seq) (defconst cider-cheatsheet-hierarchy @@ -548,24 +549,18 @@ This list is supposed to have the following format: (mapcar #'symbol-name vars) (mapcar (lambda (var) (format "%s/%s" ns var)) vars)))) -(defun cider-cheatsheet--select-var (var-list) - "Expand the symbols in VAR-LIST to fully-qualified var names. - -The list can hold one or more lists inside - one per each namespace." - (let ((namespaced-vars (seq-mapcat #'cider-cheatsheet--expand-vars var-list))) - (cider-doc-lookup (completing-read "Select var: " namespaced-vars)))) - ;;;###autoload (defun cider-cheatsheet-select () "Navigate cheatsheet sections and show documentation for selected var." (interactive) - (let ((cheatsheet-data cider-cheatsheet-hierarchy)) - (while (stringp (caar cheatsheet-data)) - (let* ((sections (mapcar #'car cheatsheet-data)) - (sel-section (completing-read "Select cheatsheet section: " sections)) - (section-data (seq-find (lambda (elem) (equal (car elem) sel-section)) cheatsheet-data))) - (setq cheatsheet-data (cdr section-data)))) - (cider-cheatsheet--select-var cheatsheet-data))) + (let ((hierarchy cider-cheatsheet-hierarchy)) + (while (stringp (caar hierarchy)) + (let* ((sections (mapcar #'car hierarchy)) + (section (completing-read "Select section: " sections))) + (setq hierarchy (map-elt hierarchy section)))) + (let* ((vars (seq-mapcat #'cider-cheatsheet--expand-vars hierarchy)) + (var (completing-read "Select var: " vars))) + (cider-doc-lookup var)))) (cl-defun cider-cheatsheet--insert-hierarchy (hierarchy &optional (level 0)) "Insert HIERARCHY with visual indentation for LEVEL."