diff --git a/mood-line.el b/mood-line.el index 8023a59..ebc98f6 100644 --- a/mood-line.el +++ b/mood-line.el @@ -87,6 +87,7 @@ ;; 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))) @@ -110,6 +111,7 @@ ;; Window update function (defvar-local mood-line--current-window (frame-selected-window)) +;;;###autoload (defun mood-line--update-selected-window (&rest _) "Update the `mood-line--current-window' variable." (when (frame-selected-window) @@ -119,6 +121,7 @@ ;; VC update function (defvar-local mood-line--vc-text nil) +;;;###autoload (defun mood-line--update-vc-segment (&rest _) "Update `mood-line--vc-text' against the current VCS state." (setq mood-line--vc-text @@ -149,6 +152,7 @@ ;; Flycheck update function (defvar-local mood-line--flycheck-text nil) +;;;###autoload (defun mood-line--update-flycheck-segment (&optional status) "Update `mood-line--flycheck-text' against the reported flycheck STATUS." (setq mood-line--flycheck-text @@ -172,6 +176,7 @@ ;; Segments ;; +;;;###autoload (defun mood-line-segment-modified () "Displays a color-coded buffer modification indicator in the mode-line." (propertize @@ -182,15 +187,18 @@ " ") '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 @@ -198,6 +206,7 @@ (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 " @@ -206,6 +215,7 @@ '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) @@ -218,10 +228,12 @@ (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 " @@ -229,6 +241,7 @@ '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) @@ -237,6 +250,7 @@ ;; Activation function ;; +;;;###autoload (defun mood-line-activate () "Replace the current mode-line with mood-line." (interactive)