Appease byte-compiler-sama

modules/app/email/+gmail.el

@@ -16,12 +16,12 @@
   (map-put mu4e-marks 'trash
            (list :char '("d" . "▼")
                  :prompt "dtrash"
-                 :dyn-target (lambda (target msg) (mu4e-get-trash-folder msg))
+                 :dyn-target (lambda (_target msg) (mu4e-get-trash-folder msg))
                  :action #'+email--mark-seen))
   ;; Refile will be my "archive" function.
   (map-put mu4e-marks 'refile
            (list :char '("r" . "▶") :prompt "refile"
-                 :show-target (lambda (target) "archive")
+                 :show-target (lambda (_target) "archive")
                  :action #'+email--mark-seen))
 
   ;; This hook correctly modifies gmail flags on emails when they are marked.
@@ -29,8 +29,9 @@
   ;; won't properly result in the corresponding gmail action, since the marks
   ;; are ineffectual otherwise.
   (defun +email|gmail-fix-flags (mark msg)
-    (cond ((eq mark 'trash)  (mu4e-action-retag-message msg "-\\Inbox,+\\Trash,-\\Draft"))
+    (pcase mark
-          ((eq mark 'refile) (mu4e-action-retag-message msg "-\\Inbox"))
+      (`trash  (mu4e-action-retag-message msg "-\\Inbox,+\\Trash,-\\Draft"))
-          ((eq mark 'flag)   (mu4e-action-retag-message msg "+\\Starred"))
+      (`refile (mu4e-action-retag-message msg "-\\Inbox"))
-          ((eq mark 'unflag) (mu4e-action-retag-message msg "-\\Starred"))))
+      (`flag   (mu4e-action-retag-message msg "+\\Starred"))
+      (`unflag (mu4e-action-retag-message msg "-\\Starred"))))
   (add-hook 'mu4e-mark-execute-pre-hook #'+email|gmail-fix-flags))

modules/app/twitter/autoload.el

@@ -62,7 +62,7 @@ that works with the feature/popup module."
     (with-current-buffer buf
       (twittering-rerender-timeline-all buf)
       (setq-local line-spacing 0.2)
-      (goto-line 0 buf))))
+      (goto-char (point-min)))))
 
 ;;;###autoload
 (defun +twitter/ace-link ()

modules/app/twitter/config.el

@@ -30,7 +30,8 @@
     '((transient) (quit) (select . t)))
 
   (defface twitter-divider
-    `((t (:underline (:color ,(doom-darken 'vertical-bar 0.2)))))
+    '((((background dark))  (:underline (:color "#141519")))
+      (((background light)) (:underline (:color "#d3d3d3"))))
     "The vertical divider between tweets."
     :group 'twittering-mode)
 

modules/config/default/+bindings.el

@@ -747,7 +747,7 @@
 ;;
 
 (when (featurep 'evil-collection)
-  (defun +config|deal-with-evil-collections-bs (feature keymaps)
+  (defun +config|deal-with-evil-collections-bs (_feature keymaps)
     "Unmap keys that conflict with Doom's defaults."
     (dolist (map keymaps)
       (evil-define-key '(normal visual motion) map

modules/config/default/config.el

@@ -76,15 +76,16 @@
     (defvar +default-repeat-forward-key ";")
     (defvar +default-repeat-backward-key ",")
 
-    ;; Makes ; and , the universal repeat-keys in evil-mode
+    (eval-and-compile
-    (defmacro do-repeat! (command next-func prev-func)
+      ;; Makes ; and , the universal repeat-keys in evil-mode
-      "Repeat motions with ;/,"
+      (defmacro do-repeat! (command next-func prev-func)
-      (let ((fn-sym (intern (format "+evil*repeat-%s" command))))
+        "Repeat motions with ;/,"
-        `(progn
+        (let ((fn-sym (intern (format "+evil*repeat-%s" (doom-unquote command)))))
-           (defun ,fn-sym (&rest _)
+          `(progn
-             (define-key evil-motion-state-map +default-repeat-forward-key ',next-func)
+             (defun ,fn-sym (&rest _)
-             (define-key evil-motion-state-map +default-repeat-backward-key ',prev-func))
+               (define-key evil-motion-state-map +default-repeat-forward-key #',next-func)
-           (advice-add #',command :before #',fn-sym))))
+               (define-key evil-motion-state-map +default-repeat-backward-key #',prev-func))
+             (advice-add #',command :before #',fn-sym)))))
 
     ;; n/N
     (do-repeat! evil-ex-search-next evil-ex-search-next evil-ex-search-previous)