emacs/external/ljupdate/lj-custom.el

   1 ;;; lj-custom.el --- Custom declarations for ljupdate
   2
   3 ;; Copyright (C) 2002, 2003, 2004, 2005 Edward O'Connor <ted@oconnor.cx>
   4
   5 ;; Author: Edward O'Connor <ted@oconnor.cx>
   6 ;; Keywords: convenience
   7
   8 ;; This file is part of ljupdate, a LiveJournal client for Emacs.
   9
  10 ;; ljupdate is free software; you can redistribute it and/or
  11 ;; modify it under the terms of the GNU General Public License as
  12 ;; published by the Free Software Foundation; either version 2, or
  13 ;; {at your option} any later version.
  14
  15 ;; ljupdate is distributed in the hope that it will be useful, but
  16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  18 ;; General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING, or type `C-h C-c'. If
  22 ;; not, write to the Free Software Foundation at this address:
  23
  24 ;;   Free Software Foundation
  25 ;;   51 Franklin Street, Fifth Floor
  26 ;;   Boston, MA 02110-1301
  27 ;;   USA
  28
  29 ;;; Commentary:
  30 ;;
  31
  32 ;;; History:
  33 ;;
  34
  35 ;;; Code:
  36
  37 (defgroup ljupdate nil
  38   "Emacs LiveJournal client."
  39   :group 'processes
  40   :prefix "lj-"
  41   :link '(url-link "http://edward.oconnor.cx/ljupdate/")
  42   :link '(url-link "http://community.livejournal.com/ljupdate/"))
  43
  44 (defcustom lj-cache-dir "~/.ljupdate"
  45   "Directory in which ljupdate saves cached server information."
  46   :group 'ljupdate
  47   :type '(directory))
  48
  49 (defcustom lj-cache-login-information nil
  50   "If non-null, ljupdate will cache the md5 hashes of your paswords.
  51 You might enable this if you don't want to have to log in each time.
  52 However, be warned that ljupdate won't try to update its other cached
  53 information (your friends groups, your journal access list, etc.) if
  54 this is enabled."
  55   :group 'ljupdate
  56   :type '(boolean))
  57
  58 (defcustom lj-fill-function 'lj-fill-by-paragraph
  59   "We use this function to fill your post contents before sending.
  60 When this function is called, the buffer is narrowed to the body.
  61 Set this to `ignore' to send article contents to the server unaltered.
  62 See `lj-fill.el' for several possible values, or write your own!"
  63   :group 'ljupdate
  64   :type '(choice (const :tag "Raw (don't fill)" ignore)
  65                  (const :tag "Default (by paragraph)" lj-fill-by-paragraph)
  66                  (const :tag "Pipe through shell command"
  67                         lj-fill-by-shell-command)
  68                  (function)))
  69
  70 (defcustom lj-fill-by-shell-command-command "cat"
  71   "Shell command to pipe your LiveJournal post through.
  72
  73 Your post will be filtered through this command.  The output is what will
  74 actually be posted to your LiveJournal.
  75
  76 This only has an effect when you use \"Pipe through shell command\" as your
  77 Lj Fill Function, above."
  78   :group 'ljupdate
  79   :type '(string))
  80
  81 (defcustom lj-default-server "www.livejournal.com"
  82   "LiveJournal server to use by default in various contexts."
  83   :group 'ljupdate
  84   :type '(string))
  85
  86 (defcustom lj-default-username nil
  87   "Username to use by default in various contexts."
  88   :group 'ljupdate
  89   :type '(choice string (const nil)))
  90
  91 (defcustom lj-compose-common-hook nil
  92   "Normal hook run by `lj-compose-header-mode' and `lj-compose-body-mode'.
  93 Note that this hook will be run each time your cursor moves from the headers
  94 to the body and vice-versa."
  95   :group 'ljupdate
  96   :type 'hook)
  97
  98 (defcustom lj-compose-init-headers-hook nil
  99   "Hook to be run after headers have been added to a composition buffer.
 100 Use this hook to insert additional headers into the buffer. The point is
 101 left after the end of the headers."
 102   :group 'ljupdate
 103   :type 'hook)
 104
 105 (defcustom lj-compose-init-body-hook nil
 106   "Hook to be run after a new composition buffer has been initialized.
 107 Use this hook to insert initial contents into the body of the post. The
 108 point is left at the beginning of the body."
 109   :group 'ljupdate
 110   :type 'hook)
 111
 112 (defcustom lj-compose-pre-prepare-body-hook nil
 113   "Hook run by `lj-compose-prepare-body' before running `lj-fill-function'.
 114 The buffer is narrowed to the body when this hook is run."
 115   :group 'ljupdate
 116   :type 'hook)
 117
 118 (defcustom lj-compose-post-prepare-body-hook nil
 119   "Hook run by `lj-compose-prepare-body' after running `lj-fill-function'.
 120 The buffer is narrowed to the body when this hook is run."
 121   :group 'ljupdate
 122   :type 'hook)
 123
 124 (defcustom lj-default-headers ""
 125   "*A string containing header lines to be inserted in outgoing messages.
 126 It is inserted before you edit the message, so you can edit or delete
 127 these lines."
 128   :group 'ljupdate
 129   :type 'string)
 130
 131 ;; FIXME: use
 132 (defcustom lj-default-access-level "public"
 133   "Current possible values are ``public'', ``private'', and ``friends''."
 134   :group 'ljupdate
 135   :type '(choice (const :tag "Public (anyone)" "public")
 136                  (const :tag "Private (you only)" "private")
 137                  (const :tag "Friends-only" "friends")))
 138
 139 ;; FIXME: use
 140 (defcustom lj-allow-comments "yes"
 141   "Whether or not comments on your posts are allowed by default."
 142   :group 'ljupdate
 143   :type '(choice (const :tag "Allow comments" "yes")
 144                  (const :tag "Disallow comments" "no")))
 145
 146 ;; FIXME: use
 147 (defcustom lj-default-mail-notification "yes"
 148   "Non-nil if you should receive comment notification email by default."
 149   :group 'ljupdate
 150   :type '(choice (const :tag "Receive Mail Notification" "yes")
 151                  (const :tag "Do Not Receive Mail Notification" "no")))
 152
 153 (provide 'lj-custom)
 154
 155 ;;; lj-custom.el ends here