-
Notifications
You must be signed in to change notification settings - Fork 0
/
mode-line.elc
20 lines (16 loc) · 2.85 KB
/
mode-line.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
;ELC
;;; Compiled by [email protected] on Thu Jun 27 21:18:14 2013
;;; from file /Users/nathanielhunzaker/.emacs.d/themes/laravel/mode-line.el
;;; in Emacs version 22.1.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`mode-line.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-default 'mode-line-format '((:propertize "%4l:" face mode-line-position-face) (:eval (propertize "%3c" 'face (if (>= (current-column) 80) 'mode-line-80col-face 'mode-line-position-face))) mode-line-client " " (:eval (cond (buffer-read-only (propertize " RO " 'face 'mode-line-read-only-face)) ((buffer-modified-p) (propertize " ** " 'face 'mode-line-modified-face)) (t " "))) " " (:propertize (:eval (shorten-directory default-directory 30)) face mode-line-folder-face) (:propertize "%b" face mode-line-filename-face) " %n " (vc-mode vc-mode) " %[" (:propertize mode-name face mode-line-mode-face) "%] " (:eval (propertize (format-mode-line minor-mode-alist) 'face 'mode-line-minor-mode-face)) (:propertize mode-line-process face mode-line-process-face) (global-mode-string global-mode-string) " " (:eval (when nyan-mode (list (nyan-create))))))
#@63 Show up to `max-length' characters of a directory name `dir'.
(defalias 'shorten-directory #[(dir max-length) "\304\305\306!\307\"!\310\211\203 \n@\310\232\203 \nA\n\2033 G \311ZW\2033 \n@\307 Q\nA\211\204 \n\203; \312 P *\207" [dir output path max-length reverse split-string abbreviate-file-name "/" "" 4 ".../"] 5 (#$ . 1478)])
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\312\313\314\315\316\317\320\321\314&\210\312\322\314\315\323\317\324\321\314&\210\312\301\314\325\326\315\327&\210\312\302\314\325\326\330\314\315\331\317\332&\n\210\312\303\314\325\326\315\333&\210\312\304\314\325\326\315\334&\210\312\305\314\325\326\335\336&\210\312\306\314\325\326\315\323&\210\312\307\314\325\306\337\340\315\341\342\314\343\314\335\336&\210\312\310\314\325\326\315\344&\210\312\311\314\325\305\315\345\317\346&\207" [make-face mode-line-read-only-face mode-line-modified-face mode-line-folder-face mode-line-filename-face mode-line-position-face mode-line-mode-face mode-line-minor-mode-face mode-line-process-face mode-line-80col-face set-face-attribute mode-line nil :foreground "gray60" :background "gray20" :inverse-video mode-line-inactive "gray80" "gray40" :inherit mode-line-face "#4271ae" :box "#c82829" "#ffffff" "#999" "#f0f0f0" :height 120 :font "Visitor TT1 BRK" "#d9d9d9" :italic :bold "#718c00" "black" "#eab700"] 15)