Move some more custom org mode link handlers to `db-org'
This is where they belong, nowhere else.
This commit is contained in:
parent
c566908deb
commit
38f7fd7c88
4
init.el
4
init.el
|
@ -572,8 +572,6 @@
|
|||
db/bookmark-add-external
|
||||
db/bookmark-add-url
|
||||
db/lookup-smime-key
|
||||
db/org-onenote-open
|
||||
db/org-outlook-open
|
||||
db/dired-from-shell-command
|
||||
db/system-open))
|
||||
|
||||
|
@ -710,6 +708,8 @@ With given ARG, display files in `db/important-document-path’."
|
|||
db/org-capture-code-snippet
|
||||
hydra-org-clock/body
|
||||
db/make-org-capture-frame
|
||||
db/org-onenote-open
|
||||
db/org-outlook-open
|
||||
db/org-rfc-open))
|
||||
|
||||
(use-package org
|
||||
|
|
|
@ -440,6 +440,19 @@ Current Task: %s(db/org-clock-current-task); "
|
|||
|
||||
;;; Custom link handlers
|
||||
|
||||
(defun db/org-onenote-open (path)
|
||||
"Visit OneNote document on PATH."
|
||||
(unless (file-executable-p db/path-to-onenote)
|
||||
(user-error "Path for OneNote is not executable, please customize `db/path-to-onenote’."))
|
||||
(start-process "OneNote" nil db/path-to-onenote "/hyperlink" path))
|
||||
|
||||
(defun db/org-outlook-open (id)
|
||||
"Open the Outlook item identified by ID.
|
||||
ID should be an Outlook GUID."
|
||||
(unless (file-executable-p db/path-to-outlook)
|
||||
(user-error "Path for Outlook is not executable, please customize `db/path-to-outlook’."))
|
||||
(w32-shell-execute "open" db/path-to-outlook (concat "/select outlook:" id)))
|
||||
|
||||
(defun db/org-rfc-open (number)
|
||||
"Open browser to show RFC of given NUMBER.
|
||||
If `db/rfc-cache-path' is defined, download the RFC in txt format
|
||||
|
|
|
@ -491,19 +491,6 @@ This is done only if the value of this variable is not null."
|
|||
(call-process "xrandr" nil nil nil
|
||||
"--output" "HDMI-3" "--off"))
|
||||
|
||||
(defun db/org-onenote-open (path)
|
||||
"Visit OneNote document on PATH."
|
||||
(unless (file-executable-p db/path-to-onenote)
|
||||
(user-error "Path for OneNote is not executable, please customize `db/path-to-onenote’."))
|
||||
(start-process "OneNote" nil db/path-to-onenote "/hyperlink" path))
|
||||
|
||||
(defun db/org-outlook-open (id)
|
||||
"Open the Outlook item identified by ID.
|
||||
ID should be an Outlook GUID."
|
||||
(unless (file-executable-p db/path-to-outlook)
|
||||
(user-error "Path for Outlook is not executable, please customize `db/path-to-outlook’."))
|
||||
(w32-shell-execute "open" db/path-to-outlook (concat "/select outlook:" id)))
|
||||
|
||||
|
||||
;;; Bookmarks
|
||||
|
||||
|
|
Loading…
Reference in New Issue