Enable whitespace-mode in gadict-mode with appropriate customization.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 20 Nov 2020 22:10:13 +0200
changeset 1642 4b2fba646dfd
parent 1641 bbb65280822b
child 1643 ce2756ae43b2
Enable whitespace-mode in gadict-mode with appropriate customization.
.emacs-my
--- a/.emacs-my	Fri Nov 20 17:38:07 2020 +0200
+++ b/.emacs-my	Fri Nov 20 22:10:13 2020 +0200
@@ -1801,17 +1801,22 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "dict, dictd, dictionary, gadict, gaphrase, gadialog")
 
+(defun my-gedict-enable-whitespace ()
+  (setq show-trailing-whitespace nil)
+  (setq-local whitespace-style '(face trailing))
+  (whitespace-mode 1))
+
 (when (fboundp 'gadict-mode)
   (add-to-list 'auto-mode-alist '("\\.gadict$" . gadict-mode)) )
-(add-hook 'gadict-mode-hook 'whitespace-mode)
+(add-hook 'gadict-mode-hook 'my-gedict-enable-whitespace)
 
 (when (fboundp 'gaphrase-mode)
   (add-to-list 'auto-mode-alist '("\\.gaphrase$" . gaphrase-mode)) )
-(add-hook 'gaphrase-mode-hook 'whitespace-mode)
+(add-hook 'gaphrase-mode-hook 'my-gedict-enable-whitespace)
 
 (when (fboundp 'gadialog-mode)
   (add-to-list 'auto-mode-alist '("\\.gadialog$" . gadialog-mode)) )
-(add-hook 'gadialog-mode-hook 'whitespace-mode)
+(add-hook 'gadialog-mode-hook 'my-gedict-enable-whitespace)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "figlet")