Emacs Moll für vorübergehend den Standard Gesicht Modifizieren

Question

Zum Beispiel, wie kann ich einen kleinen Modus, den die Standardvordergrundfarbe Grau ändert, und auf den kleineren Modus verlassen hat, die Vordergrundfarbe schwarz ist? Dieser Modus kann nützlich sein, wenn Sie nicht wie bestimmter Text Schultern gesehen über werden.

Im Moment laufe ich den folgenden Code Textfarbe grau werden:

(set-face-attribute 'default (selected-frame) :foreground "darkgrey")

Und der folgende Code zu kommen.

(set-face-attribute 'default (selected-frame) :foreground "SystemWindowText")

Aber das betrifft alle Puffer.

Answer 1

Sie können basierend auf Overlays Puffer-face-Modus verwenden, es läßt auch den Hintergrund des Textes in Ihrem Puffer ändern.

(make-face 'hard-to-read-font)
(set-face-attribute 'hard-to-read-font nil :background "darkgrey" :foreground "grey")

(define-minor-mode hard-to-read-mode
  "This mode might be useful when you don't like certain text to be seen over your shoulders."
  :init-value nil :lighter " hard-to-read" :keymap nil
  (if hard-to-read-mode
      (progn
        (font-lock-mode nil)
        (buffer-face-mode t)
        (buffer-face-set 'hard-to-read-font))
    (progn
      (font-lock-mode t)
      (buffer-face-mode nil))))

;; change this to mode you need
;; or turn it on manually
;; (add-hook 'text-mode-hook
;;           (lambda ()
;;             (hard-to-read-mode t)))

Update: Wissen Sie, das ist nicht sicher. Es wirkt gegen die menschliche Auge, aber jeder kann die Kamera verwenden und dann nur Kontrast zu erhöhen, den Text zu lesen.