Pokaż coś w linii trybu aktywnego zamiast wszystkich linii trybu

Ustawiłem przy tym wskaźnik org-timer.

(setq-default
 mode-line-format
 (quote
  (
   ;; org-timer
   (:eval
    (unless (not org-timer-countdown-timer)
      (propertize (let* ((rtime (decode-time
                                 (time-subtract
                                  (timer--time org-timer-countdown-timer)
                                  (current-time))))
                         (rmins (nth 1 rtime))
                         (rsecs (nth 0 rtime)))
                    (format "🕔 %d:%d" rmins rsecs))
                  'face '(:foreground "cyan" :weight bold)
                  'help-echo "org-timer")))

   )))

Chcę, aby ten wskaźnik org-timer był wyświetlany tylko w linii trybu aktywnego , zamiast wszystkich linii trybu. Jak to zrobić?

mode-line

— stardiviner
źródło

Zobacz: emacs.stackexchange.com/a/22682/2287

— lawlist

@lawlist Nie rozumiem twojego kodu. Nie wiem, jak złożyć wniosek w mojej sprawie.

— stardiviner

redisplaySilnik jest w stanie sprawdzić każdego okna w pewnych okolicznościach (np gdy tryb wiersza jest odświeżany naturalnie, lub gdy jest on zmuszony do odświeżenia). Gdy mode-line-formatzawiera funkcję (selected-window), zostanie zwrócone inne okno, gdy ponowne wyświetlanie wyświetli się w różnych oknach. Wartość tę można porównać z wcześniej zarejestrowaną wartością - np. post-command-hookMożna ją wykorzystać do zarejestrowania ostatniej znanej, selected-windowa tę wartość można później porównać z funkcją wewnątrz mode-line-format. Tak więc używam PCH do nagrywania / przechowywania selected-window.

— prawnik

@lawlist Sprawdziłem Twój kod, ale nie znalazłem ogólnego zastosowania w mojej sprawie. Jeśli zmienię na inną zamiast org-timer. Co powinienem zrobić? Mam nadzieję, że w bardziej ogólny sposób. Nawet to mnie zainspirowało. Czy możesz podać mi dokładniejszy przykład kodu? Ponieważ znalazłem inny zestaw 'face, ale muszę zmienić wyświetlany ciąg.

— stardiviner

Nie próbowałem tego, ale to pytanie wygląda podobnie do tego: emacs.stackexchange.com/q/13842/115

— Kaushal Modi

W poniższym przykładzie słowo „AKTYWNE” pojawi się w wierszu trybu aktywnego okna, a wszystkie inne okna będą wyświetlać słowo „NIEAKTYWNE” w wierszu trybu.

Wypróbuj ten przykład z, emacs -Qaby sprawdzić, czy działa zgodnie z reklamą. Następnie dostosuj go w razie potrzeby.

Dodaj dodatkowe zaczepy w razie potrzeby, aby zadzwonić ml-update-all.

(defvar ml-selected-window nil)

(defun ml-record-selected-window ()
  (setq ml-selected-window (selected-window)))

(defun ml-update-all ()
  (force-mode-line-update t))

(add-hook 'post-command-hook 'ml-record-selected-window)

(add-hook 'buffer-list-update-hook 'ml-update-all)

(setq-default mode-line-format
  '(:eval
      (if (eq ml-selected-window (selected-window))
        "ACTIVE"
        "INACTIVE")))

— lista prawnicza
źródło