branch: master
commit 4bc5aa2ecb1742259997c3a80012129bf959d383
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
[org-translate] Add keymap for translation links, plus occur command
* packages/org-translate/org-translate.el (ogt-link-keymap): Keymap
active on trans: type links.
(ogt-term-occur): Command to show all occurances of a translation
term in the buffer. Doesn't actually work (doesn't display anything)
but we'll figure that out.
---
packages/org-translate/org-translate.el | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/packages/org-translate/org-translate.el
b/packages/org-translate/org-translate.el
index b12bc40..e6ba42f 100644
--- a/packages/org-translate/org-translate.el
+++ b/packages/org-translate/org-translate.el
@@ -290,10 +290,16 @@ fragilely, and deleted and re-set with abandon.")
(defvar-local ogt-source-segment-overlay nil
"Overlay on the current source segment.")
+(defvar ogt-link-keymap
+ (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "o") #'ogt-term-occur)
+ map)
+ "Keymap active on \"trans:\" type Org links.")
+
(org-link-set-parameters
"trans"
:follow #'ogt-follow-link
- ;; Give it a :keymap! Very nice.
+ :keymap ogt-link-keymap
:export #'ogt-export-link)
(defun ogt-follow-link (link)
@@ -409,6 +415,16 @@ By default, just remove it."
(replace-regexp-in-string
(string ogt-segmentation-character) "" body-string))
+(defun ogt-term-occur ()
+ "Run `occur' for the glossary term at point.
+Available on \"trans:\" type links that represent glossary
+terms."
+ (interactive)
+ (let ((id (org-element-property :path (org-element-context))))
+ ;; I thought I should use `org-occur', but that only seems to work
+ ;; correctly in the sparse tree context.
+ (occur (concat "trans:" id))))
+
(defun ogt-prettify-segmenters (&optional begin end)
"Add a display face to all segmentation characters.
If BEGIN and END are given, prettify segmenters between those
