Cycle that highlights whitespace and displays line-column numbers

Cycle that highlights whitespace and displays line-column numbers

[pietru]

I want to cycle through whitespace highlighting functionality, but I am
not getting very good behavior while looping.  I would be grateful if
people could help me improve the code.

(defvar-local dfvl-highlight-chars-state nil)

(defun cycle-highlight-chars ()
  "Cycle though character highlighting (tabs and trailing spaces)."
  (interactive)

  (when (eq dfvl-highlight-chars-state nil)
    (require 'whitespace)
    (setq whitespace-style '(face tab-mark tabs trailing)) )

  (pcase dfvl-highlight-chars-state
    (2 (whitespace-mode 0)                ; [#A] Disable emacs modes
       (display-line-numbers-mode 0)
       (setq line-number-mode nil)
       (setq column-number-mode nil)

       (ruler-mode 1)                     ; [#B] Enable emacs modes
       (message "%s" "Enable: Ruler only")
       (setq-local dfvl-highlight-chars-state 3))

    (3 (ruler-mode 0)                     ; [#C]
       (whitespace-mode 0)
       (setq line-number-mode nil)
       (setq column-number-mode nil)
       (display-line-numbers-mode 0)
       (message "%s" "Disable: Space highlight & frame measure")
       (setq-local dfvl-highlight-chars-state 1))

    (_ (whitespace-mode 1)                ; [#D]
       (ruler-mode 1)
       (setq line-number-mode 1)
       (setq column-number-mode 1)
       (display-line-numbers-mode 1)
       (message "%s" "Enable: Space highlight & frame measure")
       (setq-local dfvl-highlight-chars-state 2)) ))

Re: Cycle that highlights whitespace and displays line-column numbers

[pietru]

Am quite unsure how to use the commands for displaying column and
line numbers: line-number-mode, column-number-mode, display-line-numbers-mode.



> Sent: Saturday, January 30, 2021 at 4:56 AM
> From: pietru@caramail.com
> To: "Help Gnu Emacs" <help-gnu-emacs@gnu.org>
> Subject: Cycle that highlights whitespace and displays line-column numbers
>
> I want to cycle through whitespace highlighting functionality, but I am
> not getting very good behavior while looping.  I would be grateful if
> people could help me improve the code.
>
> (defvar-local dfvl-highlight-chars-state nil)
>
> (defun cycle-highlight-chars ()
>   "Cycle though character highlighting (tabs and trailing spaces)."
>   (interactive)
>
>   (when (eq dfvl-highlight-chars-state nil)
>     (require 'whitespace)
>     (setq whitespace-style '(face tab-mark tabs trailing)) )
>
>   (pcase dfvl-highlight-chars-state
>     (2 (whitespace-mode 0)                ; [#A] Disable emacs modes
>        (display-line-numbers-mode 0)
>        (setq line-number-mode nil)
>        (setq column-number-mode nil)
>
>        (ruler-mode 1)                     ; [#B] Enable emacs modes
>        (message "%s" "Enable: Ruler only")
>        (setq-local dfvl-highlight-chars-state 3))
>
>     (3 (ruler-mode 0)                     ; [#C]
>        (whitespace-mode 0)
>        (setq line-number-mode nil)
>        (setq column-number-mode nil)
>        (display-line-numbers-mode 0)
>        (message "%s" "Disable: Space highlight & frame measure")
>        (setq-local dfvl-highlight-chars-state 1))
>
>     (_ (whitespace-mode 1)                ; [#D]
>        (ruler-mode 1)
>        (setq line-number-mode 1)
>        (setq column-number-mode 1)
>        (display-line-numbers-mode 1)
>        (message "%s" "Enable: Space highlight & frame measure")
>        (setq-local dfvl-highlight-chars-state 2)) ))
>
>
>
>
>