summaryrefslogtreecommitdiffhomepage
path: root/custom/jao-custom-exwm.el
diff options
context:
space:
mode:
Diffstat (limited to 'custom/jao-custom-exwm.el')
-rw-r--r--custom/jao-custom-exwm.el24
1 files changed, 12 insertions, 12 deletions
diff --git a/custom/jao-custom-exwm.el b/custom/jao-custom-exwm.el
index 2135935..e5c67f8 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 ()
@@ -341,21 +341,21 @@
(defun jao-exwm-zathura-goto-org (&optional arg)
(interactive "P")
- (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)))))
+ (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))))))
(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)))
@@ -385,7 +385,7 @@
(interactive)
(if jao-browse-doc-use-emacs-p
(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"
@@ -422,7 +422,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")