Mu4e: Remove spurious autoloads
None of these functions are called outside the file they're defined in.
This commit is contained in:
parent
695a670785
commit
e5c8cb747b
2 changed files with 0 additions and 13 deletions
|
@ -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)
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue