emacs/external/ljupdate/ljupdate.el

   1 ;;; ljupdate.el --- a LiveJournal client for Emacs -*- emacs-lisp -*-
   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 (require 'lj-custom)
  38
  39 (defconst lj-client-revision "24M\x01"
  40   "The Subversion revision of your ljupdate.")
  41
  42 (defun lj-client-version ()
  43   (format "%sEmacs-ljupdate/4.0.%s"
  44           (cond ((featurep 'sxemacs) "SX")
  45                 ((featurep 'xemacs) "X")
  46                 (t ""))
  47           ;; `lj-client-revision' might be a simple number, or it might
  48           ;; match X:YM?S?, where X and Y are revision numbers.
  49           (apply 'max
  50                  (mapcar 'string-to-number
  51                          (split-string lj-client-revision "[:MS]")))))
  52
  53 (defconst lj-client-version (lj-client-version)
  54   "The client version to report to the server.")
  55
  56 (provide 'ljupdate)
  57
  58 ;;; Generated autoloads follow (made by autoload.el).
  59 ;;; ljupdate.in ends here
  60
  61 ;;;### (autoloads (lj-compose lj-compose-mode) "lj-compose" "lj-compose.el"
  62 ;;;;;;  (18347 50208))
  63 ;;; Generated autoloads from lj-compose.el
  64
  65 (autoload 'lj-compose-mode "lj-compose" "\
  66 Major mode for editing LiveJournal posts.
  67
  68 \(fn)" nil nil)
  69
  70 (add-to-list 'auto-mode-alist '("\\.lj\\'" . lj-compose-mode))
  71
  72 (autoload 'lj-compose "lj-compose" "\
  73 Compose a new LiveJournal post.
  74
  75 \(fn)" t nil)
  76
  77 ;;;***
  78
  79 ;;;### (autoloads (lj-browse-entries lj-html-decode-string) "lj-edit"
  80 ;;;;;;  "lj-edit.el" (18347 50208))
  81 ;;; Generated autoloads from lj-edit.el
  82
  83 (autoload 'lj-html-decode-string "lj-edit" "\
  84 Not documented
  85
  86 \(fn STRING)" t nil)
  87
  88 (autoload 'lj-browse-entries "lj-edit" "\
  89 Not documented
  90
  91 \(fn)" t nil)
  92
  93 (defalias 'lj-edit-last 'lj-edit-post)
  94
  95 ;;;***
  96
  97 ;;;### (autoloads (lj-logout lj-login) "lj-login" "lj-login.el" (18347
  98 ;;;;;;  50208))
  99 ;;; Generated autoloads from lj-login.el
 100
 101 (autoload 'lj-login "lj-login" "\
 102 Logs into SERVER as USERNAME, and return the md5sum of USERNAME's password.
 103
 104 \(fn SERVER USERNAME)" t nil)
 105
 106 (autoload 'lj-logout "lj-login" "\
 107 Logs off of SERVER (as USERNAME).
 108
 109 \(fn SERVER USERNAME)" t nil)
 110
 111 (defalias 'lj-password 'lj-login)
 112
 113 ;;;***
 114
 115 ;;;### (autoloads nil nil ("http-cookies.el" "http-post.el" "lj-acct.el"
 116 ;;;;;;  "lj-compat.el" "lj-custom.el" "lj-fill.el" "lj-maint.el"
 117 ;;;;;;  "lj-pcomplete.el" "lj-protocol.el" "lj-util.el") (18347 50393
 118 ;;;;;;  974000))
 119
 120 ;;;***
 121
 122 ;;;### (autoloads (http-get) "http-get" "http-get.el" (18347 50285))
 123 ;;; Generated autoloads from http-get.el
 124
 125 (autoload 'http-get "http-get" "\
 126 Get URL in a buffer, and return the process.
 127 You can get the buffer associated with this process using
 128 `process-buffer'.
 129
 130 The optional HEADERS are an alist where each element has the form
 131 \(NAME . VALUE).  Both must be strings and will be passed along with
 132 the request.
 133
 134 With optional argument SENTINEL, the buffer is not shown.  It is the
 135 responsibility of the sentinel to show it, if appropriate.  A sentinel
 136 function takes two arguments, process and message.  It is called when
 137 the process is killed, for example.  This is useful when specifying a
 138 non-persistent connection.  By default, connections are persistent.
 139 Add (\"Connection\" . \"close\") to HEADERS in order to specify a
 140 non-persistent connection.  Usually you do not need to specify a
 141 sentinel, and `ignore' is used instead, to prevent a message being
 142 printed when the connection is closed.
 143
 144 If you want to filter the content as it arrives, bind
 145 `http-filter-pre-insert-hook' and `http-filter-post-insert-hook'.
 146
 147 The optional argument VERSION specifies the HTTP version to use.  It
 148 defaults to version 1.0, such that the connection is automatically
 149 closed when the entire document has been downloaded.  This will then
 150 call SENTINEL, if provided.  If no sentinel is provided, `ignore' will
 151 be used in order to prevent a message in the buffer when the process
 152 is killed.
 153
 154 CONTENT-TYPE is a coding system to use for the encoding of the url
 155 param value.  Its upper case print name will be used for the server.
 156 Possible values are `iso-8859-1' or `euc-jp' and others.
 157
 158 The coding system of the process is set to `binary', because we need to
 159 distinguish between \\r and \\n.  To correctly decode the text later,
 160 use `decode-coding-region' and get the coding system to use from
 161 `http-headers'.
 162
 163 \(fn URL &optional HEADERS SENTINEL VERSION BUFNAME CONTENT-TYPE)" t nil)
 164
 165 ;;;***