Mu4e: Remove spurious autoloads

None of these functions are called outside the file they're defined in.
This commit is contained in:
TEC 2021-07-23 02:48:39 +08:00
parent 695a670785
commit e5c8cb747b
No known key found for this signature in database
GPG key ID: 779591AFDB81F06C
2 changed files with 0 additions and 13 deletions

View file

@ -77,9 +77,6 @@ default/fallback account."
;; TODO Interactively select email account ;; TODO Interactively select email account
(call-interactively #'mu4e-compose-new)) (call-interactively #'mu4e-compose-new))
;; Icons need a bit of work
;; Spacing needs to be determined and adjucted
;;;###autoload
(defun +mu4e--get-string-width (str) (defun +mu4e--get-string-width (str)
"Return the width in pixels of a string in the current "Return the width in pixels of a string in the current
window's default font. If the font is mono-spaced, this window's default font. If the font is mono-spaced, this
@ -93,7 +90,6 @@ will also be the width of all other printable characters."
(insert str) (insert str)
(car (window-text-pixel-size))))) (car (window-text-pixel-size)))))
;;;###autoload
(cl-defun +mu4e-normalised-icon (name &key set color height v-adjust) (cl-defun +mu4e-normalised-icon (name &key set color height v-adjust)
"Convert :icon declaration to icon" "Convert :icon declaration to icon"
(let* ((icon-set (intern (concat "all-the-icons-" (or set "faicon")))) (let* ((icon-set (intern (concat "all-the-icons-" (or set "faicon"))))
@ -123,7 +119,6 @@ will also be the width of all other printable characters."
mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple")) mu4e-headers-signed-mark (cons "s" (+mu4e-normalised-icon "certificate" :height 0.7 :color "dpurple"))
mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05)))) mu4e-headers-unread-mark (cons "u" (+mu4e-normalised-icon "eye-slash" :v-adjust 0.05))))
;;;###autoload
(defun +mu4e-colorize-str (str &optional unique herring) (defun +mu4e-colorize-str (str &optional unique herring)
"Apply a face from `+mu4e-header-colorized-faces' to STR. "Apply a face from `+mu4e-header-colorized-faces' to STR.
If HERRING is set, it will be used to determine the face instead of STR. If HERRING is set, it will be used to determine the face instead of STR.
@ -155,7 +150,6 @@ a quoted symbol for a alist of current strings and faces provided."
str) str)
str) str)
;;;###autoload
(defun +mu4e--str-color-face (str &optional offset) (defun +mu4e--str-color-face (str &optional offset)
"Select a face from `+mu4e-header-colorized-faces' based on "Select a face from `+mu4e-header-colorized-faces' based on
STR and any integer OFFSET." STR and any integer OFFSET."
@ -294,7 +288,6 @@ When otherwise called, open a dired buffer and enable `dired-mu4e-attach-ctrl-c-
(with-current-buffer (call-interactively #'find-file) (with-current-buffer (call-interactively #'find-file)
(dired-mu4e-attach-ctrl-c-ctrl-c 1))))) (dired-mu4e-attach-ctrl-c-ctrl-c 1)))))
;;;###autoload
(define-minor-mode dired-mu4e-attach-ctrl-c-ctrl-c (define-minor-mode dired-mu4e-attach-ctrl-c-ctrl-c
"Adds C-c C-c as an keybinding to attach files to a message." "Adds C-c C-c as an keybinding to attach files to a message."
:lighter "attach" :lighter "attach"
@ -306,7 +299,6 @@ When otherwise called, open a dired buffer and enable `dired-mu4e-attach-ctrl-c-
(substitute-command-keys (substitute-command-keys
"Mu4e attach active. `\\[+mu4e/attach-files]' to attach the marked files.")))) "Mu4e attach active. `\\[+mu4e/attach-files]' to attach the marked files."))))
;;;###autoload
(defun +mu4e-current-buffers () (defun +mu4e-current-buffers ()
"Return a list of active message buffers." "Return a list of active message buffers."
(let (buffers) (let (buffers)

View file

@ -10,7 +10,6 @@
(defvar +mu4e-lock-relaxed t (defvar +mu4e-lock-relaxed t
"Whether if someone else wants the lock (signaled via `+mu4e-lock-request-file'), we should stop Mu4e and let go of it") "Whether if someone else wants the lock (signaled via `+mu4e-lock-request-file'), we should stop Mu4e and let go of it")
;;;###autoload
(defun +mu4e-lock-pid-info () (defun +mu4e-lock-pid-info ()
"Get info on the PID refered to in `+mu4e-lock-file' in the form (pid . process-attributes) "Get info on the PID refered to in `+mu4e-lock-file' in the form (pid . process-attributes)
If the file or process do not exist, the lock file is deleted an nil returned." If the file or process do not exist, the lock file is deleted an nil returned."
@ -24,7 +23,6 @@
(if process (cons pid process) (if process (cons pid process)
(delete-file +mu4e-lock-file) nil)))) (delete-file +mu4e-lock-file) nil))))
;;;###autoload
(defun +mu4e-lock-available (&optional strict) (defun +mu4e-lock-available (&optional strict)
"If the `+mu4e-lock-file' is available (unset or owned by this emacs) return t. "If the `+mu4e-lock-file' is available (unset or owned by this emacs) return t.
If STRICT only accept an unset lock file." If STRICT only accept an unset lock file."
@ -63,7 +61,6 @@ Else, write to this process' PID to the lock file"
(defvar +mu4e-lock--file-just-deleted nil) (defvar +mu4e-lock--file-just-deleted nil)
(defvar +mu4e-lock--request-watcher nil) (defvar +mu4e-lock--request-watcher nil)
;;;###autoload
(defun +mu4e-lock-add-watcher () (defun +mu4e-lock-add-watcher ()
(setq +mu4e-lock--file-just-deleted nil) (setq +mu4e-lock--file-just-deleted nil)
(file-notify-rm-watch +mu4e-lock--file-watcher) (file-notify-rm-watch +mu4e-lock--file-watcher)
@ -72,7 +69,6 @@ Else, write to this process' PID to the lock file"
'(change) '(change)
#'+mu4e-lock-file-updated))) #'+mu4e-lock-file-updated)))
;;;###autoload
(defun +mu4e-lock-request (event) (defun +mu4e-lock-request (event)
"Handle another process requesting the Mu4e lock." "Handle another process requesting the Mu4e lock."
(when (equal (nth 1 event) 'created) (when (equal (nth 1 event) 'created)
@ -84,7 +80,6 @@ Else, write to this process' PID to the lock file"
(run-at-time 0.2 nil #'+mu4e-lock-add-watcher)) (run-at-time 0.2 nil #'+mu4e-lock-add-watcher))
(delete-file +mu4e-lock-request-file))) (delete-file +mu4e-lock-request-file)))
;;;###autoload
(defun +mu4e-lock-file-updated (event) (defun +mu4e-lock-file-updated (event)
(if +mu4e-lock--file-just-deleted (if +mu4e-lock--file-just-deleted
(+mu4e-lock-add-watcher) (+mu4e-lock-add-watcher)