From ecf41fd26a4d3056223389e178159812c998b631 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Wed, 27 May 2026 14:54:14 -0500 Subject: refactor: name the progress-meter chars in org-drill-progress-message sym1/sym2 gave no hint of their role. current-meter-char toggles per meter wrap and alternate-meter-char is its inverse, which is what the two make-string calls actually consume. --- org-drill.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/org-drill.el b/org-drill.el index 2bea27e..4f216a2 100644 --- a/org-drill.el +++ b/org-drill.el @@ -3170,14 +3170,14 @@ COLLECTED is how many drill items have been gathered, SCANNED how many entries have been examined. Updates only every 50 entries." (when (zerop (% scanned 50)) (let* ((meter-width 40) - (sym1 (if (cl-oddp (floor scanned (* 50 meter-width))) ?| ?.)) - (sym2 (if (eql sym1 ?.) ?| ?.))) + (current-meter-char (if (cl-oddp (floor scanned (* 50 meter-width))) ?| ?.)) + (alternate-meter-char (if (eql current-meter-char ?.) ?| ?.))) (message "Collecting due drill items:%4d %s%s" collected (make-string (% (ceiling scanned 50) meter-width) - sym2) + alternate-meter-char) (make-string (- meter-width (% (ceiling scanned 50) meter-width)) - sym1))))) + current-meter-char))))) (defun org-drill-map-entry-function (session) "Classify the drill entry at point and file it into SESSION's queues. -- cgit v1.2.3