3

I'm wondering if it is possible to display lines from an org table on my agenda.

Suppose I have an org file with the following content:

* expense | <2017-08-17 15:11> | 13.00 | barber | :care: | | <2017-08-17 12:06> | 7.60 | lunch | :food: |

I would like to see the following on my agenda:

Donnerstag 17 August 2017 8:00...... ---------------- 10:00...... ---------------- 12:00...... ---------------- gtd: 12:06...... 7.60 lunch :food: 14:00...... ---------------- gtd: 15:11...... 13.00 barber :care:

But unfortunately, the following is displayed:

Donnerstag 17 August 2017 8:00...... ---------------- 10:00...... ---------------- 12:00...... ---------------- gtd: 12:06...... expense 14:00...... ---------------- gtd: 15:11...... expense

If I do string-replace "|<" with "** <" and then "|" with " " (whitespace) I get the desired result.

Is there any way to make it work without modifying the table?

Improve this question
1
  • Can you provide a way to reproduce your problem starting with "emacs -Q"? Commented Jan 1, 2018 at 21:16

1 Answer 1

Reset to default
1
+50

Maybe, there is a simpler way. But, one way is to do automagically just what you did manually. I.e., change the table rows to subheadings. Clearly we don't want to modify the original buffer. We just edit a clone of it. The only things we need to take care of are:

  1. Kill the clone when we are done.
  2. Don't create markers for the clone but for the original buffer.
  3. Find the right header-level for the sub-headings created for the table-rows.

If you paste the following stuff into your init file and re-start emacs table rows with time-stamps in the first column are interpreted like header lines in org-agenda. 

(defun my-org-agenda-get-timestamps (oldfun &rest args) "Run OLDFUN (being `org-agenda-get-timestamps') with ARGS in clone buffer. Before running `org-agenda-get-timestamps' change table rows into header lines within the clone. Kill clone when done. This function can serve as :around advice for `org-agenda-get-timestamps'." (let* ((local-buffer-file-name (buffer-file-name)) buffer-file-name ; Fake that this buffer had no file. `clone-buffer' needs that. (original-buffer (current-buffer)) ; markers are generated for the original buffer with ... (last-header-level 0) ; (clone (clone-buffer))) (org-agenda-new-marker-ad (lambda (oldfun &rest args) (with-current-buffer original-buffer (apply oldfun args))))) (with-current-buffer clone (unwind-protect (let ((re (concat "^\\(?:\\([[:space:]]*|[[:space:]]*\\)" org-element--timestamp-regexp "[[:space:]]*|\\)\\|\\([*]+\\) "))) (setq buffer-file-name local-buffer-file-name) ; `org-agenda-get-timestamps' uses buffer-file-name in link (goto-char (point-min)) (while (re-search-forward re nil t) (if (match-string 1) (progn (replace-match (concat (make-string (1+ last-header-level) ?*) " ") nil nil nil 1) (subst-char-in-region (line-beginning-position) (line-end-position) ?| ?\s t)) (setq last-header-level (length (match-string 3))))) (advice-add 'org-agenda-new-marker :around org-agenda-new-marker-ad) (apply oldfun args)) ;; 1st unwind form: (advice-remove 'org-agenda-new-marker org-agenda-new-marker-ad) ;; 2nd unwind form: kill clone (when (buffer-live-p clone) (with-current-buffer clone (set-buffer-modified-p nil) (kill-buffer))))))) (advice-add 'org-agenda-get-timestamps :around #'my-org-agenda-get-timestamps)

If you encounter problems with the code just delete it from your init file and re-start emacs again. Alternatively you could also just run the following form:

(advice-remove 'org-agenda-get-timestamps #'my-org-agenda-get-timestamps)

Improve this answer

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.