Bläddra i källkod

Show nyan-cat in header-line

master
10sr 4 år sedan
förälder
incheckning
6420fee7ca
Signerad av: 10sr GPG-nyckel ID: C384BB17CBB19347
1 ändrade filer med 18 tillägg och 0 borttagningar
  1. +18
    -0
      emacs.el

+ 18
- 0
emacs.el Visa fil

@@ -785,6 +785,24 @@ THEM are function and its args."
(when f
(abbreviate-file-name f)))))

(when (eval-and-compile (require 'nyan-mode nil t))
(setq-default header-line-format
'(
;; (:eval (file-name-nondirectory(directory-file-name (or buffer-file-name
;; default-directory))))
;; "["
(:eval (progn
(set-variable 'nyan-bar-length
(- (window-size nil t) 4)
t)
(list (nyan-create))))
;; "]"
;; (:eval (let ((f (or (buffer-file-name)
;; default-directory)))
;; (when f
;; (abbreviate-file-name f))))
)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; letters, font-lock mode and fonts



Laddar…
Avbryt
Spara