gav451
/
emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: gav451:d6a9320fb91265b98c7408f488aa75585425518f
Branches Tags
gav451:main
...
compare: gav451:8d9b13abb949765a537426eea2e77a8c46a3ae46
Branches Tags
gav451:main

2 Commits
d6a9320fb9 ... 8d9b13abb9

Author SHA1 Message Date
Gerard Vermeulen 8d9b13abb9 Make `org-pdfview-store-link' comply with the new upstream API 2024-05-09 20:07:32 +02:00
Gerard Vermeulen 8b839dac11 Document how to configure Emacs without enabling dbus 2024-05-09 20:06:26 +02:00
1 changed files with 4 additions and 3 deletions
Show Stats Expand all files Collapse all files

7
README.org
View File

@ -296,6 +296,7 @@ of [[info:emacs#Saving Customizations][saving customizations (info)]].
(when (eq system-type 'darwin) (when (eq system-type 'darwin)
;; Failed to initialize color list unarchiver: ... ;; Failed to initialize color list unarchiver: ...
;; BUG#32854 and BUG#70836: rm ~/Library/Colors/Emacs.clr ;; BUG#32854 and BUG#70836: rm ~/Library/Colors/Emacs.clr
;; INSTALL file: '--without-dbus --without-gconf --without-gsettings'.
(setopt ns-alternate-modifier nil (setopt ns-alternate-modifier nil
ns-command-modifier 'meta ns-command-modifier 'meta
ns-right-command-modifier 'super)) ns-right-command-modifier 'super))
@ -3417,15 +3418,15 @@ facilate moving single directories or whole directory trees."
(org-open-file path 1) (org-open-file path 1)
(when page (pdf-view-goto-page page)))) (when page (pdf-view-goto-page page))))
(defun org-pdfview-store-link () (defun org-pdfview-store-link (&optional _interactive?)
"Store a \"pdfview\" type link." "Store a \"pdfview\" type link."
(when (eq major-mode 'pdf-view-mode) (when (eq major-mode 'pdf-view-mode)
(let* ((path buffer-file-name) (let* ((path buffer-file-name)
(page (pdf-view-current-page)) (page (pdf-view-current-page))
(link (concat "pdfview:" path "::" (number-to-string page)))) (text (concat "pdfview:" path "::" (number-to-string page))))
(org-link-store-props (org-link-store-props
:type "pdfview" :type "pdfview"
:link link :link text
:description path)))) :description path))))
(with-eval-after-load 'ol (with-eval-after-load 'ol