equal
deleted
inserted
replaced
1344 ;; ("WAIT" . (:foreground "orange" :weight bold)) |
1344 ;; ("WAIT" . (:foreground "orange" :weight bold)) |
1345 ;; ("DONE" . (:foreground "green" :weight bold))) ) |
1345 ;; ("DONE" . (:foreground "green" :weight bold))) ) |
1346 ) |
1346 ) |
1347 |
1347 |
1348 (setq org-agenda-include-diary t) |
1348 (setq org-agenda-include-diary t) |
|
1349 |
|
1350 (defun my-org-kill-by-tag (tag) |
|
1351 "Put all entries that matches TAG from current org-file to `kill-ring'." |
|
1352 (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags)))) |
|
1353 (kill-new "") |
|
1354 (org-scan-tags |
|
1355 (lambda () |
|
1356 (let ( (last-command 'kill-region) ) |
|
1357 (org-cut-subtree))) |
|
1358 '(member tag tags-list) |
|
1359 nil) ) |
1349 |
1360 |
1350 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1361 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1351 (message "TODO, XXX, FIXME highlight") |
1362 (message "TODO, XXX, FIXME highlight") |
1352 ;; Show blanks and FIXME |
1363 ;; Show blanks and FIXME |
1353 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |
1364 ;; http://www.emacswiki.org/cgi-bin/wiki/EightyColumnRule |