Browse Source

Fix nyan-mode config

master
10sr 4 years ago
parent
commit
e147085703
1 changed files with 6 additions and 4 deletions
  1. +6
    -4
      emacs.el

+ 6
- 4
emacs.el View File

@@ -793,16 +793,18 @@ THEM are function and its args."
;; default-directory)))) ;; default-directory))))
;; "[" ;; "["
(:eval (progn (:eval (progn
(set-variable 'nyan-bar-length
(- (window-size nil t) 4)
t)
(list (nyan-create)))) (list (nyan-create))))
;; "]" ;; "]"
;; (:eval (let ((f (or (buffer-file-name) ;; (:eval (let ((f (or (buffer-file-name)
;; default-directory))) ;; default-directory)))
;; (when f ;; (when f
;; (abbreviate-file-name f)))) ;; (abbreviate-file-name f))))
)))
))
(add-hook 'window-configuration-change-hook
(lambda ()
(set-variable 'nyan-bar-length
(- (window-size nil t) 4)
t))))


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


Loading…
Cancel
Save