planner-lisp.el

   1 ;;; planner-lisp.el --- Interactive Emacs Lisp integration for Planner mode
   2
   3 ;; Copyright (C) 2004, 2005 Free Software Foundation, Inc.
   4
   5 ;; Author: Sacha Chua <sacha@free.net.ph>
   6 ;; Keywords: planner, gnus
   7 ;; URL: http://www.plannerlove.com/
   8
   9 ;; This file is part of Planner.  It is not part of GNU Emacs.
  10
  11 ;; Planner is free software; you can redistribute it and/or modify it
  12 ;; under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; Planner is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with Planner; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  24 ;; Boston, MA 02110-1301, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; This file allows you to launch Emacs Lisp functions
  29 ;; from a planner page.
  30 ;;
  31 ;; Example:
  32 ;; [[lisp:/plan][Plan]] will be rendered as "Plan". Selecting the link
  33 ;; will run the plan function interactively.
  34 ;;
  35 ;; If the link is a lisp form it is evaluated non-interactively:
  36 ;; [[lisp:/(man "bash")][bash manual]] will be rendered as "bash
  37 ;; manual".  Selecting the link will show the bash man page in Emacs.
  38
  39 ;;; Contributors:
  40
  41 ;; Gerd Flaig fixed the docstring for `planner-lisp-browse-url'.
  42
  43 ;; Jim Ottaway made it such that if the URL like a lisp form, read and
  44 ;; evaluate it, otherwise call it interactively as before.
  45
  46 ;;; Code:
  47
  48 (require 'planner)
  49
  50 ;;;###autoload
  51 (defun planner-lisp-browse-url (url)
  52   "If this is a LISP URL, evaluate it."
  53   (when (string-match "\\`lisp:/*\\(.+\\)" url)
  54     (let ((form (match-string 1 url)))
  55       (if (string-match "\\`\\s-*\\((.+)\\)\\s-*\\'" form)
  56           (eval (read (match-string 1 form)))
  57         (eval (read (concat "(call-interactively '" form ")")))))
  58     t))
  59
  60 (planner-add-protocol "lisp:/*" 'planner-lisp-browse-url nil)
  61
  62 (provide 'planner-lisp)
  63
  64 ;;; planner-lisp.el ends here