emacs/external/ljupdate/lj-maint.el

   1 ;;; lj-maint.el --- compilation and maintenance hacks 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 ;; `load-path' frobbing; used for compiling
  38
  39 (add-to-list 'load-path default-directory)
  40 (mapc (lambda (dir) (add-to-list 'load-path dir))
  41       (parse-colon-path (getenv "LOAD_PATH")))
  42
  43 ;; autoload generation; used to create `ljupdate.el'
  44
  45 (defvar generated-autoload-file)
  46 (defvar command-line-args-left)
  47 (defun lj-generate-autoloads ()
  48   "Generate autoloads for ljupdate."
  49   (interactive)
  50   (require 'autoload)
  51   (setq generated-autoload-file
  52         (expand-file-name (car command-line-args-left) default-directory))
  53   (setq command-line-args-left (cdr command-line-args-left))
  54   (batch-update-autoloads))
  55
  56 (defun lj-debug-response (response)
  57   "Dump RESPONSE into a buffer so we can look at it."
  58   (switch-to-buffer (get-buffer-create "*LJ DEBUG*"))
  59   (maphash (lambda (k v) (insert (format "%s\n%s\n" k v))) response))
  60
  61 (provide 'lj-maint)
  62
  63 ;;; lj-maint.el ends here