Ver a proveniência

Show nyan-cat in header-line

master
10sr há 4 anos
ascendente
cometimento
6420fee7ca
Assinados por: 10sr ID da chave GPG: C384BB17CBB19347
1 ficheiros alterados com 18 adições e 0 eliminações
  1. +18
    -0
      emacs.el

+ 18
- 0
emacs.el Ver ficheiro

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



Carregando…
Cancelar
Guardar