SiteMap Search ElispArea HowTo Glossary RecentChanges News Problems Suggestions

wuxch-mode-line.el

Download

;;; customize mode-line
(require 'modeline-posn)

;; 显示列号
(setq column-number-mode t)


;; 显示文件大小
(setq size-indication-mode t)

(add-to-list 'default-mode-line-format
             '((mark-active
                (:eval (format "Selected: %d line(s), %d char(s) "
                               (count-lines (region-beginning)
                                            (region-end))
                               (- (region-end) (region-beginning)))))))

(custom-set-variables
 '(eol-mnemonic-dos "[dos]")
 '(eol-mnemonic-unix "[unix]")
 '(eol-mnemonic-mac "[mac]")
 '(eol-mnemonic-undecided "[unknown]")
 )

;; ** – modified since last save
;; -- – not modified since last save
;; %* – read-only, but modified
;; %% – read-only, not modifed

;; (require 'show-point-mode.el)
;; (show-point-mode 1)

(set-face-background 'modeline "gray60")
(set-face-foreground 'modeline "blue")
(set-face-bold-p 'modeline t)

(set-face-background 'mode-line-inactive "gray70")


(provide 'wuxch-modeline)