--- /dev/null
+
+;;;
+;;; notes-variables.el
+;;; $Id: notes-variables.el,v 1.30 2007/11/06 02:45:55 johnh Exp $
+;;;
+;;; Copyright (C) 1994-2000 by John Heidemann
+;;; Comments to <johnh@isi.edu>.
+;;;
+;;; This file is under the Gnu Public License, version 2.
+;;;
+
+;;
+;; This file lists all parameters you might wish to change in
+;; notes{-index,}-mode. The best way to handle this in your
+;; .emacs file is to do
+;; (require 'notes-variables)
+;; (setq your-variable-to-change 'your-new value)
+;;
+
+;; xxx: if part of emacs, this should be probably be set to exec-directory (?)
+(defvar notes-utility-dir "/home/johnh/NOTES/BIN"
+ "Location of notes utility programs")
+
+;;
+;; Notice: several notes parameters are defined in your
+;; ~/.notesrc file. These are not specified here.
+;; See mkconfig for details.
+;; We fetch them here.
+;;
+;; To make this fast, we cache the configuration in a .notesrc.el
+;; file. We only have to invoke mkconfig when that file is out-of-date.
+;; This optimization is very important because notes-variables is
+;; required every time emacs is started.
+;;
+(save-excursion
+ (if (null (file-exists-p (concat notes-utility-dir "/mkconfig")))
+ (progn
+ ;;
+ ;; A common user error is that people don't
+ ;; follow the installation instructions.
+ ;; Part of installation is chaning my local paths (with
+ ;; johnh in them) to whatever you use on your system.
+ ;; If the following error is triggered, it's probably
+ ;; because the user didn't RTFM (or even TF README)
+ ;; and just tried to run notes-mode in place.
+ ;; DON'T DO THAT! Follow the installation instructions.
+ ;;
+ (error "notes-mode is incorrectly installed. Consult the INSTALL section of README.")))
+ (let*
+ ((source-file (expand-file-name "~/.notesrc"))
+ (cache-file (expand-file-name "~/.notesrc.el"))
+ (cache-buf (set-buffer (find-file-noselect cache-file))))
+ (if (and
+ (not (file-exists-p source-file))
+ (not noninteractive))
+ (progn
+ (require 'notes-first)
+ (notes-first-use-init)))
+ (if (and ; requirements for a valid cache-file
+ (file-exists-p cache-file)
+ (if (file-exists-p source-file)
+ (file-newer-than-file-p cache-file source-file)
+ t)
+ (file-newer-than-file-p cache-file (concat notes-utility-dir "/mkconfig")))
+ t ; cache is up-to-date
+ ;; otherwise, refresh the cache
+ (erase-buffer)
+ (call-process (concat notes-utility-dir "/mkconfig") nil t nil "elisp")
+ (save-buffer cache-buf)
+ (set-file-modes cache-file 420)) ; protect it => mode 0644
+ (eval-current-buffer)
+ (kill-buffer cache-buf)))
+
+
+(setq auto-mode-alist
+ (cons (cons
+ (concat notes-int-glob "/" notes-file-glob ".?$")
+ 'notes-mode)
+ auto-mode-alist))
+
+;;; xxx: most of these should use defcustom or something similar, I presume.
+(defvar notes-w3-alternate-url 'browse-url
+ "* A function to call when notes-w3-url cannot handle a complex URL.
+It now goes through the emacs browse-url package,
+but you could also set it manually (say, to w3-fetch).")
+
+(defvar notes-use-font-lock t
+ "* Enable notes fontification.")
+
+(defvar notes-use-outline-mode t
+ "* Enable outline-minor-mode in all notes buffers?")
+
+(defvar notes-index-fontify-dates nil
+ "* Fontify dates in notes-index-mode.
+Turning this off for large notes-index's can improve performance.")
+
+(defvar notes-bold-face 'notes-bold-face
+ "* Face to use for notes-index-mode and notes-mode subjects.
+The default face is copied from 'bold.")
+
+(defvar notes-font-lock-keywords
+ '(("^\\* .*$" . notes-bold-face)
+ ("^\\-+$" . notes-bold-face)
+ ;; ("^[0-9]+\\-[A-Za-z]+\\-[0-9]+ [A-Za-z]+$" . font-lock-bold-face)
+ ;; NEEDSWORK: should also highlight URLs, maybe?
+ )
+ "* Font-lock keywords for notes mode.")
+
+(defvar notes-index-font-lock-keywords
+ '(("^[^:]*:" . notes-bold-face)
+ ("\\<[0-9]*\\>" . mouse-face)
+ )
+ "* Font-lock keywords for notes-index mode.")
+
+(defvar notes-mode-complete-subjects t
+ "* Enable subject completion in notes mode?")
+
+(defvar notes-w3-follow-link-mouse-other-window t
+ "* Should notes-w3-follow-link-mouse open another window?")
+
+(defvar notes-subject-table nil
+ "List of notes-subjects needed for subject completion.
+Reloaded by loading the notes-index file.")
+
+(defvar notes-mode-initialization-program "mknew"
+ "Program to run to initialize a new notes file. Must be in notes-bin-dir.
+If nil, no initialization is done.")
+
+(defvar notes-encryption-key-id nil
+ "Keyid of PGP key for the current user.
+Useful if your \\[user-full-name] doesn't match a unique key.
+Should have a leading 0x.")
+
+(defvar notes-electric-prevnext 2
+ "Amount of electricity in prevnext for notes-mode.
+nil: don't auto-update anything.
+1: update prevnext, but don't autosave the old buffer
+2: update prevnext and autosave the old buffer.")
+
+(defvar notes-running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)
+ "*In XEmacs or Lucid Emacs?.")
+
+;;;
+;;; prep the load path using the notes-lisp-dir
+;;; code stolen from the auctex styles files (specifically tex-site.el)
+;;; -- Kannan
+;;; Wed Apr 7 09:40:27 EDT 1999
+;;;
+(if (boundp 'notes-lisp-dir)
+ (or (assoc notes-lisp-dir (mapcar 'list load-path)) ;No `member' yet.
+ (assoc (substring notes-lisp-dir 0 -1) ;Without trailing slash.
+ (mapcar 'list load-path))
+ (setq load-path (cons notes-lisp-dir load-path))))
+
+(if notes-running-xemacs
+ (require 'notes-xemacs)
+ (require 'notes-emacs))
+
+(defvar notes-platform-inited nil
+ "Have we inited our platform (xemacs/emacs)?")
+
+;;;
+;;; autoloads
+;;;
+
+\f
+;;;### (autoloads (notes-index-mode) "notes-index-mode" "notes-index-mode.el" (12248 45843))
+;;; Generated autoloads from notes-index-mode.el
+
+(autoload (quote notes-index-mode) "notes-index-mode" "\
+Notes-index-mode with mouse support.
+
+You may wish to change notes-bold-face and notes-use-font-lock.
+
+Key bindings are:
+\\{notes-index-mode-map}" t nil)
+
+;;;###autoload
+(autoload (quote notes-index-todays-link) "notes-index-mode" "\
+* Open the notes file for today." t nil)
+
+;;;***
+\f
+;;;### (autoloads (notes-w3-follow-link-mouse notes-w3-follow-link notes-w3-file) "notes-url" "notes-url.el" (12248 46828))
+;;; Generated autoloads from notes-url.el
+
+(autoload (quote notes-w3-url) "notes-url" "\
+Find a link to an ftp site - simple transformation to ange-ftp format.
+Takes the URL as an argument. Optionally you specify
+WHERE the information should appear (either 'otherwindow or not)." nil nil)
+
+(autoload (quote notes-w3-follow-link) "notes-url" "\
+* Follow the URL at the point.
+NEEDSWORK: should handle (by ignoring) an optional \"URL:\" tag." t nil)
+
+(autoload (quote notes-w3-follow-link-mouse) "notes-url" "\
+* Follow the URL where the mouse is." t nil)
+
+;;;***
+
+\f
+;;;### (autoloads (notes-underline-line notes-end-of-defun notes-beginning-of-defun) "notes-mode" "notes-mode.el" (12250 9363))
+;;; Generated autoloads from notes-mode.el
+
+(autoload (quote notes-underline-line) "notes-mode" "\
+*Create a row of dashes as long as this line, or adjust the current underline." t nil)
+
+;;;***
+
+(autoload 'notes-mode "notes-mode" "autoloaded notes-mode" t nil)
+
+(run-hooks 'notes-variables-load-hooks)
+(provide 'notes-variables)