Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
Almost good, but the variable s contains a list, we need to int-to-char the car of that, see attached trivial patch. It works with this. Thank you. diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 321dd95..ce309ef 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -339,7 +339,7 @@ of a different task.) (if ( i 10) (+ i ?0) (+ i (- ?A 10))) m)) - (if (fboundp 'int-to-char) (setq s (int-to-char s))) + (if (fboundp 'int-to-char) (setf (car s) (int-to-char (car s (push s sel-list))) org-clock-history) (org-fit-window-to-buffer) Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)'; Carsten Dominik adds: Hi Richard, I ave fixed this in a different way. Please verify! - Carsten On Dec 2, 2009, at 1:32 PM, Richard KLINDA wrote: Hello Carsten, this failed for me ever since, but as I haven't needed the functionality I was just lazy to report it. Oh:) I see why my patch must be problematic, sorry about that. The problem is that, when pressed a number as a reply to the question, this cond command (see below) always goes to the error clause, because rpl gets the value of ?1 for example, but sel-list look like ((49 . ...) (50 . ...)) so the assoc can't find ?1. With my patch, the assoc finds it because rpl is converted to ASCII code, but now ?q and ?x clauses don't work.:) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) ((assoc rpl sel-list) (cdr (assoc rpl sel-list))) (t (error Invalid task choice %c rpl))) I hope you see what the problem is, I think it must be an XEmacs issue. Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)'; Carsten Dominik adds: Hi Richard, I don't see why this would be necessary? Under what circumstances does this fail? - Carsten On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote: See attached simple patch. From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001 From: Richard Klinda rkli...@gmail.com Date: Tue, 1 Dec 2009 21:03:39 +0100 Subject: [PATCH] org-clock: org-clock-select-task bugfix (XEmacs) --- lisp/org-clock.el | 4 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 56dbab5..87017fc 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -344,6 +344,10 @@ of a different task.) (org-fit-window-to-buffer) (message (or prompt Select task for clocking:)) (setq rpl (read-char-exclusive)) + (when (featurep 'xemacs) + ;; in XEmacs read-char-exclusive returns character, instead of + ;; ascii value + (setq rpl (char-octet rpl))) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) -- 1.6.2.1 -- Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten -- Richard - Carsten -- Udv, Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
Hello Carsten, this failed for me ever since, but as I haven't needed the functionality I was just lazy to report it. Oh:) I see why my patch must be problematic, sorry about that. The problem is that, when pressed a number as a reply to the question, this cond command (see below) always goes to the error clause, because rpl gets the value of ?1 for example, but sel-list look like ((49 . ...) (50 . ...)) so the assoc can't find ?1. With my patch, the assoc finds it because rpl is converted to ASCII code, but now ?q and ?x clauses don't work.:) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) ((assoc rpl sel-list) (cdr (assoc rpl sel-list))) (t (error Invalid task choice %c rpl))) I hope you see what the problem is, I think it must be an XEmacs issue. Regarding 'Re: [Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)'; Carsten Dominik adds: Hi Richard, I don't see why this would be necessary? Under what circumstances does this fail? - Carsten On Dec 1, 2009, at 9:07 PM, Richard KLINDA wrote: See attached simple patch. From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001 From: Richard Klinda rkli...@gmail.com Date: Tue, 1 Dec 2009 21:03:39 +0100 Subject: [PATCH] org-clock: org-clock-select-task bugfix (XEmacs) --- lisp/org-clock.el | 4 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 56dbab5..87017fc 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -344,6 +344,10 @@ of a different task.) (org-fit-window-to-buffer) (message (or prompt Select task for clocking:)) (setq rpl (read-char-exclusive)) + (when (featurep 'xemacs) + ;; in XEmacs read-char-exclusive returns character, instead of + ;; ascii value + (setq rpl (char-octet rpl))) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) -- 1.6.2.1 -- Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten -- Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] [BUG]: function looking-back (XEmacs incompatibility)
Superb, thanks. Regarding 'Re: [Orgmode] [BUG]: function looking-back (XEmacs incompatibility)'; Carsten Dominik adds: Hi RIchard, this code is already (and has been for a few weeks) in org-compat.el -- Udv, Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] [BUG] read-char arguments: XEmacs incompatibility
In org-clock.el there is a call to read-char with 3 arguments, but XEmacs's version only takes 0 arguments, so it signals error (upon using org-clock-in, for example). , | (let (char-pressed) | (while (null char-pressed) | (setq char-pressed | (read-char (concat (funcall prompt-fn clock) | [(kK)eep (sS)ubtract (C)ancel]? ) | nil 45))) | char-pressed ` -- Udv, Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] [PATCH] org-clock-select-task bugfix (XEmacs incompatibility)
See attached simple patch. From 795d529d622f509f47c2bf17a0139fbe1659cc5f Mon Sep 17 00:00:00 2001 From: Richard Klinda rkli...@gmail.com Date: Tue, 1 Dec 2009 21:03:39 +0100 Subject: [PATCH] org-clock: org-clock-select-task bugfix (XEmacs) --- lisp/org-clock.el |4 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 56dbab5..87017fc 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -344,6 +344,10 @@ of a different task.) (org-fit-window-to-buffer) (message (or prompt Select task for clocking:)) (setq rpl (read-char-exclusive)) + (when (featurep 'xemacs) +;; in XEmacs read-char-exclusive returns character, instead of +;; ascii value +(setq rpl (char-octet rpl))) (cond ((eq rpl ?q) nil) ((eq rpl ?x) nil) -- 1.6.2.1 -- Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] [BUG]: function looking-back (XEmacs incompatibility)
XEmacs and older Emacs (22 and below) don't have the function LOOKING-BACK. I've found a definiton of it here: http://moinmo.in/EmacsForMoinMoin , | (or (fboundp 'looking-back) | ; taken straight out of http://cvs.savannah.gnu.org/viewcvs/emacs/emacs/lisp/subr.el?rev=1.530view=auto | (defun looking-back (regexp optional limit greedy) | Return non-nil if text before point matches regular expression REGEXP. | Like `looking-at' except matches before point, and is slower. | LIMIT if non-nil speeds up the search by specifying a minimum | starting position, to avoid checking matches that would start | before LIMIT. | If GREEDY is non-nil, extend the match backwards as far as possible, | stopping when a single additional previous character cannot be part | of a match for REGEXP. | (let ((start (point)) | (pos | (save-excursion |(and (re-search-backward (concat \\(?: regexp \\)\\=) limit t) | (point) | (if (and greedy pos) | (save-restriction | (narrow-to-region (point-min) start) | (while (and ( pos (point-min)) | (save-excursion | (goto-char pos) | (backward-char 1) | (looking-at (concat \\(?: regexp \\)\\' | (setq pos (1- pos))) | (save-excursion | (goto-char pos) | (looking-at (concat \\(?: regexp \\)\\') | (not (null pos) ` -- Richard ___ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: New module: org-learn, incremental reading
Excellent, I have been wanting to use this SuperMemo feature for years. Having it readily available in org mode is just too good to be true. Thanks, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: New module: org-learn, incremental reading
Regarding 'Re: New module: org-learn, incremental reading'; Bill Powell adds: 3. If your answer is 4 or 5, the item will not be repeated. In my own experience, material /always/ has to be repeated. +1. Repetition (optimally with ever increasing intervals) is a must. Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Do we still have XEmacs users?
Carsten Dominik writes: Do we still have XEmacs users around here? Of course! (Sorry for the late reply.) Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] fix in org-publish-update-timestamp
I use the ~ character to denote my home directory in org-publish-project-alist (:base-directory and :publishing-directory), like: , | (setq org-publish-project-alist | (list |'(foo . (:base-directory ~/doc/foo/ ... ` When directories are given this way and ORG-PUBLISH-UPDATE-TIMESTAMP uses the touch command to update the timestamp, it doesn't work because Emacs should expand the ~/ into the home directory via EXPAND-FILE-NAME. See the attached patch, Carsten please include this, thanks. diff --git a/lisp/org-publish.el b/lisp/org-publish.el index c6c7421..399fdd3 100644 --- a/lisp/org-publish.el +++ b/lisp/org-publish.el @@ -233,7 +233,7 @@ If there is no timestamp, create one. (if (and (fboundp 'set-file-times) (not newly-created-timestamp)) (set-file-times timestamp-file) - (call-process touch nil 0 nil timestamp-file + (call-process touch nil 0 nil (expand-file-name timestamp-file) ;;; Mapping files to project names -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] org-remember template entry level
Regarding 'Re: [Orgmode] org-remember template entry level'; Carsten Dominik adds: If you want it at level 3, then probably as the child of some level 2 entry? Just replace bottom put the name of the level 2 headline, without any stars. It works, thanks! No, the number of stars in the template are ignored. This is because some setups allow you to change the destination flexibly, so that the headline level needs to be adjusted. It makes sense, thank you for the explanation. -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] publish regression: body-only (with patch)
Hello, somehow the publish with body-only feature disappeared, or I just can't find a way to use it. Here is my usecase: , | (setq org-publish-project-alist | (list |'(foo . (:base-directory ... | :base-extension any | :publishing-directory /tmp/ | :with-section-numbers nil | :body-only t | :table-of-contents nil | ` Only the bodies of the HTML files should be written to disk. Carsten, please consider adding this, thank you, Richard. diff --git a/lisp/org-html.el b/lisp/org-html.el index 16cf937..9224d6f 100644 --- a/lisp/org-html.el +++ b/lisp/org-html.el @@ -498,7 +498,8 @@ PUB-DIR is set, use this as the publishing directory. (org-combine-plists (org-default-export-plist) ext-plist (org-infile-export-plist + (body-only (or body-only (plist-get opt-plist :body-only))) (style (concat (if (plist-get opt-plist :style-include-default) org-export-html-style-default) (plist-get opt-plist :style) ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] org-remember template entry level
Hello, when org-remember creates a todo entry for me, it always is a level 1 entry, like: , | * foo ` I want it to be on level 3, like: , | *** foo ` However, even if my template contains 3 leading stars, , | (setq org-remember-templates | '((foo ?f *** foo | ~/.xemacs/org/foo.org bottom t))) ` the created entry is still on level 1. Is there a way to make org-remember keep the number of stars? Thanks, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] publish regression: body-only (with patch)
Regarding 'Re: [Orgmode] publish regression: body-only (with patch)'; Carsten Dominik adds: Hi Richard, this feature has never existed as something usable from publishing. Can you provide a realistic case when something like this would be useful? Oh, then my patch did not make it into org back then.:) I am going to use org just to render the content part of my site, the menus, comment section, tag cloud, interlinking (by date, topic etc) will be generated by a CMS. As I think about it, it seems fairly trivial just to rip out the body(...)/body part of the generated HTML, so I'm ready to accept if you don't want this into org. -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: checkbox statistics
Regarding 'Re: Re: checkbox statistics'; Samuel Wales adds: Perhaps any such change should also change todo statistics for consistency? I don't use todo statistics, but I'm going to take a look at that. -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: checkbox statistics
Regarding 'Re: checkbox statistics'; Carsten Dominik adds: Hello, currently checkbox statistics only takes into account checkboxes on a single indent level. I would prefer checkbox statistics to show the total number of checkboxes below them, regardless of level. [...] This is how it used to be a long time ago, and then we changed it, upon the request of several users. Here is a patch to add support for the old way. Carsten, please include this if you find this acceptable, thanks. diff --git a/lisp/org-list.el b/lisp/org-list.el index 7469add..d4c50e3 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -110,6 +110,9 @@ with \\[org-ctrl-c-ctrl-c\\]. :group 'org-plain-lists :type 'boolean) +(defcustom org-recursive-checkbox-statistics nil + Non-nil means, that checkbox counting should happen recursively.) + (defcustom org-description-max-indent 20 Maximum indentation for the second line of a description list. When the indentation would be larger than this, it will become @@ -402,7 +405,10 @@ the whole buffer. (org-beginning-of-item) (setq curr-ind (org-get-indentation)) (setq next-ind curr-ind) - (while (and (bolp) (org-at-item-p) (= curr-ind next-ind)) +(while (and (bolp) (org-at-item-p) +(if org-recursive-checkbox-statistics +(= curr-ind next-ind) +(= curr-ind next-ind))) (save-excursion (end-of-line) (setq eline (point))) (if (re-search-forward re-box eline t) (if (member (match-string 2) '([ ] [-])) @@ -410,7 +416,9 @@ the whole buffer. (setq c-on (1+ c-on)) ) ) -(org-end-of-item) + (if org-recursive-checkbox-statistics + (forward-line 1) + (org-end-of-item)) (setq next-ind (org-get-indentation)) ))) (goto-char continue-from) -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: checkbox statistics
Regarding 'Re: checkbox statistics'; Carsten Dominik adds: This is how it used to be a long time ago, and then we changed it, upon the request of several users. The patch I sent previously is bad, please ignore it. It needs more work (unfortunately). -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: checkbox statistics (fixed version)
This is the fixed patch, it actually works on my real life org files so this has a slight chance of being right. diff --git a/lisp/org-list.el b/lisp/org-list.el index 7469add..872dddf 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -110,6 +110,9 @@ with \\[org-ctrl-c-ctrl-c\\]. :group 'org-plain-lists :type 'boolean) +(defcustom org-recursive-checkbox-statistics nil + Non-nil means, that checkbox counting should happen recursively.) + (defcustom org-description-max-indent 20 Maximum indentation for the second line of a description list. When the indentation would be larger than this, it will become @@ -402,7 +405,10 @@ the whole buffer. (org-beginning-of-item) (setq curr-ind (org-get-indentation)) (setq next-ind curr-ind) - (while (and (bolp) (org-at-item-p) (= curr-ind next-ind)) +(while (and (bolp) (org-at-item-p) +(if org-recursive-checkbox-statistics +(= curr-ind next-ind) +(= curr-ind next-ind))) (save-excursion (end-of-line) (setq eline (point))) (if (re-search-forward re-box eline t) (if (member (match-string 2) '([ ] [-])) @@ -410,7 +416,12 @@ the whole buffer. (setq c-on (1+ c-on)) ) ) -(org-end-of-item) + (if org-recursive-checkbox-statistics + (progn +(end-of-line) +(when (re-search-forward org-list-beginning-re lim t) + (beginning-of-line))) + (org-end-of-item)) (setq next-ind (org-get-indentation)) ))) (goto-char continue-from) -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] checkbox statistics
Hello, currently checkbox statistics only takes into account checkboxes on a single indent level. I would prefer checkbox statistics to show the total number of checkboxes below them, regardless of level. Currently: , | ** TODO [0/2] job |1) [-] 1 | * [X] a | * [X] b | * [X] c | * [ ] d | * [ ] e |2) [-] 2 | * [X] a | * [X] b | * [ ] c ` What I would like is: , | ** TODO [5/10] job |1) [-] 1 | * [X] a | * [X] b | * [X] c | * [ ] d | * [ ] e |2) [-] 2 | * [X] a | * [X] b | * [ ] c ` Is it possible somehow? Thanks, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: list of todo entries without tags
Regarding 'Re: list of todo entries without tags'; Carsten Dominik adds: C-c a M - { . } Superb, thanks:) Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] BUG: org-clock-find-position slurpes a non-clock line into drawer
To reproduce, set your org-clock-into-drawer to 3 (or any number). Then: , | * Foo | - [ ] bar baz ` Clock in and out org-clock-into-drawer times, after that I get (= the checkbox line got into the logbook drawer): , | * Foo |:LOGBOOK: |CLOCK: [2009-03-13 Fri 18:45]--[2009-03-13 Fri 18:45] = 0:00 |CLOCK: [2009-03-13 Fri 18:39]--[2009-03-13 Fri 18:39] = 0:00 |CLOCK: [2009-03-13 Fri 18:39]--[2009-03-13 Fri 18:39] = 0:00 |- [ ] bar baz |:END: ` The bug is in org-clock-find-position, I commented out these lines: ; (if (and (= (org-get-indentation) ind-last) ;(org-at-item-p)) ; (org-end-of-item)) Now it works, but maybe this breaks other stuff, so please Carsten take a look at this, thanks! -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] New :base-extension parameter: :none
Hello, I don't use filename extensions for my org files and I could not publish my files that way because you have to give a string parameter to :base-extension. I modified the org-publish-get-base-files function to support a :none keyword, that means that every file gets exported (except those thats name start with a dot): , |'(test . (:base-directory ~/test/ |:base-extension :none ;; new :none keyword |:publishing-directory /tmp/ |:with-section-numbers nil |:table-of-contents nil |)) ` Here is the modified function, 2 lines changed (look for the -). Carsten, please include this change in the next version of Org if you think it's ok, thank you. , | (defun org-publish-get-base-files (project optional exclude-regexp) | Return a list of all files in PROJECT. | If EXCLUDE-REGEXP is set, this will be used to filter out | matching filenames. | (let* ((project-plist (cdr project)) |(base-dir (file-name-as-directory | (plist-get project-plist :base-directory))) |(include-list (plist-get project-plist :include)) |(recurse (plist-get project-plist :recursive)) |(extension (or (plist-get project-plist :base-extension) org)) |(match (if (eq extension :none) ;; - | ^[^\\.] ;; - | (concat ^[^\\.].*\\.\\( extension \\)$ | (setq org-publish-temp-files nil) | (org-publish-get-base-files-1 base-dir recurse match | ;; FIXME distinguish exclude regexp | ;; for skip-file and skip-dir? | exclude-regexp exclude-regexp) | (mapc (lambda (f) | (pushnew |(expand-file-name (concat base-dir f)) |org-publish-temp-files)) | include-list) | org-publish-temp-files)) ` -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Patch: new org-publish-project-alist property: :body-only
I defined a new org-publish-project-alist property: :body-only, the functionality was already in Org. ,[ example ] |'(test . (:base-directory /tmp/ |:base-extension org |:publishing-directory /tmp/1/ |:body-only t ;; |)) ` Excerpt from the patch: , | When :body-only is set to t, don't produce the file header and footer, | simply publish the content of body.../body, without even the body | tags themselves. ` Carsten, please include this if you think it's ok. --- org-publish.el 2009-02-10 20:23:13.0 +0100 +++ /home/ignotus/.elisp/org/lisp/org-publish.el 2009-02-12 16:24:20.0 +0100 @@ -222,6 +222,10 @@ :completion-functionFunction to be called after publishing this project. +When :body-only is set to t, don't produce the file header and footer, +simply publish the content of body.../body, without even the body +tags themselves. + Some properties control details of the Org publishing process, and are equivalent to the corresponding user variables listed in the right column. See the documentation for those variables to @@ -501,7 +507,8 @@ (setq export-buf-or-file (funcall (intern (concat org-export-as- format)) (plist-get plist :headline-levels) - nil plist nil nil pub-dir)) + nil plist nil (plist-get plist :body-only) + pub-dir)) (when (and (bufferp export-buf-or-file) (buffer-live-p export-buf-or-file)) (set-buffer export-buf-or-file) -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] two new functions: org-move-thing-up org-move-thing-down
Here are two functions for moving things around. Useful to bind them to keys. Carsten, please include these functions in org if you think it's ok. ,[ for me it is ] | (define-key org-mode-map [(alt ?N)] 'org-move-thing-up) | (define-key org-mode-map [(alt ?T)] 'org-move-thing-down) ` , | (defun org-move-thing-up () | Move table row, headline or list item up. | (interactive) | (let ((headline-p (save-excursion | (beginning-of-line) | (when (looking-at (concat ^\\( outline-regexp \\))) | t | (cond ((org-at-table-p) (org-table-move-row-up)) | (headline-p (org-move-subtree-up)) | (t (org-move-item-up 1) | | (defun org-move-thing-down () | Move table row, headline or list item down. | (interactive) | (let ((headline-p (save-excursion | (beginning-of-line) | (when (looking-at (concat ^\\( outline-regexp \\))) | t | (cond ((org-at-table-p) (org-table-move-row-down)) | (headline-p (org-move-subtree-down)) | (t (org-move-item-down) ` -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: two new functions: org-move-thing-up org-move-thing-down
Regarding 'Re: two new functions: org-move-thing-up org-move-thing-down'; Bernt Hansen adds: How are these functions different from org-metaup and org-metadown which are bound to M-up arrow and M-down arrow on my system? I did not know about them, I was looking for org.*move, now I use org-metadown and -metaup. Thank you. -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] New :base-extension parameter: :none
Regarding 'Re: [Orgmode] New :base-extension parameter: :none'; Daniel Clemente adds: Richard KLINDA rkli...@gmail.com writes: , | '(test . (:base-directory ~/test/ :base-extension :none | ;; new :none keyword Shouldn't that be :base-extension 'none with a symbol instead of a keyword? 'none is fine with me too, Carsten please change the symbol to 'none if you think that is more in line with org conventions. I think : is for KEYwords, symbols that are going to be used as keys in a hash table. Actually no, you can use keywords in situations like this, keywords are just symbols that evaluate to themselves, it's simply a stylistic choice. -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] New :base-extension parameter: :none
Regarding 'Re: [Orgmode] New :base-extension parameter: :none'; Daniel Clemente adds: Daniel Clemente n142...@gmail.com writes: Shouldn't that be :base-extension 'none with a symbol instead of a keyword? I think : is for KEYwords, symbols that are going to be used as keys in a hash table. Actually... don't we have nil for that? ,[ org-publish.el ] |(extension (or (plist-get project-plist :base-extension) org)) ` Nil (default case) gets replaced by org string, so we have to have something else for the none case. -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: how to do this org-agenda command?
Regarding 'Re: how to do this org-agenda command?'; Manish adds: --8---cut here---start-8--- (setq org-agenda-custom-commands (quote ((r Richard's Daily Agenda ((tags-todo PRIORITY=\A\ nil) (agenda nil)) nil nil --8---cut here---end---8--- It lists an A priority task twice if it is scheduled for today. May be a skip condition can be added.. Thanks Manish, would it be possible to have this as a single tags-todo section? Ideally I would like to have something like this, so the most important tasks can stay visually together at the top of my daily agenda stuff: (tags-todo PRIORITY=\A\|SCHEDULED=t|CLOCKED=t nil) -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] Re: how to do this org-agenda command?
Regarding 'Re: [Orgmode] Re: how to do this org-agenda command?'; Manish adds: tags-todo section? Ideally I would like to have something like this, so the most important tasks can stay visually together at the top of my daily agenda stuff: How about blanking out the header between the two blocks. Does this appeal to you? Hmm, not bad, thanks. I need more time to experiment with it. --8---cut here---start-8--- (setq org-agenda-custom-commands (quote ((r Richard's Daily Agenda ((agenda nil) (tags-todo PRIORITY=\A\ ((org-agenda-overriding-header nil nil --8---cut here---end---8--- (tags-todo PRIORITY=\A\|SCHEDULED=t|CLOCKED=t nil) Obviously this is not a valid syntax (as of now) but what do you mean by CLOCKED=t? Yes it is confusing, I meant CLOCKED=t for the item that is currently clocked in. -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Re: [Orgmode] Re: how to do this org-agenda command?
Regarding 'Re: [Orgmode] Re: how to do this org-agenda command?'; Manish adds: How about switching the TODO state when you clock in to a task and adding a block to the custom agenda to inlude tasks with that state? --8---cut here---start-8--- (setq org-clock-in-switch-to-state STARTED) --8---cut here---end---8--- Thanks, in the end I wrote a hackish org-agenda-skip-function for my needs. Thank you for your input. , | (defun rk-org-agenda-skip-not-interesting () | Skip not interesting TODO entries, only keep: | - [#A] priority entries, | - scheduled for today entries, | - entries that are clocked in. | Ripped from org-agenda-skip-if function. | (let (beg end m) | (org-back-to-heading t) | (setq beg (point) | end (progn (outline-next-heading) (1- (point | (goto-char beg) | (and (and | ;; CLOCKED IN entries | (not (save-excursion | (when (re-search-forward ^ +CLOCK: \\[.*?\\]$ end t) |(beginning-of-line) |(not (re-search-forward -- (line-end-position) t)) |))) | ;; PRIORITY [#A] entries | (not (save-excursion | (re-search-forward \\[#A\\] end t))) | ;; SCHEDULED FOR (TO)DAY entries | (not (save-excursion | (when (re-search-forward org-ts-regexp | end t) |(calendar-date-equal (org-date-to-gregorian | (time-to-days | (org-time-string-to-time (match-string 0 | date | ) | end))) ` Usage example: , | ... | (alltodo ((org-agenda-skip-function | 'rk-org-agenda-skip-not-interesting))) | ... ` -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] TIP: set up org-agenda-files automagically
Here is a little code snippet for setting up the org-agenda-files variable via elisp code, to only include files modified in the last X days. I use this, because I have ~500 org files and if I add all of them to org-agenda-files then creating agenda buffers takes up just too much time[1], and it is wasted effort anyway, because I only use a handful of them on a day-to-day basis. , | (defun rk-filter-new-files (max-age files) | Returns only files that were modified MAX-AGE days ago. | (let ((current-day (time-to-days (current-time | (loop for file in files | for age = (time-to-days (nth 5 (file-attributes file))) | if ( (- current-day age) | max-age) | collect file))) | | (setq org-agenda-files (rk-filter-new-files | 380 | (append (directory-files ~/.xemacs/org/ t nil nil t) | (directory-files ~/.Wiki/ t nil nil t ` Footnotes: [1] I don't want to add them manually 1-by-1 either. -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] how to do this org-agenda command?
Hi, I need an org-agenda-custom-commands section for the following: list all TODO entries, that are either scheduled for that day OR have #A priority. Is it possible? Thanks in advance! -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: only one [/] or [%]?
Regarding 'Re: only one [/] or [%]?'; Carsten Dominik adds: On Jan 28, 2009, at 4:57 PM, Richard KLINDA wrote: Hi, I have noticed that you can only have one [/] or [%] in a headline. In an older version of org I used to use both in the same headline and it worked. Did that really ever work Yes, I'm pretty sure of that because I always used it that way. :) Is there some reason for this regression? No, no reason, and progress has reversed regression in the GIT repo. :) I think this feature could be added with a one-line change in org-list.el (defun org-update-checkbox-count (optional all) , | OLD: continue-from (point-at-bol) | NEW: continue-from (or beg-cookie (point-at-bol)) ` So now you can have: , | ** TODO [1/2] [1/2] [1/2] --- YIKES --- [1/2] [1/2] [1/2] |- [X] foo |- [ ] bar ` Please include this if you like it. -- Udv, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] only one [/] or [%]?
Hi, I have noticed that you can only have one [/] or [%] in a headline. Like in: , | * TODO [/] [%] foo | - [ ] a | - [ ] b ` Only the [%] will be updated. In an older version of org I used to use both in the same headline and it worked. Is there some reason for this regression? Thanks, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Announcing a new tutorial about org-mode, GTD using effort, column view and custom agenda commands
Very nice document, thank you Charles. -- Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Languages again
Hungarian is all right. Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Property for startup visibility?
Regarding 'Re: Property for startup visibility?'; Peter Jones adds: Richard KLINDA [EMAIL PROTECTED] writes: Hello, is there a property for setting the startup visibility (folden, children or subtree) of a tree? Place this in your .org file. I keep it near the top: #+STARTUP: showall Search the manual for startup for more options. Thanks, but I would like to set this up on a tree-by-tree basis (complementing the #+STARTUP option). For example, currently I have a project file: , | * Task 1 | | ** ... | ** ... | | * Task 2 | | ** .. | ** .. | | * Task 3 | | ** .. | ** .. ` What I want is setting it up to open like this: , | * Task 1... (Folded) | | * Task 2 (Content) | ** .. | ** .. | | * Task 3... (Folded) ` Does it make sense? IMHO it could be a nice job for properties. Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Property for startup visibility?
Hello, is there a property for setting the startup visibility (folden, children or subtree) of a tree? Thanks, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Release 6.02
Carsten Dominik writes: - Column view (mostly) works now in XEmacs - The special property Effort can be used for effort estimates I've just tried out this Column view thingie with Effort columns (XEmacs 21.4), works great. Another superb release, thanks Carsten. Kudos to Greg... Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Org 6.01 and XEmacs
Regarding 'Re: Org 6.01 and XEmacs'; Bernt Hansen adds: Richard KLINDA [EMAIL PROTECTED] writes: Has anyone tried out Org 6.01 with XEmacs? It doesn't work for me, before I dwell into this any further I would like to know if this is a problem with my setup, or others experience this too. ATM I went back to 5.23a It works for me (Org-mode version 6.02pre-01). There are some setup things to change with lisp files moving around etc - see the release notes. Today I redownloaded Org, now it is version 6.01d (org-version returns 6.01c), I plugged it in the place of the 6.01 and fortunately everything works as expected. Maybe I borked something up with the previous version, in that case sorry for the noise. :) Thanks, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Gnus journal anyone?
Richard G Riley writes: Has anyone out there set up a system to automatically create org entries to journal outgoing emails to certain individuals? Ideally based on a bbdb entry to journal that particular contact? I would absolutely love this! Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: REQUEST: orgstruct-mode modeline string?
Regarding 'Re: REQUEST: orgstruct-mode modeline string?'; Carsten Dominik adds: it does do that for me, do see OrgStruct in the mode line. Regarding 'Re: REQUEST: orgstruct-mode modeline string?'; Phil Jackson adds: Me too, just for the record. Interesting, I don't see that (Emacs version: 21.4 (patch 21) Educational Television XEmacs Lucid and org version: 5.16a). Both orgstruct-mode and orgtbl-mode are in the minor-mode-alist: , | (orgstruct-mode (#extent [detached) help-echo keymap 0x969 from no | buffer #extent [detached) 0xb76bf0cc from no buffer . OrgStruct)) | | (orgtbl-mode (#extent [detached) help-echo keymap 0x969cce8 from no | buffer #extent [detached) 0xb76bf0cc from no buffer . OrgTbl)) ` I see OrgTbl, but not OrgStruct in my modeline (both turned on and both are usable). It may be a problem with my local configuration, do you have any hints what might cause this? Thanks. Have a nice day, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] REQUEST: orgstruct-mode modeline string?
Hello, I've noticed that M-x orgstruct-mode doesn't put the string OrgStruct onto the modeline (to give visual feedback about its activeness). M-x orgtbl-mode puts OrgTbl there, I think orgstruct-mode should do the same. Have a nice day, Richard ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode