emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Bill Burdick <bill.burdick@gmail.com>
To: linux_hpc_akr@goodyear.com
Cc: orgmode <emacs-orgmode@gnu.org>
Subject: Re: Org and Hyperbole
Date: Thu, 23 Jun 2022 09:47:48 +0300	[thread overview]
Message-ID: <CAP6X8DiqLqa7BZMMC-tiQ+Y5Nnw0uywwSFStCuTK_emunhgP+g@mail.gmail.com> (raw)
In-Reply-To: <1680266.1655927859@rds059>

[-- Attachment #1: Type: text/plain, Size: 2333 bytes --]

In case anyone's interested in writing hyperbole commands that can act on
regions but be located in other windows...

To write a hyperbole command that restores the previous window and
selection, just call bill/hyp-load-state at the start of your code and call
bill/hyp-restore at the end (see bill/recalc for an example).

This lets <recalc> recalculate org tables in any buffer with the button in
a different (or the same) window.

Here's some example text:

<recalc>

Here's a table. Click in it and then shift-middle-click recalc, above.
"aaa12" should change to "12" and your cursor should stay in the same place.
| a | aaa12 |
| a |  5 |
|   | 17 |
#+TBLFM: @1$2=3*4::@2$2=2+3::@3$2=vsum(@1..@2)

Here's my current definition for recalc

(defvar bill/hyp-state nil)

(defun bill/hyp-save-state (&rest args)
  (setq bill/hyp-state
        (list (selected-window) (point-marker) (and (use-region-p)
(copy-marker (mark-marker))))))

(cl-defun bill/hyp-load-state (&optional (state bill/hyp-state))
  (let ((window (car state))
        (point (cadr state))
        (mark (caddr state)))
    (when window
      (select-window window)
      (set-buffer (marker-buffer point))
      (and mark (set-mark (marker-position mark)))
      (goto-char point))))

(defun bill/hyp-restore ()
  (let ((state bill/hyp-state))
    (run-at-time 0 nil (lambda () (bill/hyp-load-state state)))))

(advice-add 'action-key-depress :before 'bill/hyp-save-state)
;; evaluate this to remove the advice
;;(advice-remove 'action-key-depress 'bill/hyp-save-state)

(defun bill/recalc (end)
  (let ((act-point action-key-depress-prev-point))
    (bill/hyp-load-state)
    (when (org-at-table-p)
      (org-table-analyze)
      (org-table-maybe-eval-formula)
      (call-interactively 'org-table-recalculate)
      (org-table-align)))
  (bill/hyp-restore))

(defib recalc ()
  "recalculate the table at point"
  (save-excursion
    (let* ((pos (point))
           (eol (progn (re-search-forward "\n") (point)))
           (bol (progn (re-search-backward "\n" nil t 2) (1+ (point))))
           (start (progn (goto-char pos) (re-search-backward "<" bol t)))
           (end (progn (goto-char pos) (re-search-forward ">" eol t))))
      (and start end (string-match "<recalc[> ].*" (buffer-substring start
end))
           (hact 'bill/recalc end)))))


-- Bill

[-- Attachment #2: Type: text/html, Size: 3120 bytes --]

  reply	other threads:[~2022-06-23  6:52 UTC|newest]

Thread overview: 118+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2022-06-22 19:57 Org and Hyperbole linux_hpc_akr
2022-06-23  6:47 ` Bill Burdick [this message]
2022-06-23  6:53   ` Bill Burdick
  -- strict thread matches above, loose matches on Subject: below --
2022-10-09  9:12 Payas Relekar
2022-10-04  6:46 Payas Relekar
2022-10-07 22:44 ` Jean Louis
2022-10-08  0:45   ` Hendursaga
2022-10-08  1:05     ` Jean Louis
2022-10-08 17:04       ` Robert Weiner
2022-10-08 20:48 ` Robert Weiner
2022-06-24  1:45 Robert Weiner
2022-06-24  1:56 ` Robert Weiner
2022-06-24  4:32   ` Samuel Wales
2022-06-24  5:34     ` Robert Weiner
2022-06-24 10:55       ` indieterminacy
2022-06-24 12:51         ` Robert Weiner
2022-10-08 20:26           ` Robert Weiner
2022-10-10  4:02             ` indieterminacy
2022-09-27 13:59       ` Jean Louis
2022-10-04  6:10         ` Robert Weiner
2022-10-04 18:05           ` David Masterson
2022-10-07 19:52             ` Jean Louis
2022-10-08 21:05               ` Robert Weiner
2022-10-09  9:54                 ` Jean Louis
2022-10-10 16:44                   ` David Masterson
2022-10-10 23:04                     ` Jean Louis
2022-10-11  0:21                       ` David Masterson
2022-10-07 22:57             ` Jean Louis
2022-10-10 16:50               ` David Masterson
2022-10-10 23:07                 ` Jean Louis
2022-10-08 20:53             ` Robert Weiner
2022-10-09 11:16               ` Jean Louis
2022-10-10 16:52               ` David Masterson
2022-10-07 22:18           ` Jean Louis
2022-09-27 13:52     ` Jean Louis
2022-06-24  2:13 ` Eduardo Ochs
2022-06-24  2:20   ` Robert Weiner
2022-06-24  2:14 ` Robert Weiner
2022-06-24  6:29 ` Tim Cross
2022-06-24 12:44   ` Robert Weiner
2022-06-24 13:52 ` Juan Manuel Macías
2022-06-24 22:06   ` Robert Weiner
2022-06-25 14:32     ` Juan Manuel Macías
2022-06-25 20:35       ` Robert Weiner
2022-10-08 20:34       ` Robert Weiner
2022-10-08 21:43         ` Juan Manuel Macías
2022-06-24 17:57 ` João Pedro
2022-06-25  1:32   ` Robert Weiner
2022-07-02  4:41     ` Samuel Wales
2022-07-02  4:49       ` Ihor Radchenko
2022-07-02  4:57         ` Samuel Wales
2022-07-02  5:12           ` Ihor Radchenko
2022-07-02 21:38             ` Samuel Wales
2022-07-07 12:18     ` Max Brieiev
2022-07-07 12:27       ` Ihor Radchenko
2022-07-16 23:16         ` Robert Weiner
2022-07-16 23:17           ` Robert Weiner
2022-06-25 19:07 ` David Masterson
2022-06-25 20:49   ` Robert Weiner
2022-06-25 21:18     ` David Masterson
2022-10-08 19:44       ` Robert Weiner
2022-09-27 14:06     ` Jean Louis
2022-10-04  6:11       ` Robert Weiner
2022-10-07 22:04         ` Jean Louis
2022-06-26  6:37 ` Siva Swaminathan
2022-06-26  7:24   ` tomas
2022-06-26 20:03     ` David Masterson
2022-06-26 20:27       ` indieterminacy
2022-06-26 20:51         ` Robert Weiner
2022-06-27 23:16           ` David Masterson
2022-06-26 20:27   ` Robert Weiner
2022-10-08 19:52   ` Robert Weiner
2022-07-04 10:43 ` Fraga, Eric
2022-07-04 11:01   ` Ihor Radchenko
2022-07-04 11:08     ` Fraga, Eric
2022-07-04 11:09   ` Tim Cross
2022-07-04 14:20     ` Fraga, Eric
2022-07-04 16:56       ` Robert Weiner
2022-07-06 16:58         ` Fraga, Eric
2022-07-07  2:33           ` Robert Weiner
2022-07-07 10:46             ` Fraga, Eric
2022-10-08 20:01               ` Robert Weiner
2022-06-20 14:03 Juan Manuel Macías
2022-06-20 15:26 ` Russell Adams
2022-06-20 16:57   ` Eduardo Ochs
2022-06-20 23:28     ` Juan Manuel Macías
2022-06-20 23:37   ` Tim Cross
2022-09-27 13:06     ` Jean Louis
2022-09-27 15:08       ` Russell Adams
2022-10-08 17:26         ` Robert Weiner
2022-09-27 13:18     ` Jean Louis
2022-06-22 15:13   ` Russell Adams
2022-06-22 17:36     ` Bill Burdick
2022-06-22 18:05       ` David Masterson
2022-06-22 19:03         ` Bill Burdick
2022-06-23  3:46           ` David Masterson
2022-06-20 15:56 ` Uwe Brauer
2022-06-20 16:09 ` Bill Burdick
2022-06-20 16:24 ` indieterminacy
2022-06-22 14:48   ` Juan Manuel Macías
2022-09-27 13:26   ` Jean Louis
2022-06-21  3:08 ` David Masterson
2022-06-22 10:37   ` Juan Manuel Macías
2022-06-22 14:35     ` Bill Burdick
2022-06-22 19:23       ` David Masterson
2022-06-22 19:26         ` Bill Burdick
2022-06-22 19:55           ` Bill Burdick
2022-06-23 18:48       ` Eduardo Ochs
2022-06-22 19:17     ` David Masterson
2022-06-23  1:12     ` Samuel Wales
2022-06-23  4:04       ` David Masterson
2022-06-23  5:22         ` indieterminacy
2022-06-23 15:38           ` Samuel Banya
2022-06-23 23:30           ` Samuel Wales
2022-06-23 23:36             ` Samuel Wales
2022-06-24  5:50               ` indieterminacy
2022-09-27 13:33       ` Jean Louis
2022-10-07 20:34       ` Jean Louis

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=CAP6X8DiqLqa7BZMMC-tiQ+Y5Nnw0uywwSFStCuTK_emunhgP+g@mail.gmail.com \
    --to=bill.burdick@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=linux_hpc_akr@goodyear.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).