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