From: Kaushal Modi <kaushal.modi@gmail.com>
To: Nicolas Goaziou <mail@nicolasgoaziou.fr>
Cc: emacs-orgmode@gnu.org
Subject: Re: Add an optional HOLD argument to "n" Org macro
Date: Thu, 15 Jun 2017 13:10:34 +0000 [thread overview]
Message-ID: <CAFyQvY133N0k1K3A_Gc2b9fP4MrRMcco=WwzayD3mG6R==BALg@mail.gmail.com> (raw)
In-Reply-To: <8760fyic6n.fsf@nicolasgoaziou.fr>
[-- Attachment #1.1: Type: text/plain, Size: 301 bytes --]
On Wed, Jun 14, 2017 at 3:47 PM Nicolas Goaziou <mail@nicolasgoaziou.fr>
wrote:
> I think it is better since resetting, setting and holding are mutually
> exclusive.
Thanks.
> With tests, please! :)
>
Of course :)
The patch based off latest master is attached. Please review.
--
Kaushal Modi
[-- Attachment #1.2: Type: text/html, Size: 823 bytes --]
[-- Attachment #2: 0001-Add-hold-action-to-the-n-macro.patch --]
[-- Type: application/octet-stream, Size: 5224 bytes --]
From 6e6462f6f0756e1b349ae450dce4783255287c77 Mon Sep 17 00:00:00 2001
From: Kaushal Modi <kaushal.modi@gmail.com>
Date: Wed, 14 Jun 2017 14:34:53 -0400
Subject: [PATCH] Add hold 'action' to the "n" macro
* lisp/org-macro.el (org-macro--counter-increment): Rename the
optional arg RESET to ACTION, as now that action can mean setting,
resetting or even holding the specified counter. ACTION set to
"hold" or "-" will hold the previous value of the counter.
* doc/org.texi (Macro replacement): Document the new hold action.
* testing/lisp/test-org-macro.el (test-org-macro/n): Add new test for
the hold action.
---
doc/org.texi | 12 +++++++-----
lisp/org-macro.el | 26 +++++++++++++++++---------
testing/lisp/test-org-macro.el | 17 ++++++++++++++++-
3 files changed, 40 insertions(+), 15 deletions(-)
diff --git a/doc/org.texi b/doc/org.texi
index 96aede2aa1..32cc1431b4 100644
--- a/doc/org.texi
+++ b/doc/org.texi
@@ -10867,15 +10867,17 @@ entry, that will be used instead.
@item @{@{@{n@}@}@}
@itemx @{@{@{n(@var{NAME})@}@}@}
-@itemx @{@{@{n(@var{NAME},@var{RESET})@}@}@}
+@itemx @{@{@{n(@var{NAME},@var{ACTION})@}@}@}
@cindex n, macro
@cindex counter, macro
This macro implements custom counters by returning the number of times the
macro has been expanded so far while exporting the buffer. You can create
-more than one counter using different @var{NAME} values. If @var{RESET} is
-non-empty, the specified counter is reset to the value specified if it is
-a number, or 1 otherwise. You may leave @var{NAME} empty to reset the
-default counter.
+more than one counter using different @var{NAME} values. If @var{ACTION} is
+@code{hold} or @code{-}, previous value of the counter is held, i.e. the
+specified counter is not incremented. If the value is a number, the
+specified counter is set to that value. If it is any other non-empty string,
+the specified counter is reset to 1. You may leave @var{NAME} empty to reset
+the default counter.
@end table
The surrounding brackets can be made invisible by setting
diff --git a/lisp/org-macro.el b/lisp/org-macro.el
index 338c98811d..1b3ee28f2d 100644
--- a/lisp/org-macro.el
+++ b/lisp/org-macro.el
@@ -40,7 +40,7 @@
;; {{{property(node-property)}}},
;; {{{input-file}}},
;; {{{modification-time(format-string)}}},
-;; {{{n(counter,reset}}}.
+;; {{{n(counter,action}}}.
;; Upon exporting, "ox.el" will also provide {{{author}}}, {{{date}}},
;; {{{email}}} and {{{title}}} macros.
@@ -327,17 +327,25 @@ Return a list of arguments, as strings. This is the opposite of
"Initialize `org-macro--counter-table'."
(setq org-macro--counter-table (make-hash-table :test #'equal)))
-(defun org-macro--counter-increment (name &optional reset)
+(defun org-macro--counter-increment (name &optional action)
"Increment counter NAME.
-NAME is a string identifying the counter. When non-nil, optional
-argument RESET is a string. If it represents an integer, set the
-counter to this number. Any other non-empty string resets the
-counter to 1."
+NAME is a string identifying the counter.
+
+When non-nil, optional argument ACTION is a string.
+
+If the string is \"hold\" or \"-\", keep the NAME counter at its
+current value, i.e. do not increment.
+
+If the string represents an integer, set the counter to this number.
+
+Any other non-empty string resets the counter to 1."
(puthash name
- (cond ((not (org-string-nw-p reset))
+ (cond ((not (org-string-nw-p action))
(1+ (gethash name org-macro--counter-table 0)))
- ((string-match-p "\\`[ \t]*[0-9]+[ \t]*\\'" reset)
- (string-to-number reset))
+ ((string-match-p "\\`\\(-\\|hold\\)\\'" action)
+ (gethash name org-macro--counter-table 1))
+ ((string-match-p "\\`[ \t]*[0-9]+[ \t]*\\'" action)
+ (string-to-number action))
(t 1))
org-macro--counter-table))
diff --git a/testing/lisp/test-org-macro.el b/testing/lisp/test-org-macro.el
index 7356e98f52..eb96140899 100644
--- a/testing/lisp/test-org-macro.el
+++ b/testing/lisp/test-org-macro.el
@@ -210,7 +210,22 @@
(org-macro-initialize-templates)
(org-macro-replace-all org-macro-templates)
(buffer-substring-no-properties
- (line-beginning-position) (line-end-position))))))
+ (line-beginning-position) (line-end-position)))))
+ ;; Second argument set to "-" or "hold" holds the counter value.
+ (should
+ (equal "1.1 2.2 8.3 8.1 8.2 9.2 9.2"
+ (org-test-with-temp-text
+ (concat "{{{n(,-)}}}.{{{n(c)}}}" ;Hold before even starting the counter
+ " {{{n}}}.{{{n(c)}}}" ;Increment after hold
+ " {{{n(,8)}}}.{{{n(c)}}}"
+ " {{{n(,hold)}}}.{{{n(c,reset)}}}" ;Alternative hold arg
+ " {{{n(,-)}}}.{{{n(c)}}}"
+ " {{{n}}}.{{{n(c,hold)}}}" ;Hold on another counter
+ " {{{n(,hold)}}}.{{{n(c,-)}}}") ;Hold on both counters
+ (org-macro-initialize-templates)
+ (org-macro-replace-all org-macro-templates)
+ (buffer-substring-no-properties
+ (line-beginning-position) (line-end-position))))))
(ert-deftest test-org-macro/escape-arguments ()
"Test `org-macro-escape-arguments' specifications."
--
2.13.0
next prev parent reply other threads:[~2017-06-15 13:10 UTC|newest]
Thread overview: 35+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <2ee94a64a94b46259b0da6e7d34675c9@HE1PR01MB1898.eurprd01.prod.exchangelabs.com>
2017-05-08 14:00 ` [RFC] The "c" Org macro Eric S Fraga
2017-05-08 15:32 ` Dushyant Juneja
[not found] ` <a4c6d561b12a4cc8ad4fe8c017fa2121@HE1PR01MB1898.eurprd01.prod.exchangelabs.com>
2017-05-08 15:59 ` Eric S Fraga
2017-05-08 16:52 ` Nicolas Goaziou
2017-05-09 7:35 ` Carsten Dominik
2017-05-09 10:35 ` Nicolas Goaziou
2017-05-09 11:25 ` Rasmus
2017-05-09 16:10 ` Nicolas Goaziou
[not found] ` <2069df8c23bc43f3b04b6e203b96be9d@HE1PR01MB1898.eurprd01.prod.exchangelabs.com>
2017-05-11 8:45 ` Eric S Fraga
2017-05-21 13:37 ` Nicolas Goaziou
2017-05-22 3:24 ` Kaushal Modi
2017-05-22 5:58 ` Nicolas Goaziou
2017-05-22 10:46 ` Kaushal Modi
2017-05-22 11:47 ` Nicolas Goaziou
2017-05-22 13:00 ` Kaushal Modi
2017-05-22 13:10 ` Kaushal Modi
2017-05-22 13:13 ` Nicolas Goaziou
2017-05-22 13:39 ` Kaushal Modi
2017-05-25 10:42 ` Nicolas Goaziou
2017-05-25 18:31 ` Kaushal Modi
2017-06-14 17:52 ` Kaushal Modi
2017-06-14 18:33 ` Add an optional HOLD argument to "n" Org macro (Was: [RFC] The "c" Org macro) Kaushal Modi
2017-06-14 19:47 ` Add an optional HOLD argument to "n" Org macro Nicolas Goaziou
2017-06-15 13:10 ` Kaushal Modi [this message]
2017-06-15 15:25 ` Kaushal Modi
2017-06-15 16:07 ` Nicolas Goaziou
2017-06-15 18:07 ` Kaushal Modi
2017-06-17 14:34 ` Kaushal Modi
2017-06-17 23:24 ` Nicolas Goaziou
2017-06-18 4:03 ` Kaushal Modi
2017-06-18 7:16 ` Nicolas Goaziou
2017-06-18 7:45 ` Kaushal Modi
2017-06-14 19:44 ` [RFC] The "c" " Nicolas Goaziou
[not found] ` <a8f5841641834b4cb51af85a3df785da@HE1PR01MB1898.eurprd01.prod.exchangelabs.com>
2017-05-22 8:34 ` Eric S Fraga
2017-05-08 16:30 ` Robert Horn
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='CAFyQvY133N0k1K3A_Gc2b9fP4MrRMcco=WwzayD3mG6R==BALg@mail.gmail.com' \
--to=kaushal.modi@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=mail@nicolasgoaziou.fr \
/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).