Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: c24442eb96
Fetching contributors…

Cannot retrieve contributors at this time

55 lines (50 sloc) 2.031 kB
(setq display-time-24hr-format 't)
(setq display-time-day-and-date 't)
(setq display-time-default-load-average nil)
(display-time-mode 't)
(setq mode-line-in-non-selected-windows nil)
(defun truncate-string-to-length (str end-column
&optional start-column padding ellipsis)
"The same as truncate-string-to-width,
except it truncates from the start of the list"
(concat
(reverse
(append
(truncate-string-to-width
(concat (reverse (append (format str) nil)))
end-column start-column padding ellipsis) nil))))
;;Heavily edited from http://emacs-fu.blogspot.com/2011/08/customizing-mode-line.html
(setq default-mode-line-format
'(" "
mode-line-mule-info
mode-line-modified
" "
(:eval (propertize
(format "%-27s"
(truncate-string-to-length (or buffer-file-truename
(buffer-name))
27 nil nil ".."))
'help-echo (buffer-file-name)
'local-map
(let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-3]
'mode-line-next-buffer)
(define-key map [mode-line mouse-1]
'mode-line-previous-buffer)
map)))
" "
(:propertize "%02l")
","
(:propertize "%02c")
" ["
(:propertize mode-name
help-echo (format-mode-line minor-mode-alist))
(:propertize mode-line-process)
"] "
(:eval (propertize (format-time-string "%a %b %d, %H:%M")
'help-echo (format-time-string
"%A, %B %d, %Y, %H:%M")))
" "
(:propertize pomodoro-mode-line-string)
"-%-"))
(provide 'modeline-config)
Jump to Line
Something went wrong with that request. Please try again.