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