diff options
| author | Craig Jennings <c@cjennings.net> | 2026-05-27 14:54:14 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-05-27 14:54:14 -0500 |
| commit | ecf41fd26a4d3056223389e178159812c998b631 (patch) | |
| tree | 5d32875eea3c68c1e5ee530ebcfe3633e1692e19 | |
| parent | 6f0a1e38a96b6be50c34b16014768210f555ffff (diff) | |
| download | org-drill-ecf41fd26a4d3056223389e178159812c998b631.tar.gz org-drill-ecf41fd26a4d3056223389e178159812c998b631.zip | |
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.
| -rw-r--r-- | org-drill.el | 8 |
1 files 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. |