[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org-translate 9539f01 11/19: [org-translate] Add keymap
From: |
Stefan Monnier |
Subject: |
[elpa] externals/org-translate 9539f01 11/19: [org-translate] Add keymap for translation links, plus occur command |
Date: |
Tue, 1 Dec 2020 16:34:23 -0500 (EST) |
branch: externals/org-translate
commit 9539f01a29a40a9c280749e9df18c9c1b1d6cc54
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@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.
---
org-translate.el | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/org-translate.el b/org-translate.el
index b12bc40..e6ba42f 100644
--- a/org-translate.el
+++ b/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
- [elpa] branch externals/org-translate created (now 1630bad), Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate d78ed3e 02/19: * org-translate.el: Add missing author info, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 8fe738a 05/19: [org-translate] Segment both source and translation trees, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate e60252b 07/19: [org-translate] Be stricter at startup, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 3024d22 03/19: [org-translate] Remove extraneous Author header, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 380ab9e 10/19: [org-translate] Fix bug in ogt-hightlight-source-segment, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate c3600f4 14/19: [org-translate] Remove ogt-follow-link, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 9539f01 11/19: [org-translate] Add keymap for translation links, plus occur command,
Stefan Monnier <=
- [elpa] externals/org-translate 94f9307 15/19: [org-translate] New command ogt-term-display-translations, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 7b31f0a 04/19: [org-translate] Require 'ox library, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate fbd9d57 01/19: [org-translate] Add version 0 of org-translate, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate fecfa31 06/19: [org-translate] Improve documentation, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate d672d8c 08/19: [org-translate] Rename ogt-add-glossary-item: ogt-new-glossary-term, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 1630bad 19/19: * .gitignore: New file, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate f7bcba6 09/19: [org-translate] Allow ogt-insert-glossary-translation to prompt, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 8d6c684 12/19: [org-translate] Release version 0.1, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate 1a7368c 13/19: [org-translate] Fix bum link following, bump to 0.1.1, Stefan Monnier, 2020/12/01
- [elpa] externals/org-translate b67b45c 16/19: [org-translate] Do a better job of reporting errors at startup, Stefan Monnier, 2020/12/01