Skip to content

Commit 2608661

Browse files
authored
fix: Phase 0 - migrate selected messages to private logging (batch 1)
Behavior-neutral: keep user-facing message; add internal log at 'info. Tests green.
1 parent eb22274 commit 2608661

1 file changed

Lines changed: 14 additions & 4 deletions

File tree

enkan-repl.el

Lines changed: 14 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1394,7 +1394,11 @@ When enabled, some keybindings are available across all buffers."
13941394
;; This avoids overriding critical keybindings like M-x
13951395
(message (if enkan-repl-global-minor-mode
13961396
"✅ global mode enabled"
1397-
"❌ global mode disabled")))
1397+
"❌ global mode disabled"))
1398+
(enkan-repl--log 'info "%s"
1399+
(if enkan-repl-global-minor-mode
1400+
"✅ global mode enabled"
1401+
"❌ global mode disabled")))
13981402

13991403
;;;###autoload
14001404
(defun enkan-repl-toggle-global-mode ()
@@ -1752,9 +1756,11 @@ Returns t on success, nil on failure."
17521756
(pcase status
17531757
('no-buffers
17541758
(message (plist-get resolution :message))
1759+
(enkan-repl--log 'info "%s" (plist-get resolution :message))
17551760
nil)
17561761
('invalid
17571762
(message (plist-get resolution :message))
1763+
(enkan-repl--log 'info "%s" (plist-get resolution :message))
17581764
nil)
17591765
((or 'selected 'single)
17601766
(setq target-buffer (plist-get resolution :buffer)))
@@ -1880,15 +1886,18 @@ Category: Center File Multi-buffer Access"
18801886
pfx)))
18811887
(pcase (plist-get result :status)
18821888
((or 'no-project 'no-paths 'no-buffers)
1883-
(message (plist-get result :message)))
1889+
(message (plist-get result :message))
1890+
(enkan-repl--log 'info "%s" (plist-get result :message)))
18841891
('invalid
1885-
(message "Directory does not exist: %s" (plist-get result :path)))
1892+
(message "Directory does not exist: %s" (plist-get result :path))
1893+
(enkan-repl--log 'info "Directory does not exist: %s" (plist-get result :path)))
18861894
((or 'single 'selected)
18871895
(let ((path (plist-get result :path)))
18881896
(when (and path (file-directory-p path))
18891897
(dired path))))
18901898
('cancelled
1891-
(message "Selection cancelled")))))
1899+
(message "Selection cancelled")
1900+
(enkan-repl--log 'info "Selection cancelled")))))
18921901

18931902
(defun enkan-repl--analyze-send-content (content pfx)
18941903
"Pure function to analyze CONTENT with PFX and determine action.
@@ -1991,6 +2000,7 @@ Category: Center File Operations"
19912000
(if (plist-get result :valid)
19922001
(progn
19932002
(message "%s" (plist-get result :message))
2003+
(enkan-repl--log 'info "%s" (plist-get result :message))
19942004
(find-file enkan-repl-center-file))
19952005
(error "%s" (plist-get result :message)))))
19962006

0 commit comments

Comments
 (0)