From: Kaushal Modi <kaushal.modi@gmail.com>
To: Adam Porter <adam@alphapapa.net>, emacs-org list <emacs-orgmode@gnu.org>
Subject: Re: function for inserting a block
Date: Sat, 2 Sep 2017 20:06:29 -0700 [thread overview]
Message-ID: <CAFyQvY2Q2N3Hp2zOeiiq4s80z5-wb6x2+GatW=AXuOwEr6vu7A@mail.gmail.com> (raw)
In-Reply-To: <87h8wked4b.fsf@alphapapa.net>
[-- Attachment #1: Type: text/plain, Size: 6138 bytes --]
On Sat, Sep 2, 2017, 10:23 PM Adam Porter <adam@alphapapa.net> wrote:
> Hi Eric,
>
> Thanks for doing this. I've had some similar code in my config for a
> while. I'll share some of it here in case you find it useful in doing
> this. You especially might find the org-read-structure-template
> function useful.
>
And here's my version, which also uses hydra. But the function
modi/org-template-expand to insert the BEGIN_../END_.. blocks can be
reused.
This at least tells that there's a good need to have the easy template do
the right thing when it is called with a region selected.
@Adam: Looks like your code is doing a lot more than just that. I'll put
that to my list to understand once I get to a computer.
>
(defun modi/org-template-expand (str &optional lang)
"Expand Org template."
(let (beg old-beg end content)
;; Save restriction to automatically undo the upcoming
`narrow-to-region'
(save-restriction
(when (use-region-p)
(setq beg (region-beginning))
(setq end (region-end))
;; Note that regardless of the direction of selection, we
will always
;; have (region-beginning) < (region-end).
(save-excursion
;; If `point' is at `end', exchange point and mark so that now the
;; `point' is now at `beg'
(when (> (point) (mark))
(exchange-point-and-mark))
;; Insert a newline if `beg' is *not* at beginning of the line.
;; Example: You have ^abc$ where ^ is bol and $ is eol.
;; "bc" is selected and <e is pressed to result in:
;; a
;; #+BEGIN_EXAMPLE
;; bc
;; #+END_EXAMPLE
(when (/= beg (line-beginning-position))
(electric-indent-just-newline 1)
(setq old-beg beg)
(setq beg (point))
;; Adjust the `end' due to newline
(setq end (+ end (- beg old-beg)))))
(save-excursion
;; If `point' is at `beg', exchange point and mark so that now the
;; `point' is now at `end'
(when (< (point) (mark))
(exchange-point-and-mark))
;; If the `end' position is at the beginning of a line decrement
;; the position by 1, so that the resultant position is eol on
;; the previous line.
(when (= end (line-beginning-position))
(setq end (1- end)))
;; Insert a newline if `point'/`end' is *not* at end of the line.
;; Example: You have ^abc$ where ^ is bol and $ is eol.
;; "a" is selected and <e is pressed to result in:
;; #+BEGIN_EXAMPLE
;; a
;; #+END_EXAMPLE
;; bc
(when (not (looking-at "[[:blank:]]*$"))
(electric-indent-just-newline 1)))
;; Narrow to region so that the text surround the region does
;; not mess up the upcoming `org-try-structure-completion' eval
(narrow-to-region beg end)
(setq content (delete-and-extract-region beg end)))
(insert str)
(org-try-structure-completion)
(when (string= "<s" str)
(cond
(lang
(insert lang)
(forward-line))
((and content (not lang))
(insert "???")
(forward-line))
(t
)))
;; At this point the cursor will be between the #+BEGIN and
#+END lines
(when content
(insert content)
(deactivate-mark)))))
(defhydra hydra-org-template (:color blue
:hint nil)
"
org-template: _c_enter _s_rc _e_xample
_v_erilog _t_ext _I_NCLUDE:
_l_atex _h_tml _V_erse
_m_atlab _L_aTeX: _H_TML:
_a_scii _q_uote _E_macs-lisp
_n_im _i_ndex: _A_SCII:
^^ ^^ _S_hell
_p_ython ^^ ^^
"
("s" (modi/org-template-expand "<s")) ;#+BEGIN_SRC ... #+END_SRC
("E" (modi/org-template-expand "<s" "emacs-lisp"))
("v" (modi/org-template-expand "<s" "systemverilog"))
("m" (modi/org-template-expand "<s" "matlab"))
("n" (modi/org-template-expand "<s" "nim"))
("S" (modi/org-template-expand "<s" "shell"))
("p" (modi/org-template-expand "<s" "python"))
("t" (modi/org-template-expand "<s" "text"))
("e" (modi/org-template-expand "<e")) ;#+BEGIN_EXAMPLE ... #+END_EXAMPLE
("x" (modi/org-template-expand "<e")) ;#+BEGIN_EXAMPLE ... #+END_EXAMPLE
("q" (modi/org-template-expand "<q")) ;#+BEGIN_QUOTE ... #+END_QUOTE
("V" (modi/org-template-expand "<v")) ;#+BEGIN_VERSE ... #+END_VERSE
("c" (modi/org-template-expand "<c")) ;#+BEGIN_CENTER ... #+END_CENTER
("l" (modi/org-template-expand "<l")) ;#+BEGIN_EXPORT latex ...
#+END_EXPORT
("L" (modi/org-template-expand "<L")) ;#+LaTeX:
("h" (modi/org-template-expand "<h")) ;#+BEGIN_EXPORT html ...
#+END_EXPORT
("H" (modi/org-template-expand "<H")) ;#+HTML:
("a" (modi/org-template-expand "<a")) ;#+BEGIN_EXPORT ascii ...
#+END_EXPORT
("A" (modi/org-template-expand "<A")) ;#+ASCII:
("i" (modi/org-template-expand "<i")) ;#+INDEX: line
("I" (modi/org-template-expand "<I")) ;#+INCLUDE: line
("<" self-insert-command "<")
("o" nil "quit"))
(defun modi/org-template-maybe ()
"Insert org-template if point is at the beginning of the line, or is a
region is selected. Else call `self-insert-command'."
(interactive)
(let ((regionp (use-region-p)))
(if (or regionp
(and (not regionp)
(looking-back "^")))
(hydra-org-template/body)
(self-insert-command 1))))
[-- Attachment #2: Type: text/html, Size: 7927 bytes --]
next prev parent reply other threads:[~2017-09-03 3:06 UTC|newest]
Thread overview: 104+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-09-03 0:25 function for inserting a block Eric Abrahamsen
2017-09-03 2:21 ` Adam Porter
2017-09-03 3:06 ` Kaushal Modi [this message]
2017-09-03 3:34 ` Eric Abrahamsen
2017-09-03 8:10 ` Nicolas Goaziou
2017-09-03 8:19 ` Adam Porter
2017-09-03 8:23 ` Nicolas Goaziou
2017-09-03 15:56 ` Eric Abrahamsen
2017-09-03 18:31 ` Josiah Schwab
2017-09-03 19:28 ` Eric Abrahamsen
2017-09-03 20:26 ` Josiah Schwab
2017-09-03 20:44 ` Eric Abrahamsen
2017-09-08 18:52 ` Eric Abrahamsen
2017-09-10 12:44 ` Nicolas Goaziou
2017-09-10 18:39 ` Eric Abrahamsen
2017-09-29 20:09 ` Nicolas Goaziou
2017-09-30 20:26 ` Eric Abrahamsen
2017-10-05 14:47 ` Nicolas Goaziou
2017-10-07 20:03 ` Eric Abrahamsen
2017-10-14 10:52 ` Nicolas Goaziou
2017-10-16 19:46 ` Eric Abrahamsen
2017-10-16 19:59 ` Eric Abrahamsen
2017-10-17 7:46 ` Nicolas Goaziou
2017-10-17 16:27 ` Eric Abrahamsen
2017-10-17 21:33 ` Nicolas Goaziou
2017-10-17 21:43 ` Eric Abrahamsen
2017-10-17 22:03 ` Eric Abrahamsen
2017-10-18 6:45 ` Carsten Dominik
2017-10-18 14:58 ` Eric Abrahamsen
2017-10-19 15:47 ` Carsten Dominik
2017-10-20 18:04 ` Eric Abrahamsen
2017-10-20 18:39 ` Kaushal Modi
2017-10-20 19:02 ` Kaushal Modi
2017-10-20 21:15 ` Eric Abrahamsen
2017-10-20 21:13 ` Eric Abrahamsen
2017-10-20 21:43 ` Kaushal Modi
2017-10-21 11:30 ` Xebar Saram
2017-10-21 11:59 ` Marco Wahl
2017-10-21 13:32 ` Xebar Saram
2017-10-21 15:56 ` Eric Abrahamsen
2017-10-23 10:52 ` Kaushal Modi
2017-10-23 14:00 ` Carsten Dominik
2017-10-23 14:46 ` Kaushal Modi
2017-10-23 15:11 ` Eric Abrahamsen
2017-10-23 16:55 ` Nicolas Goaziou
2017-10-24 0:18 ` Eric Abrahamsen
2017-10-24 0:20 ` Eric Abrahamsen
2017-10-24 12:10 ` Nicolas Goaziou
2017-10-28 22:27 ` Eric Abrahamsen
2017-10-30 11:05 ` Nicolas Goaziou
2017-10-30 15:08 ` Eric S Fraga
2017-10-30 16:22 ` Eric Abrahamsen
2017-10-30 17:57 ` Eric Abrahamsen
2017-11-05 9:06 ` Nicolas Goaziou
2017-11-05 14:24 ` Kaushal Modi
2017-11-05 14:37 ` Kaushal Modi
2017-11-06 13:48 ` Nicolas Goaziou
2017-11-06 16:23 ` Kaushal Modi
2017-11-05 21:25 ` Eric Abrahamsen
2017-12-10 9:36 ` Thorsten Jolitz
2017-10-22 9:54 ` Nicolas Goaziou
2017-10-22 17:49 ` Eric Abrahamsen
2017-11-08 11:20 ` Bastien
2017-11-08 11:44 ` Nicolas Goaziou
2017-11-08 12:14 ` Bastien
2017-11-08 12:25 ` Restore old easy template feature (Re: function for inserting a block) Kaushal Modi
2017-11-08 12:43 ` Kaushal Modi
2017-11-08 14:08 ` Bastien Guerry
2017-12-18 22:07 ` Matt Price
2017-12-19 1:44 ` Eric Abrahamsen
2017-12-19 10:04 ` Rasmus
2017-12-19 17:49 ` Matt Price
2017-11-08 13:35 ` Nicolas Goaziou
2017-11-08 13:34 ` function for inserting a block Nicolas Goaziou
2017-11-08 14:34 ` Bastien Guerry
2017-11-08 16:01 ` Eric Abrahamsen
2017-11-08 16:33 ` William Denton
2017-11-08 14:07 ` Rasmus
2017-11-08 17:09 ` Berry, Charles
2017-11-08 17:28 ` Nicolas Goaziou
2017-11-08 18:24 ` Thomas S. Dye
2017-11-08 18:51 ` Takaaki Ishikawa
2017-11-08 20:10 ` Eric Abrahamsen
2017-11-08 22:28 ` Nicolas Goaziou
2017-11-09 4:31 ` Thomas S. Dye
2017-11-09 7:55 ` Carsten Dominik
2017-11-12 4:35 ` Matt Lundin
2017-11-12 6:08 ` numbchild
2017-11-09 14:46 ` Rasmus
2017-11-09 16:11 ` Rasmus
2017-11-09 16:50 ` Eric Abrahamsen
2017-11-10 9:31 ` Rasmus
2017-11-10 17:27 ` Eric Abrahamsen
2017-11-11 16:51 ` Thomas S. Dye
2017-11-14 21:36 ` Eric Abrahamsen
2017-11-15 13:13 ` numbchild
2017-11-15 16:24 ` Eric Abrahamsen
2017-11-17 16:19 ` numbchild
2017-11-17 19:14 ` Eric Abrahamsen
2017-11-18 0:09 ` numbchild
2017-11-20 13:40 ` Rasmus
2017-11-20 16:49 ` Eric Abrahamsen
2017-11-11 4:13 ` stardiviner
[not found] <mailman.107.1510246818.12116.emacs-orgmode@gnu.org>
2017-11-10 4:19 ` James Harkins
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='CAFyQvY2Q2N3Hp2zOeiiq4s80z5-wb6x2+GatW=AXuOwEr6vu7A@mail.gmail.com' \
--to=kaushal.modi@gmail.com \
--cc=adam@alphapapa.net \
--cc=emacs-orgmode@gnu.org \
/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).