Bladeren bron

Show nyan-cat in header-line

master
10sr 4 jaren geleden
bovenliggende
commit
6420fee7ca
Getekend door: 10sr GPG sleutel-ID: C384BB17CBB19347
1 gewijzigde bestanden met toevoegingen van 18 en 0 verwijderingen
  1. +18
    -0
      emacs.el

+ 18
- 0
emacs.el Bestand weergeven

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



Laden…
Annuleren
Opslaan