diff options
Diffstat (limited to 'exwm.org')
-rw-r--r-- | exwm.org | 25 |
1 files changed, 16 insertions, 9 deletions
@@ -309,6 +309,9 @@ (dolist (k (string-to-list (kbd str))) (exwm-input--fake-key k))) + (defun jao-zathura-goto-page (page-no) + (jao-exwm--send-str (format "%sg" page-no))) + (defun jao-zathura-open-doc (file-name &optional page-no height) (let* ((file-name (expand-file-name file-name)) (buffer (seq-find `(lambda (b) @@ -321,7 +324,8 @@ (format "zathura -P %s %s" page-no file-name) (format "zathura %s" file-name))) (pop-to-buffer buffer) - (jao-exwm--send-str (format "%sg" page-no))))) + (jao-doc-view--enable-imenu file-name #'jao-zathura-goto-page) + (jao-zathura-goto-page page-no)))) (defun jao-exwm-pdf-zathura-close-all () (interactive) @@ -346,9 +350,10 @@ (defun jao-exwm-org-store-zathura-link () (when-let ((info (jao-zathura--file-info (current-buffer)))) - (jao-org-links-store-pdf-link (car info) - (cadr info) - (jao-doc-view-title (car info))))) + (let* ((file-name (car info)) + (page (cadr info)) + (desc (jao-doc-view-section-title page file-name))) + (jao-org-links-store-pdf-link file-name page desc)))) (defun jao-exwm-pdf-enable-zathura () (interactive) @@ -372,7 +377,7 @@ #+begin_src emacs-lisp (major-mode-hydra-define+ (doc-view-mode pdf-view-mode) nil ("External" - (("z" jao-exwm-open-with-zathura "open with zathura") + (("z" (jao-zathura-open-doc (buffer-file-name)) "open with zathura") ("m" jao-exwm-open-with-mupdf "open with mupdf")))) (defhydra jao-hydra-float (:color blue) @@ -423,9 +428,11 @@ ("s-w" jao-hydra-exwm/body nil)) "Network" (("S" jao-ssh "ssh") + ("T" telega "telegram rooster") ;; ("b" jao-exwm-bluetooth "bluetooth") ;; ("m" run-proton-bridge "proton bridge") - ("v" jao-exwm-proton-vpn "proton vpn")) + ;; ("v" jao-exwm-proton-vpn "proton vpn") + ("c" (jao-chats t) "connect chats")) "Monitors" (("p" jao-vterm-htop "htop") ;; ("P" jao-exwm-proced "proced") @@ -434,12 +441,12 @@ ;; ("t" jao-time-echo-times "current time") ) "Chats" - (("t" telega "telegram rooster") + (("t" (jao-buffer-same-mode 'telega-chat-mode) "telgram buffers") ("s" (jao-buffer-same-mode 'slack-message-buffer-mode) "slack buffers") ("i" (jao-buffer-same-mode 'circe-channel-mode) "irc channels")) "Looks" - (("T" jao-toggle-transparency "toggle transparency" - :toggle (jao-transparent-p) :color red) + (;; ("T" jao-toggle-transparency "toggle transparency" + ;; :toggle (jao-transparent-p) :color red) ("w" jao-set-wallpaper "set wallpaper") ("W" jao-set-random-wallpaper "set radom wallpaper")) "Helpers" |