Archived
1
0
Fork 0

add white space highlighting and toggle at C-c w (similar to truncate lines

This commit is contained in:
KemoNine 2022-04-23 10:21:53 -04:00
parent b6c751156b
commit d8b5599961

View file

@ -153,6 +153,13 @@
(global-set-key (kbd "C-c u") 'toggle-truncate-lines) (global-set-key (kbd "C-c u") 'toggle-truncate-lines)
(global-set-key (kbd "<M-f4>") 'delete-frame) (global-set-key (kbd "<M-f4>") 'delete-frame)
(global-set-key (kbd "C-x C-z") nil) (global-set-key (kbd "C-x C-z") nil)
(global-set-key (kbd "C-c w")
(lambda ()
(interactive)
(whitespace-mode)
(whitespace-newline-mode)
)
)
;; Lookup the current symbol at point. C-c C-d is a common keybinding ;; Lookup the current symbol at point. C-c C-d is a common keybinding
;; for this in lisp modes. ;; for this in lisp modes.
@ -220,6 +227,22 @@
(display-line-numbers-mode))) (display-line-numbers-mode)))
(global-display-line-numbers-mode) (global-display-line-numbers-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; whitespace
(progn
;; Make whitespace-mode with very basic background coloring for whitespaces.
;; http://xahlee.info/emacs/emacs/whitespace-mode.html
(setq whitespace-style (quote (face spaces tabs newline space-mark tab-mark newline-mark )))
;; Make whitespace-mode and whitespace-newline-mode use “¶” for end of line char and “▷” for tab.
(setq whitespace-display-mappings
;; all numbers are unicode codepoint in decimal. e.g. (insert-char 182 1)
'(
(space-mark 32 [183] [46]) ; SPACE 32 「 」, 183 MIDDLE DOT 「·」, 46 FULL STOP 「.」
(newline-mark 10 [8629 10]) ; LINE FEED,
(tab-mark 9 [8594 9] [92 9]) ; tab
)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; modus-themes setup and enable ; modus-themes setup and enable
(use-package modus-themes (use-package modus-themes