Sfoglia il codice sorgente

Show nyan-cat in header-line

master
10sr 4 anni fa
parent
commit
6420fee7ca
Firmato da: 10sr ID Chiave GPG: C384BB17CBB19347
1 ha cambiato i file con 18 aggiunte e 0 eliminazioni
  1. +18
    -0
      emacs.el

+ 18
- 0
emacs.el Vedi File

@@ -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



Caricamento…
Annulla
Salva