jessieh/mood-line
jessieh/mood-line
1
Fork 2
Code Issues 4 Pull Requests 1 Releases Activity

Remove unnecessary autoloads

Browse Source
This commit is contained in:
Jessie Hildebrandt 2019-05-10 19:50:01 -04:00
parent 7c1cc2f456
commit 4786beec95
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mood-line.el
View File

@ -107,7 +107,6 @@
;; Helper functions ;; Helper functions
;; ;;
;;;###autoload
(defun mood-line-format (left right) (defun mood-line-format (left right)
"Return a string of `window-width' length containing LEFT and RIGHT, aligned respectively." "Return a string of `window-width' length containing LEFT and RIGHT, aligned respectively."
(let ((reserve (length right))) (let ((reserve (length right)))
@ -193,7 +192,6 @@
;; Segments ;; Segments
;; ;;
;;;###autoload
(defun mood-line-segment-modified () (defun mood-line-segment-modified ()
"Displays a color-coded buffer modification indicator in the mode-line." "Displays a color-coded buffer modification indicator in the mode-line."
(propertize (propertize
@ -204,18 +202,15 @@
" ") " ")
'face 'mood-line-modified)) 'face 'mood-line-modified))
;;;###autoload
(defun mood-line-segment-buffer-name () (defun mood-line-segment-buffer-name ()
"Displays the name of the current buffer in the mode-line." "Displays the name of the current buffer in the mode-line."
(concat (propertize "%b" 'face 'mode-line-buffer-id) " ")) (concat (propertize "%b" 'face 'mode-line-buffer-id) " "))
;;;###autoload
(defun mood-line-segment-anzu () (defun mood-line-segment-anzu ()
"Displays color-coded anzu status information in the mode-line (if available)." "Displays color-coded anzu status information in the mode-line (if available)."
(when anzu--state (when anzu--state
(concat (anzu--update-mode-line) " "))) (concat (anzu--update-mode-line) " ")))
;;;###autoload
(defun mood-line-segment-multiple-cursors () (defun mood-line-segment-multiple-cursors ()
"Displays the number of active multiple-cursors in the mode-line (if available)." "Displays the number of active multiple-cursors in the mode-line (if available)."
(when multiple-cursors-mode (when multiple-cursors-mode
@ -223,7 +218,6 @@
(format #("%d" 0 2 (face font-lock-warning-face)) (mc/num-cursors)) (format #("%d" 0 2 (face font-lock-warning-face)) (mc/num-cursors))
" "))) " ")))
;;;###autoload
(defun mood-line-segment-position () (defun mood-line-segment-position ()
"Displays the current cursor position in the mode-line." "Displays the current cursor position in the mode-line."
(concat "%l:%c " (concat "%l:%c "
@ -232,7 +226,6 @@
'mode-line-inactive)) 'mode-line-inactive))
" ")) " "))
;;;###autoload
(defun mood-line-segment-encoding () (defun mood-line-segment-encoding ()
"Displays the encoding and EOL style of the buffer in the mode-line." "Displays the encoding and EOL style of the buffer in the mode-line."
(concat (pcase (coding-system-eol-type buffer-file-coding-system) (concat (pcase (coding-system-eol-type buffer-file-coding-system)
@ -245,12 +238,10 @@
(t (upcase (symbol-name (plist-get sys :name)))))) (t (upcase (symbol-name (plist-get sys :name))))))
" ")) " "))
;;;###autoload
(defun mood-line-segment-vc () (defun mood-line-segment-vc ()
"Displays color-coded version control information in the mode-line." "Displays color-coded version control information in the mode-line."
mood-line--vc-text) mood-line--vc-text)
;;;###autoload
(defun mood-line-segment-major-mode () (defun mood-line-segment-major-mode ()
"Displays the current major mode in the mode-line." "Displays the current major mode in the mode-line."
(propertize "%m " (propertize "%m "
@ -258,7 +249,6 @@
'bold 'bold
'mood-line-status-grayed-out))) 'mood-line-status-grayed-out)))
;;;###autoload
(defun mood-line-segment-flycheck () (defun mood-line-segment-flycheck ()
"Displays color-coded flycheck information in the mode-line (if available)." "Displays color-coded flycheck information in the mode-line (if available)."
mood-line--flycheck-text) mood-line--flycheck-text)