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