Skip to content

Commit

Permalink
Fix smart-org with EOL, Org link and radio target additions
Browse files Browse the repository at this point in the history
  • Loading branch information
rswgnu committed May 2, 2021
1 parent dd63d76 commit 305858f
Show file tree
Hide file tree
Showing 2 changed files with 17 additions and 7 deletions.
4 changes: 2 additions & 2 deletions ChangeLog
Original file line number Diff line number Diff line change
Expand Up @@ -25,8 +25,8 @@
hui-mouse.el (action-key-error, assist-key-error): When in Org mode,
if no other context fired, use org-meta-return.
hsys-org.el (hsys-org-heading-at-p): Add to support Hyperbole
EOL handling and use in smart-org.

EOL handling and use in smart-org. Also when hsys-org-enable-smart-keys
is 'buttons, follow Org links and radio targets.

* kotl/kotl-mode.el (kotl-mode:kill-whole-line): Add override
of kill-whole-line for Koutliner.
Expand Down
20 changes: 15 additions & 5 deletions hui-mouse.el
Original file line number Diff line number Diff line change
Expand Up @@ -1638,11 +1638,21 @@ handled by the separate implicit button type, `org-link-outside-org-mode'."
;; Continue with any further Smart Key non-Org contexts
nil))))
((eq hsys-org-enable-smart-keys 'buttons)
(when (hbut:at-p)
;; Activate/Assist with any Hyperbole button at point
(if (not assist-flag)
(hact 'hbut:act)
(hact 'hkey-help)))
(cond ((hsys-org-radio-target-def-at-p)
(hact 'org-radio-target)
t)
((setq start-end (hsys-org-link-at-p))
(if (not assist-flag)
(progn (hsys-org-set-ibut-label start-end)
(hact 'org-link))
(hact 'hkey-help))
t)
((hbut:at-p)
;; Activate/Assist with any Hyperbole button at point
(if (not assist-flag)
(hact 'hbut:act)
(hact 'hkey-help)))
(t (hact 'org-meta-return current-prefix-arg)))
;; Ignore any further Smart Key non-Org contexts
t)
(t
Expand Down

0 comments on commit 305858f

Please sign in to comment.