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