Hi Adam.
I still lurk on the org-mode list. I'm not using org as much as a TODO
system any more, mostly for publishing and notes, so I am not sure if
it works with the lates version of org.
Attached is the code, released for those that might find it of value.
It has not substantially changed in all that time. Its essentially an
extra highlighter aimed at org-mode nodes that have tags like todo and
project.
regards,
Tim.
On 15 December 2013 17:08, Adam Spiers orgm...@adamspiers.org wrote:
Hey Tim,
I realise this is from over 4 years ago, but I was wondering if you'd
made any progress with org-action-verbs since then? It's a great idea
and IMHO worthy of being made into a package.
Cheers,
Adam
On 1 October 2009 03:29, Tim O'Callaghan tim.ocallag...@gmail.com wrote:
Small update. Fixes the problem of the highlighting not disappearing
when headline is fixed.
- Still has some issues with removing highlighting when TODO becomes
something else.
- Added new default verbs:
TODO, NEXT - Call, Email, Fix, Find, Fill out, Give, Print, Re-Do, Take
PROJECT - Configure, Draft, Purge, Gather
Enjoy,
Tim.
;;; org-action-verbs.el --- Highlight potentially un-doable headlines.
;; Copyright (C) 2008 Tim O'Callaghan
;; Author: Tim O'Callaghan t...@dspsrv.com
;; Version: 0.1
;; This file is not currently part of GNU Emacs.
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program ; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; This is an implementation of an idea I had to keep me honest. In
;; GTD each 'next action' is supposed to be an actual do-able thing to
;; further the project it is associated with.
;; When creating next actions or project headlines there is sometimes
;; a tendancy to use a heading that is a bit vauge/un-doable. This is
;; usually a sign that the task the headline represents needs more
;; thinking about and will probably need more than one next action or
;; spawn another project.
;; org-action-verbs was created to use a list of GTD 'action verbs' to
;; diagnose a functional Next Action and project headline. It
;; searches for headlines of a specific TODO type and checks to see if
;; the next word is specified as an action verb. If not, then it
;; highlights the non actionable word. Kind of like flyspell mode.
;; To use you might put the following in your .emacs:
;;
;; (require 'org-action-verbs)
;;
;; To change the default TODO/Action verb table you can set
;; 'org-action-todo-verbs'. Below is an example
;; 'org-action-todo-verbs' The first checks for the right spaceship
;; name associated with the SPACESHIP todo type, and the right colour
;; for the COLOR/COLOUR todo type.
;;(setq org-action-todo-verbs
;; '(
;;((SPACESHIP) . (Challenger Voyager Enterprise Nostromo Apollo ))
;;((COLOUR COLOR) . (Red Yellow Green Aquamarine Blue Black))
;;)
;;
;;
(require 'org)
(defface org-action-incorrect-face
'class color) (background light)) (:foreground purple :bold t :underline t))
(((class color) (background dark)) (:foreground purple :bold t :underline t))
(t (:bold t :underline t)))
Used by org-action-verbs to help mark bad 'un-doable' headlines.)
;; backward-compatibility alias
(put 'org-action-incorrect-face 'face-alias 'org-action-incorrect)
(defvar org-action-todo-verbs
'(
((TODO NEXT) .
(Address Ask Avoid Buy Change Clarify Collect Commend Confront
Consider Create Decide Defer Develop Discard Do Again Download
Enter File Follow Up Hire Improve Increase Inform Inquire
Maintain Measure Monitor Order Paint Phone Prioritize Purchase
Question Reduce Remember Repair Reply Report Research Resolve
Review Schedule Sell Send Service Specify Start Stop Suggest
Tidy Train Update Upgrade Write))
((PROJECT) .
(Finalize Resolve Handle Look-Into Submit Maximize Organize
Design Complete Ensure Research Roll-Out Update Install
Implement Set-Up))
)
org-action todo keywords to apply to incorrect action verb overlay to.)
(defun org-font-lock-add-action-faces (limit)
Add the special action word faces.
(let (rtn a)
;; check variable is set, and buffer left to search
(when (and (not rtn) org-action-todo-verbs)
;; for each todo/action verb set
(dolist (todo org-action-todo-verbs)
;; build regexps
(let
