remember-experimental.el

   1 ;;; remember-experimental --- Highly dangerous stuff
   2
   3 ;; Copyright (C) 2003 Sandra Jean Chua
   4
   5 ;; Author: Sacha Chua <sacha@free.net.ph>
   6 ;; Keywords: data memory todo pim
   7 ;; URL: http://gna.org/projects/remember-el/
   8
   9 ;; This file is not part of GNU Emacs.
  10
  11 ;; This is free software; you can redistribute it and/or modify it under
  12 ;; the terms of the GNU General Public License as published by the Free
  13 ;; Software Foundation; either version 2, or (at your option) any later
  14 ;; version.
  15 ;;
  16 ;; This is distributed in the hope that it will be useful, but WITHOUT
  17 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  18 ;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  19 ;; for more details.
  20 ;;
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  24 ;; MA 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; Experimental functions can break any time.
  29
  30 ;;; Code:
  31
  32 (require 'planner)
  33 (defvar remember-mail-recipient nil
  34   "People to mail remember entries to.
  35 If this is a string, mail will be sent to that recipient.
  36 If this is a function, the function should return a list of e-mail addresses.")
  37
  38 (setq remember-mail-recipient "sacha@free.net.ph")
  39 (defvar remember-blog-title "Sacha's journal" "Text to prepend to subjects.")
  40 (defun remember-mail-subject (title)
  41   "Return a reasonable subject based on TITLE."
  42   (concat remember-blog-title (format-time-string " (%Y.%m.%d %R): ") title))
  43
  44 (defun remember-compose-mail (title entry)
  45   "Compose a message for TITLE containing ENTRY."
  46   (compose-mail "Undisclosed recipients" (remember-mail-subject title)
  47                 '(("Bcc" . "harvey@adphoto.com.ph")))
  48   (rfc822-goto-eoh)
  49   (forward-line 1)
  50   (insert title "\n"
  51           "----------------------------------------------------------------\n"
  52           entry "\n"
  53           "\n"
  54           "This message was automatically generated by remember.el.\n"
  55           "Blog is at http://sacha.free.net.ph/notebook/wiki/today.php\n"
  56           "and this entry is at http://sacha.free.net.ph/notebook/wiki/"
  57           (planner-today) ".php .\n"))
  58
  59 (remember-compose-mail "Title" "Entry goes here.")
  60 (provide 'remember-experimental)
  61
  62 ;;; remember-experimental.el ends here