emacs 31main

1 files changed, 12 insertions, 12 deletions

diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el
index 5e4a354..3494044 100644
--- a/custom/jao-custom-exwm.el
+++ b/custom/jao-custom-exwm.el
@@ -185,7 +185,7 @@
   (when cln
     (if (jao-exwm--check-name cln)
         (current-buffer)
-      (when-let ((b (jao-exwm-find-class-buffer cln)))
+      (when-let* ((b (jao-exwm-find-class-buffer cln)))
         (pop-to-buffer b)))))
 
 (defun jao-exwm-switch-to-next-class ()
@@ -343,21 +343,21 @@
 
 (defun jao-exwm-zathura-goto-org (&optional arg)
   (interactive "P")
-  (when-let ((info (jao-zathura--file-info (current-buffer))))
-    (when-let ((file (jao-org-find-for-pdf (car info))))
-      (let ((newp (not (file-exists-p file))))
-        (when (or arg newp) (org-store-link nil t))
-        (find-file-other-window file)
-        (when newp
-          (jao-org-insert-doc-skeleton)
-          (org-insert-link))))))
+  (when-let* ((info (jao-zathura--file-info (current-buffer)))
+              (file (jao-org-find-for-pdf (car info))))
+    (let ((newp (not (file-exists-p file))))
+      (when (or arg newp) (org-store-link nil t))
+      (find-file-other-window file)
+      (when newp
+        (jao-org-insert-doc-skeleton)
+        (org-insert-link)))))
 
 (defun jao-exwm-zathura-goto-org* ()
   (interactive)
   (jao-exwm-zathura-goto-org t))
 
 (defun jao-exwm-org-store-zathura-link ()
-  (when-let ((info (jao-zathura--file-info (current-buffer))))
+  (when-let* ((info (jao-zathura--file-info (current-buffer))))
     (let* ((file-name (car info))
            (page (cadr info))
            (desc (jao-pdf-section-title page file-name)))
@@ -387,7 +387,7 @@
   (interactive)
   (if jao-pdf-open-in-emacs
       (jao-org-goto-pdf)
-    (when-let (pdf (jao-exwm-org-to-pdf-file))
+    (when-let* ((pdf (jao-exwm-org-to-pdf-file)))
       (jao-zathura-open-doc pdf))))
 
 (with-eval-after-load "org"
@@ -424,7 +424,7 @@
 
 (defun jao-exwm-kill-firefox-url ()
   (interactive)
-  (when-let (b (jao-exwm-find-class-buffer "Firefox"))
+  (when-let* ((b (jao-exwm-find-class-buffer "Firefox")))
     (let ((cb (current-buffer)))
       (switch-to-buffer b)
       (jao-exwm--send-str "yy")