Re: COUNTER-SET for alphabetical ordered lists ignored for utf-8 exporter
> There is nothing to obsolete. > ox-ascii did not process alphabetical lists in any way, which was a bug. OK, thanks for verification. Stace On Sat, 6 Apr 2024 at 13:02, Ihor Radchenko wrote: > Stacey Marshall writes: > > > Was the intention with this change to remove alphabetical lists from > > text (ascii) exporter? > > The intention was to make ascii exporter aware about alphabetical lists > instead of behaving in undefined way. > > > ... > > a. Point A > > b. Point B > > c. Point C > > d. [@z] Point Z > > #+end_src > > > > Latest 9.7 alpha results in the alphabetical labels being replaced > > with numbers:: > > .. > > Yes. > > > I must admit that I had not noticed that other exporters converted > > the letter to a number. Going forward I shall stop using them. > > > > If it is obsoleted or deprecated then a mention to etc/ORG-NEWS > > would be appreciated. > > There is nothing to obsolete. > ox-ascii did not process alphabetical lists in any way, which was a bug. > All other exporters convert alphabetical lists into numbered lists. > The bug has been fixed, and the behaviour is now consistent with the rest > of exporters. > > If you wish alphabetical lists to be exported specially, feel free to > post a feature request. > > -- > Ihor Radchenko // yantar92, > Org mode contributor, > Learn more about Org mode at <https://orgmode.org/>. > Support Org development at <https://liberapay.com/org-mode>, > or support my work at <https://liberapay.com/yantar92> >
Re: COUNTER-SET for alphabetical ordered lists ignored for utf-8 exporter
Regarding https://list.orgmode.org/orgmode/36a62fbf-6484-456f-9537-a7aa40530...@app.fastmail.com/ Was the intention with this change to remove alphabetical lists from text (ascii) exporter? #+begin_src ,#+title: Test document ,#+options: toc:nil author:nil ,* test of alphabetical export ,#+begin_src emacs-lisp :exports both :eval yes (format "%S\n%S\norg-list-allow-alphabetical: %S\n" (emacs-version) (org-version) org-list-allow-alphabetical) ,#+end_src a. Point A b. Point B c. Point C d. [@z] Point Z #+end_src Latest 9.7 alpha results in the alphabetical labels being replaced with numbers:: #+begin_example 1 test of alphabetical export = , | (format "%S\n%S\norg-list-allow-alphabetical: %S\n" | (emacs-version) (org-version) org-list-allow-alphabetical) ` , | "GNU Emacs 29.1 (build 1, aarch64-apple-darwin23.3.0, Carbon Version 170 AppKit 2487.4) | of 2024-02-26" | "9.7-pre" | org-list-allow-alphabetical: t ` 1. Point A 2. Point B 3. Point C 26. Point Z #+end_example Removing the change to ox-ascii.el restores it, but leaves the original issue: #+begin_src diff :eval no :exports code $ git diff lisp/ox-ascii.el diff --git a/lisp/ox-ascii.el b/lisp/ox-ascii.el index db4356ec6..78641f1db 100644 --- a/lisp/ox-ascii.el +++ b/lisp/ox-ascii.el @@ -1485,7 +1485,7 @@ contextual information." struct (org-list-prevs-alist struct) (org-list-parents-alist struct))) - (replace-regexp-in-string "[0-9A-Za-z]+" num bul))) + (replace-regexp-in-string "[0-9]+" num bul))) (_ (let ((bul (org-list-bullet-string (org-element-property :bullet item ;; Change bullets into more visible form if UTF-8 is active. #+end_src #+begin_example 1 test of alphabetical export = , | (format "%S\n%S\norg-list-allow-alphabetical: %S\n" | (emacs-version) (org-version) org-list-allow-alphabetical) ` , | "GNU Emacs 29.1 (build 1, aarch64-apple-darwin23.3.0, Carbon Version 170 AppKit 2487.4) | of 2024-02-26" | "9.7-pre" | org-list-allow-alphabetical: t ` a. Point A b. Point B c. Point C d. Point Z #+end_example I must admit that I had not noticed that other exporters converted the letter to a number. Going forward I shall stop using them. If it is obsoleted or deprecated then a mention to etc/ORG-NEWS would be appreciated. yours faithfully, Stacey Marshall
Re: patch for org-capture.el to allow for no file extension on open-source, protocol
On 13 May 2020, at 9:02, Nicolas Goaziou wrote: Hello, Stacey Marshall writes: Will do. sorry didn't realize I was over the Tiny change limit. I can sign FSF papers if still needed. It is still needed :) Please let me know once the process is complete, or if you have question regarding the process. Thank you! Regards, -- Nicolas Goaziou Hi Nicolas, Well that took much longer than I expected. The signature process is finally complete. If you would still like me to update ORG-NEWS then I shall have to brush up on my git and send a new patch... Let me know -- [Stacey](https://staceymarshall.wordpress.com/)
Re: patch for org-capture.el to allow for no file extension on open-source, protocol
Will do. sorry didn't realize I was over the Tiny change limit. I can sign FSF papers if still needed. Stace On Tue, 12 May 2020 at 16:05, Nicolas Goaziou wrote: > Completing myself, > > Nicolas Goaziou writes: > > > However, I realize, a bit late, that you haven't signed FSF papers, and > > both patches are above the TINYCHANGE limit. Would you want to sign them > > so we can also apply the tests, too? > > Also, would you mind adding a few words into ORG-NEWS to announce the > change? > > Thanks! > -- Sent from Gmail Mobile
Re: patch for org-capture.el to allow for no file extension on open-source, protocol
On 10 May 2020, at 13:57, Nicolas Goaziou wrote:
Hello,
"Stacey Marshall" writes:
The issue was that the URL I was opening had the full filename as-is.
No extension needed to be added or removed. If no suffix is provided
in the alist then the function failed. The patch allows both
online-suffix and working-suffix to not be required.
Thank you. Could you add a test in "test-org-protocol.el" ?
Regards,
--
Nicolas Goaziou
Hi Nicolas,
Test patch below. I've attached both patch files too.
```
From 9263002dc97753e297f8571511839eea0b39252e Mon Sep 17 00:00:00 2001
From: Stacey Marshall
Date: Mon, 11 May 2020 00:58:40 +0100
Subject: [PATCH 2/2] test-org-protocol.el: Fix tests and add new test
for
as-is filename.
* testing/lisp/test-org-protocol.el
(test-org-protocol/org-protocol-parse-parameters):
Fix issue of missing flag to indicate new paramenter testing.
* testing/lisp/test-org-protocol.el
(test-org-protocol/org-protocol-open-source):
Fix test3 which was not working. Add test4, for opening file name
as-is without suffix modification.
Tested using ert.
TINYCHANGE
---
testing/lisp/test-org-protocol.el | 37 ++-
1 file changed, 32 insertions(+), 5 deletions(-)
diff --git a/testing/lisp/test-org-protocol.el
b/testing/lisp/test-org-protocol.el
index 6ee368dcf..42ad5e1a3 100644
--- a/testing/lisp/test-org-protocol.el
+++ b/testing/lisp/test-org-protocol.el
@@ -40,7 +40,7 @@
"url=https%3A%2F%2Forgmode.org%2Forg.html%23capture-protocol&"
"title=The%20Org%20Manual&"
"body=9.4.2%20capture%20protocol"))
-(data (org-protocol-parse-parameters url)))
+(data (org-protocol-parse-parameters url t)))
(should (string= (plist-get data :template) "p"))
(should (string= (plist-get data :url)
"https://orgmode.org/org.html#capture-protocol;))
(should (string= (plist-get data :title) "The Org Manual"))
@@ -138,6 +138,8 @@
"Test org-protocol://open-source links."
(let* ((temp-file-name1 (make-temp-file "org-protocol-test1"))
(temp-file-name2 (make-temp-file "org-protocol-test2"))
+(temp-file-name3 (make-temp-file "org-protocol-test3" nil ".md"))
+(temp-file-name4 (make-temp-file "org-protocol-test4" nil ".c"))
(org-protocol-project-alist
`((test1
:base-url "http://example.com/;
@@ -149,10 +151,13 @@
:working-directory ,(file-name-directory temp-file-name2))
(test3
:base-url "https://blog-example.com/;
-:working-directory ,(file-name-directory temp-file-name2)
+:working-directory ,(file-name-directory temp-file-name3)
:online-suffix ".html"
:working-suffix ".md"
- :rewrites
(("\\(https://blog-example.com/[0-9]+/[0-9]+/[0-9]+/\\)" . ".md")
+ :rewrites
(("\\(https://blog-example.com/[0-9]+/[0-9]+/[0-9]+/\\)" . ".md")))
+ (test4
+:base-url "http://as-is.example.com/;
+:working-directory ,(file-name-directory temp-file-name4
(test-cases
(list
;; Old-style URLs
@@ -166,6 +171,16 @@
(url-hexify-string
(concat "http://another.example.com/; (file-name-nondirectory
temp-file-name2) ".js")))
temp-file-name2)
+ (cons
+ (concat "/some/directory/org-protocol:/open-source:/"
+ (url-hexify-string
+ (concat "https://blog-example.com/; (file-name-nondirectory
(file-name-sans-extension temp-file-name3)) ".html")))
+ temp-file-name3)
+ (cons
+ (concat "/some/directory/org-protocol:/open-source:/"
+ (url-hexify-string
+ (concat "http://as-is.example.com/; (file-name-nondirectory
temp-file-name4
+ temp-file-name4)
;; New-style URLs
(cons
(concat "/some/directory/org-protocol:/open-source?url="
@@ -176,7 +191,17 @@
(concat "/some/directory/org-protocol:/open-source?url="
(url-hexify-string
(concat "http://another.example.com/; (file-name-nondirectory
temp-file-name2) ".js")))
- temp-file-name2
+ temp-file-name2)
+ (cons
+ (concat "/some/directory/org-protocol:/open-source?url="
+ (url-hexify-string
+ (concat "https://blog-example.com/; (file-name-nondirectory
(file-name-sans-extension temp-file-name3)) ".html")))
+ temp-file-name3)
+ (cons
+ (concat "/some/directory/org-protocol:/open-sour
patch for org-capture.el to allow for no file extension on open-source, protocol
The issue was that the URL I was opening had the full filename as-is. No extension needed to be added or removed. If no suffix is provided in the alist then the function failed. The patch allows both online-suffix and working-suffix to not be required. ``` From 213b7968199bebcf11d0bcf0bbc44d0843f19ecc Mon Sep 17 00:00:00 2001 From: Stacey Marshall Date: Sat, 9 May 2020 21:31:04 +0100 Subject: [PATCH] org-capture.el: Allow for no file extension on open-source protocol * lisp/org-capture.el (org-protocol-open-source): Remove requirement to have :online-suffix and :working-suffix. The problem here was that two assignments expected suffix's to be provided in org-protocol-project-alist. When they were missing an error occurred. With the changes source URLs that include the file name as-is, such as those presented by openGrok, may be opened. TINYCHANGE --- lisp/org-protocol.el | 26 -- 1 file changed, 16 insertions(+), 10 deletions(-) diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el index 55a534d0d..35f58f490 100644 --- a/lisp/org-protocol.el +++ b/lisp/org-protocol.el @@ -191,7 +191,7 @@ Example: :working-suffix \".org\" :base-url \"https://orgmode.org/worg/\; :working-directory \"/home/user/org/Worg/\") - (\"http://localhost/org-notes/\; + (\"localhost org-notes/\" :online-suffix \".html\" :working-suffix \".org\" :base-url \"http://localhost/org/\; @@ -202,12 +202,17 @@ Example: :working-directory \"~/site/content/post/\" :online-suffix \".html\" :working-suffix \".md\" - :rewrites ((\"\\(https://site.com/[0-9]+/[0-9]+/[0-9]+/\\)\" . \".md\") - - - The last line tells `org-protocol-open-source' to open - /home/user/org/index.php, if the URL cannot be mapped to an existing - file, and ends with either \"org\" or \"org/\". + :rewrites ((\"\\(https://site.com/[0-9]+/[0-9]+/[0-9]+/\\)\" . \".md\"))) + (\"GNU emacs OpenGrok\" + :base-url \"https://opengrok.housegordon.com/source/xref/emacs/\; + :working-directory \"~/dev/gnu-emacs/\"))) + + The :rewrites line of \"localhost org-notes\" entry tells + `org-protocol-open-source' to open /home/user/org/index.php, + if the URL cannot be mapped to an existing file, and ends with + either \"org\" or \"org/\". The \"GNU emacs OpenGrok\" entry + does not include any suffix properties, allowing local source + file to be opened as found by OpenGrok. Consider using the interactive functions `org-protocol-create' and `org-protocol-create-for-org' to help you filling this variable with valid contents." @@ -545,11 +550,12 @@ The location for a browser's bookmark should look like this: ;; ending than strip-suffix here: (f1 (substring f 0 (string-match "\\([\\?#].*\\)?$" f))) (start-pos (+ (string-match wsearch f1) (length base-url))) - (end-pos (string-match -(regexp-quote strip-suffix) f1)) + (end-pos (if strip-suffix + (string-match (regexp-quote strip-suffix) f1) + (length f1))) ;; We have to compare redirects without suffix below: (f2 (concat wdir (substring f1 start-pos end-pos))) - (the-file (concat f2 add-suffix))) + (the-file (if add-suffix (concat f2 add-suffix) f2))) ;; Note: the-file may still contain `%C3' et al here because browsers ;; tend to encode `' in URLs to `%25C3' - `%25' being `%'. -- 2.21.1 (Apple Git-122.3) ``` -- [Stacey](https://staceymarshall.wordpress.com/)
Re: [O] [PATCH] : org-link-search failing to find links created by clock table
Sorry, I'm trying out MailMate and forgot to select Plain Text when copying in from Emacs. * Example of the issue Emacs : GNU Emacs 25.2.1 (x86_64-apple-darwin16.4.0, Carbon Version 157 AppKit 1504.81) of 2017-03-07 Package: Org mode version 9.0.5 (release_9.0.5-351-g0e0fda.dirty @ /Users/stacey/.emacs.d/org-mode/lisp/) In this buffer the TODO keywords are FIXME and FIXED, as set by: #+SEQ_TODO: FIXME FIXED #+BEGIN: clocktable :maxlevel 4 :scope subtree :link t #+CAPTION: Clock summary at [2017-04-14 Fri 20:01] | Headline | Time | | | | |+---+-+---+---| | *Total time* | *1h 9min* | | | | |+---+-+---+---| | [[file:/tmp/test.org::Example%20of%20the%20issue][Example of the issue]] | 1h 9min | | | | | \_ [[file:/tmp/test.org::Test%20log][Test log]] | | 0h 4min | | | | \_ [[file:/tmp/test.org::Test%20log][FIXME Test log]] | | 1h 0min | | | | \_ [[file:/tmp/test.org::test%20with%20comment%20no%20to-do][COMMENT test with comment no to-do]] | | 0h 2min | | | | \_ [[file:/tmp/test.org::FIXME%20comment%20with%20to-do%20keyword][COMMENT FIXME comment with to-do keyword]] | | 0h 1min | | | | \_ [[file:/tmp/test.org::with%20a%20fraction][FIXME with a fraction]] | | 0h 1min | | | | \_ [[file:/tmp/test.org::with%20a%20percentage][FIXME with a percentage]] | | 0h 1min | | | #+END: ** Test log :LOGBOOK: CLOCK: [2017-04-11 Tue 23:20]--[2017-04-11 Tue 23:24] => 0:04 :END: ** FIXME Test log :LOGBOOK: CLOCK: [2017-04-11 Tue 22:20]--[2017-04-11 Tue 23:20] => 1:00 :END: ** COMMENT test with comment no to-do :LOGBOOK: CLOCK: [2017-04-14 Fri 17:29]--[2017-04-14 Fri 17:31] => 0:02 :END: ** COMMENT FIXME comment with to-do keyword :LOGBOOK: CLOCK: [2017-04-14 Fri 17:31]--[2017-04-14 Fri 17:32] => 0:01 :END: ** FIXME with a fraction [1/2] :LOGBOOK: CLOCK: [2017-04-14 Fri 17:42]--[2017-04-14 Fri 17:43] => 0:01 :END: - [X] One - [ ] two ** FIXME with a percentage [50%] :LOGBOOK: CLOCK: [2017-04-14 Fri 17:32]--[2017-04-14 Fri 17:33] => 0:01 :END: - [ ] one - [X] two * Patch Appears that change ebbc675bd9890c451ad01910fa2625fa78baac9b way back in 9.0.1 needed to also modify org-clock.el, or at least when I revert that change I get the behavior I'm used to back. Below is a patch which modifies org-clock.el; Though I'm sure it can be approved upon. #+BEGIN_EXAMPLE diff diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 0973cc21b..3e30d20f8 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2801,12 +2801,17 @@ TIME: The sum of all time spend in this tree, in minutes. This time (- (match-end 1) (match-beginning 1 (<= level maxlevel)) (setq hdl (if (not link) - (match-string 2) + (org-get-heading t t t t) (org-make-link-string (format "file:%s::%s" (buffer-file-name) (save-match-data -(match-string 2))) + (org-make-org-heading-search-string + (replace-regexp-in-string +org-bracket-link-regexp +(lambda (m) (or (match-string 3 m) + (match-string 1 m))) +(org-get-heading t t t t) (org-make-org-heading-search-string (replace-regexp-in-string org-bracket-link-regexp #+END_EXAMPLE
[O] [PATCH]: org-link-search failing to find links created by clock table
* Example of the issue Emacs : GNU Emacs 25.2.1 (x86_64-apple-darwin16.4.0, Carbon Version 157 AppKit 1504.81) of 2017-03-07 Package: Org mode version 9.0.5 (release_9.0.5-351-g0e0fda.dirty @ /Users/stacey/.emacs.d/org-mode/lisp/) In this buffer the TODO keywords are FIXME and FIXED, as set by: #+SEQ_TODO: FIXME FIXED #+BEGIN: clocktable :maxlevel 4 :scope subtree :link t #+CAPTION: Clock summary at [2017-04-14 Fri 20:01] | Headline | Time | | | | |+---+-+---+---| | *Total time* | *1h 9min* | | | | |+---+-+---+---| | [[file:/tmp/test.org::Example%20of%20the%20issue][Example of the issue]] | 1h 9min | | | | | \_ [[file:/tmp/test.org::Test%20log][Test log]] | | 0h 4min | | | | \_ [[file:/tmp/test.org::Test%20log][FIXME Test log]] | | 1h 0min | | | | \_ [[file:/tmp/test.org::test%20with%20comment%20no%20to-do][COMMENT test with comment no to-do]] | | 0h 2min | | | | \_ [[file:/tmp/test.org::FIXME%20comment%20with%20to-do%20keyword][COMMENT FIXME comment with to-do keyword]] | | 0h 1min | | | | \_ [[file:/tmp/test.org::with%20a%20fraction][FIXME with a fraction]] | | 0h 1min | | | | \_ [[file:/tmp/test.org::with%20a%20percentage][FIXME with a percentage]] | | 0h 1min | | | #+END: ** Test log :LOGBOOK: CLOCK: [2017-04-11 Tue 23:20]--[2017-04-11 Tue 23:24] => 0:04 :END: ** FIXME Test log :LOGBOOK: CLOCK: [2017-04-11 Tue 22:20]--[2017-04-11 Tue 23:20] => 1:00 :END: ** COMMENT test with comment no to-do :LOGBOOK: CLOCK: [2017-04-14 Fri 17:29]--[2017-04-14 Fri 17:31] => 0:02 :END: ** COMMENT FIXME comment with to-do keyword :LOGBOOK: CLOCK: [2017-04-14 Fri 17:31]--[2017-04-14 Fri 17:32] => 0:01 :END: ** FIXME with a fraction [1/2] :LOGBOOK: CLOCK: [2017-04-14 Fri 17:42]--[2017-04-14 Fri 17:43] => 0:01 :END: - [X] One - [ ] two ** FIXME with a percentage [50%] :LOGBOOK: CLOCK: [2017-04-14 Fri 17:32]--[2017-04-14 Fri 17:33] => 0:01 :END: - [ ] one - [X] two * Patch Appears that change ebbc675bd9890c451ad01910fa2625fa78baac9b way back in 9.0.1 needed to also modify org-clock.el, or at least when I revert that change I get the behavior I'm used to back. Below is a patch which modifies org-clock.el; Though I'm sure it can be approved upon. #+BEGIN_EXAMPLE diff diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 0973cc21b..3e30d20f8 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -2801,12 +2801,17 @@ TIME: The sum of all time spend in this tree, in minutes. This time (- (match-end 1) (match-beginning 1 (<= level maxlevel)) (setq hdl (if (not link) - (match-string 2) + (org-get-heading t t t t) (org-make-link-string (format "file:%s::%s" (buffer-file-name) (save-match-data -(match-string 2))) + (org-make-org-heading-search-string + (replace-regexp-in-string +org-bracket-link-regexp +(lambda (m) (or (match-string 3 m) + (match-string 1 m))) +(org-get-heading t t t t) (org-make-org-heading-search-string (replace-regexp-in-string org-bracket-link-regexp #+END_EXAMPLE
Re: [O] org-link-search failing to find links created by clock table
*** Some additional information, by example Emacs : GNU Emacs 25.2.1 (x86_64-apple-darwin16.4.0, Carbon Version 157 AppKit 1504.81) of 2017-03-07 Package: Org mode version 9.0.5 (release_9.0.5-351-g0e0fda.dirty @ /Users/stacey/.emacs.d/org-mode/lisp/) In this buffer the TODO keywords are FIXME and FIXED, as set by: #+SEQ_TODO: FIXME FIXED Clock table generated with C-c C-x C-r and then modified to include link and increase maxlevel to include the sample CLOCK entries below. #+BEGIN: clocktable :maxlevel 4 :scope subtree :link t #+CAPTION: Clock summary at [2017-04-11 Tue 23:29] | Headline | Time | | | | |+---+---+-+-| | *Total time* | *1h 4min* | | | | |+---+---+-+-| | \_ [[file:/Users/stacey/Dropbox/org-mode.org::Example%20of%20the%20issue][Example of the issue]] | | | 1h 4min | | | \_ [[file:/Users/stacey/Dropbox/org-mode.org::Test%20log][Test log]] | | | | 0h 4min | | \_ [[file:/Users/stacey/Dropbox/org-mode.org::FIXME%20Test%20log][FIXME Test log]] | | | | 1h 0min | #+END: - Test Log link works, its link is: - FIXME Test log does not, its link is: Test log :LOGBOOK: CLOCK: [2017-04-11 Tue 23:20]--[2017-04-11 Tue 23:24] => 0:04 :END: FIXME Test log :LOGBOOK: CLOCK: [2017-04-11 Tue 22:20]--[2017-04-11 Tue 23:20] => 1:00 :END: -- Stacey
[O] org-link-search failing to find links created by clock table
created a clock table and the resulting links fail to work. I get a message: condition-case: No match for fuzzy expression: DONE private data removed". Tracked that down to lisp/org.el org-link-search() where there are two identical messages. Changing the first to add the word "heading" confirms it is the first search that was in operation. Adding a message to print out title-re I see the following ^\*+.*\(?:COMMENT[ ]\)?.*DONE.+private.+data.+removed\. If I manually edit the link and remove the TODO keyword (DONE) the link then works. Looking at org.el function org-search-link it requests the heading without the keyword (org-get-headeing t t t ). But as seen, the link from the clock table has the keyword. org-clock.el function org-clock-table-data sets hdl (when links are requested): (org-make-org-heading-search-string (replace-regexp-in-string org-bracket-link-regexp (lambda (m) (or (match-string 3 m) (match-string 1 m))) (match-string 2))) That's as far as I've gotten…. -- Stacey
[O] org-mac-link: add "M" option to include Mail content inline.
I have been using this addition to org-mac-link for a while so thought it was about time I shared it with the org-mode community. https://github.com/alls0rts/org-mode/tree/org-mac-link It could do with some additional options added, such as not backgrounding Mail. And perhaps a catch for lines that begin with an asterisk within the message block; convert them to have a comma first. But then perhaps someone has some better ways of doing that? Regards, Stacey http://orgmode.org/worg/org-contribute.html
Re: [O] org-table-copy-down incrementor
Hi Bastien, I'm late to this party I know, but wanted to confirm all is working well for me too. Best regards, Stacey On 20 May 2014, at 15:11, Bastien b...@gnu.org wrote: Hi Michael, Michael Brand michael.ch.br...@gmail.com writes: For me it would be already enough and preferred when the increment would be the same as in the two fields above point. I pushed a change in master for this -- can you please check it works as expected for you? Thanks for this suggestion! (A lot easier than other routes likes using a dedicated #+TBLINC line.) Best, -- Bastien
[O] org-table-copy-down incrementor
Hi, I've been using org-mode for a little over a year, wish I had been using it for far longer. I am not a member of this list... I discovered it via http://orgmode.org/org.html#Feedback, a link to the list there would be helpful. I discovered org-table-copy-down and its ability to increment dates. I would like to be able to specify the number to increment, and then ideally increment by that number again. For example lets say I want to create a table of Mondays | [2014-05-19 Mon] | | | | | | | | | [2014-05-26 Mon] | | | | | | | | | [2014-06-02 Mon] | | | | | | | | | [2014-06-09 Mon] | | | | | | | | Firstly, should I be using #+TBLFM: to fill in the table above... I think that would only work if I was writing across columns, and would require a calculation for each field... is that right? Hmm, is their a repeat keyword. I wonder if a simple solution might be to add a couple of custom variables, say org-table-copy-inc-count to hold the count, and for the time specific org-table-copy-inc-by to specify what is being incremented, i.e. days, hours, mins. For my use a simple integer would have sufficed, but a time element would be more suitable for others uses. *** /opt/local/share/emacs/site-lisp/org/org-table.el Tue May 14 15:13:53 2013 --- /var/folders/6f/qt_5cdl91051fz5tbwrf8yy0gn/T/ediff275HnRSat Apr 12 12:52:12 2014 *** *** 224,229 --- 224,250 :group 'org-table-calculation :type 'boolean) + (defcustom org-table-copy-inc-count 1 + Increment value used to increment field following copy by \\[org-table-copy-down]. + :group 'org-table-calculation + :type 'integer) + + (defcustom org-table-copy-inc-by 'day + Measure in which to increment org-table-copy-inc-count value by \\[org-table-copy-down]. + Possible values are: + day + month + year + minute + second + :group 'org-table-calculation + :type '(choice + (const :tag day day) + (const :tag month month) + (const :tag year year) + (const :tag minute minute) + (const :tag second second))) + (defcustom org-calc-default-modes '(calc-internal-prec 12 calc-float-format (float 8) *** *** 1150,1156 (insert txt) (org-move-to-column col) (if (and org-table-copy-increment (org-at-timestamp-p t)) ! (org-timestamp-up-day) (org-table-maybe-recalculate-line)) (org-table-align) (org-move-to-column col)) --- 1171,1178 (insert txt) (org-move-to-column col) (if (and org-table-copy-increment (org-at-timestamp-p t)) ! (org-timestamp-change org-table-copy-inc-count org-table-copy-inc-by) ! ; (org-timestamp-up-day) (org-table-maybe-recalculate-line)) (org-table-align) (org-move-to-column col)) The above works for my needs, but perhaps someone has a more elegant solution... Yours sincerely, Stacey
