1 ;;; lj-maint.el --- compilation and maintenance hacks for ljupdate
3 ;; Copyright (C) 2002, 2003, 2004, 2005 Edward O'Connor <ted@oconnor.cx>
5 ;; Author: Edward O'Connor <ted@oconnor.cx>
6 ;; Keywords: convenience
8 ;; This file is part of ljupdate, a LiveJournal client for Emacs.
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.
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.
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:
24 ;; Free Software Foundation
25 ;; 51 Franklin Street, Fifth Floor
26 ;; Boston, MA 02110-1301
37 ;; `load-path' frobbing; used for compiling
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")))
43 ;; autoload generation; used to create `ljupdate.el'
45 (defvar generated-autoload-file
)
46 (defvar command-line-args-left
)
47 (defun lj-generate-autoloads ()
48 "Generate autoloads for ljupdate."
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))
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
))
63 ;;; lj-maint.el ends here