From 3847fdab8fa0542f09ed74a1f2907e6f406d06c9 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 20 Aug 2021 00:18:59 +0100 Subject: nits --- completion.org | 7 ++++--- exwm.org | 1 + lib/net/jao-notmuch.el | 3 +-- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/completion.org b/completion.org index ff6e2ce..7b30f3b 100644 --- a/completion.org +++ b/completion.org @@ -365,11 +365,12 @@ (defun jao-embark-targets--w3m-anchor () (when (not (region-active-p)) - (when-let ((url (or (and (derived-mode-p 'w3m-mode) + (when-let ((url (or (jao-url-around-point) + (thing-at-point 'url) + (and (derived-mode-p 'w3m-mode) (or (w3m-anchor) w3m-current-url)) (and (derived-mode-p 'eww-mode) - (or (thing-at-point 'url) (eww-current-url))) - (jao-url-around-point)))) + (eww-current-url))))) (when (string-match-p "^https?.*" url) (cons 'url url))))) diff --git a/exwm.org b/exwm.org index 83496c9..e45a0a7 100644 --- a/exwm.org +++ b/exwm.org @@ -136,6 +136,7 @@ (jao-exwm--center-float 1200)))) (defvar jao-exwm-floating-classes '("mpv" "vlc")) + (setq jao-exwm-floating-classes nil) (defun jao-exwm--maybe-float () (when (member exwm-class-name jao-exwm-floating-classes) diff --git a/lib/net/jao-notmuch.el b/lib/net/jao-notmuch.el index 4f9d28a..320e898 100644 --- a/lib/net/jao-notmuch.el +++ b/lib/net/jao-notmuch.el @@ -321,8 +321,7 @@ (when (notmuch-tree-next-thread prev) (unless (jao-notmuch--looking-at-new-p) (notmuch-tree-matching-message prev (not no-exit))))) - ((notmuch-tree-get-message-id) - (notmuch-tree-matching-message prev (not no-exit))))) + (t (notmuch-tree-matching-message prev (not no-exit))))) (when (notmuch-tree-get-message-id) (jao-notmuch-tree-hide-others t))) -- cgit v1.2.3