Loads and loads of misc updates

Signed-off-by: Steve Youngs <steve@sxemacs.org>

diff --git a/00-build.el b/00-build.el
index b337116..7ef98dd 100644 (file)
--- a/00-build.el
+++ b/00-build.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 09:31:53 steve>
+;; Time-stamp: <Monday Aug 26, 2013 16:51:28 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/00-build.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -56,167 +56,10 @@
 ;;     
 
 ;;; Code:
-(globally-declare-boundp
- '(**mpd-var-Artist*
-   **mpd-var-Title*
-   appt-message-warning-time
-   bbdb-auto-notes-alist
-   bbdb-complete-name-allow-cycling
-   bbdb-dial-local-prefix
-   bbdb-dwim-net-address-allow-redundancy
-   bbdb/gnus-score-default
-   bbdb/gnus-summary-in-bbdb-format-letter
-   bookmark-save-flag
-   c-default-style
-   compilation-always-signal-completion
-   compilation-read-command
-   compilation-window-height
-   compile-command
-   crontab-delete-blank-lines
-   cvs-add-default-message
-   cvs-allow-dir-commit
-   cvs-reuse-cvs-buffer
-   diff-switches
-   edit-toolbar-added-buttons-alist
-   eshell-ask-to-save-history
-   eshell-banner-message
-   eshell-hist-ignoredups
-   eshell-modules-list
-   etalk-process-file
-   fancy-diary-display
-   find-function-source-path
-   font-menu-ignore-scaled-fonts
-   fume-display-in-modeline-p
-   fume-menubar-menu-location
-   ges-post-use-mime
-   gnus-article-buffer
-   gnus-extract-address-components
-   gnus-original-article-buffer
-   gnus-signature-separator
-   howm-menu-display-rules
-   howm-menu-schedule-days
-   howm-schedule-menu-types
-   ibuffer-fontification-level
-   ibuffer-saved-filter-groups
-   make-diary-entry
-   mark-diary-entries
-   mark-howm-entry
-   message-cite-function
-   mode-compile-make-program
-   passwd-invert-frame-when-keyboard-grabbed
-   patcher-default-change-logs-appearance
-   patcher-default-change-logs-prologue
-   patcher-default-change-logs-updating
-   patcher-default-diff-command
-   patcher-default-diff-prologue-function
-   patcher-default-log-message-items
-   patcher-default-mail-method
-   patcher-default-subject-committed-prefix
-   patcher-default-subject-prefix
-   patcher-default-to-address
-   patcher-mail-run-gnus
-   patcher-mail-run-gnus-other-frame
-   patcher-projects
-   patcher-subprojects
-   query-user-mail-address
-   recent-files-non-permanent-submenu
-   report-xemacs-bug-no-explanations
-   riece-alias-percent-hack-mask
-   riece-command-buffer
-   riece-ignore-discard-message
-   riece-keywords
-   savehist-coding-system
-   savehist-file
-   set-mode
-   snap-abbreviate-environment-variables
-   speedbar-query-confirmation-method
-   speedbar-show-unknown-files
-   speedbar-tag-hierarchy-method
-   speedbar-track-mouse-flag
-   speedbar-use-tool-tips-flag
-   speedbar-visiting-tag-hook))
-
-
-(eval-and-compile
-  ;(defvar xwem-global-map global-map)
-  ;(defvar xwem-sound-alist nil)
-  ;(defvar xwem-started nil)
-  (defvar eshell-mode-map nil)
-  (autoload #'executable-find "executable")
-  (autoload #'morse-region "morse" nil t)
-  (autoload #'read-kbd-macro "edmacro" nil t)
-  (autoload #'regexp-opt "regexp-opt")
-  (require 'advice)
-  (require 'alist)
-  (require 'bbdb-gnus)
-  (require 'bbdb-hooks)
-  (require 'bbdb-sc)
-  (require 'bbdb-w3)
-  (require 'emchat)
-  (require 'emchat-buddy)
-  (require 'emchat-status)
-  (require 'emchat-wharf)
-  (require 'outl-mouse)
-  (require 'riece-yank)
-  ;(require 'xwem-clients)
-  ;(require 'xwem-sound)
-;  (when (and (device-on-window-system-p)
-;           (featurep 'toolbar)
-;           (boundp 'default-toolbar-visible-p))
-;    (require 'latex-toolbar))
-)
-
-(eval-when-compile
-  (defvar c-enable-xemacs-performance-kludge-p)
-  (defvar riece-unread-channels)
-  (autoload #'ansi-color-apply-on-region "ansi-color")
-  (autoload #'blink-cursor-mode "blink-cursor" nil t)
-  (autoload #'c-mode "cc-mode" nil t)
-  (autoload #'c-set-style "cc-styles" nil t)
-  (autoload #'customize-set-variable "cus-edit" nil t)
-  (autoload #'dig "dig" nil t)
-  (autoload #'easy-mmode-define-keymap "easy-mmode")
-  (autoload #'executable-find "executable")
-  (autoload #'gnuserv-start "gnuserv" nil t)
-  (autoload #'hyper-apropos "hyper-apropos" nil t)
-  (autoload #'hyper-describe-face "hyper-apropos" nil t)
-  (autoload #'ibuffer-add-to-tmp-hide "ibuf-ext" nil t)
-  (autoload #'ibuffer-switch-to-saved-filter-groups "ibuf-ext" nil t)
-  (autoload #'load-sound-file "sound" nil t)
-  (autoload #'mail-header-parse-date "mail-parse")
-  (autoload #'manual-entry "man" nil t)
-  (autoload #'play-media-stream "sound")
-  (autoload #'yow "yow" nil t)
-  (require 'appt)
-  (require 'balloon-help)
-  (require 'browse-url)
-  (require 'build-rpt)
-  (require 'c-comment-edit)
-  (require 'cal-tex)
-  (require 'diary-lib)
-  (require 'efs)
-  (require 'filladapt)
-  (require 'hm--html-configuration)
-  (require 'howm)
-  (require 'ibuffer)
-  (require 'pending-del)
-  (require 'psgml)
-  (require 'psgml-html)
-  (require 'recent-files)
-  (require 'rsz-minibuf)
-  (require 'savehist)
-  (require 'solar)
-  (require 'sxell)
-  (require 'time)
-  (require 'todo-mode)
-  (require 'url)
-  (require 'url-news)
-  (require 'w3)
-  (require 'w3-java)
-  ;(require 'w3-script)
-  ;(require 'xwem-keyboard)
-  ;(require 'xwem-mpd)
-)
 
+;; This used to have a whole swag of eval-and-compile's and a tonne of
+;; vars globally-declare-boundp'd, but it would seem that my current
+;; inits are sufficiently well written to not need anything in here to
+;; get a clean init compile.  Go me!!
 
 ;;; 00-build.el ends here

diff --git a/01-vars-sy.el b/01-vars-sy.el
index 7318ec3..db8af51 100644 (file)
--- a/01-vars-sy.el
+++ b/01-vars-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 09:34:34 steve>
+;; Time-stamp: <Sunday Aug 25, 2013 09:16:05 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/00-vars-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit

diff --git a/08-bbdb-sy.el b/08-bbdb-sy.el
index 6051eea..88bfdd3 100644 (file)
--- a/08-bbdb-sy.el
+++ b/08-bbdb-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 13:04:37 steve>
+;; Time-stamp: <Monday Aug 26, 2013 16:36:10 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/08-bbdb-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -56,15 +56,15 @@
 ;;     
 
 ;;; Code:
-;:*=======================
-;:* Make sure gnus stuff is loaded
-(load-file (expand-file-name ".gnus" (user-home-directory)))
-
 ;:*======================
 ;:* Some standard stuff first
 (require 'bbdb)
 (require 'bbdb-pgp)
 
+;:*=======================
+;:* Make sure gnus stuff is loaded
+(load-file (expand-file-name ".gnus" (user-home-directory)))
+
 (bbdb-initialize 'gnus 'message 'w3 'sendmail)
 (bbdb-insinuate-gnus)
 (bbdb-insinuate-message)

diff --git a/12-cal-sy.el b/12-cal-sy.el
index 7006b89..48e7b9c 100644 (file)
--- a/12-cal-sy.el
+++ b/12-cal-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 09:27:03 steve>
+;; Time-stamp: <Monday Aug 19, 2013 09:27:26 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/12-cal-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -449,11 +449,12 @@ Ever-so-slightly modified to include the Easter Monday holiday."
   (after mark-howm-entry activate)
   (howm-mark-calendar-date))
 
-(setq
- howm-menu-display-rules
- (cons
-  (cons "%hdiary[\n]?" 'howm-menu-diary)
-  howm-menu-display-rules))
+(and-boundp 'howm-menu-display-rules
+  (setq
+   howm-menu-display-rules
+   (cons
+    (cons "%hdiary[\n]?" 'howm-menu-diary)
+    howm-menu-display-rules)))
 
 (defun howm-menu-diary ()
   (message "scanning diary...")

diff --git a/15-supercite-sy.el b/15-supercite-sy.el
index 2fcbe6e..4072bfe 100644 (file)
--- a/15-supercite-sy.el
+++ b/15-supercite-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 14:15:30 steve>
+;; Time-stamp: <Saturday Aug 17, 2013 11:29:15 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/15-supercite-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -59,6 +59,15 @@
 (require 'supercite)
 (require 'time-date)
 
+;; There is a screw-up in the Gnus autoloads that prevents this from
+;; being autoloaded
+(defun time-to-seconds (time)
+  "Convert time value TIME to a floating point number."
+  (with-decoded-time-value ((high low micro pico type time))
+                          (+ (* 1.0 high 65536)
+                             low
+                             (/ (+ (* micro 1e6) pico) 1e12))))
+
 (defun sy-september-citation-line ()
   (let ((sc-mumble "")
        (whofrom (sc-whofrom)))

diff --git a/16-riece-sy.el b/16-riece-sy.el
index 4517c6a..7db25aa 100644 (file)
--- a/16-riece-sy.el
+++ b/16-riece-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 14:16:53 steve>
+;; Time-stamp: <Monday Aug 19, 2013 17:32:20 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/16-riece-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -246,15 +246,10 @@ Optional prefix arg, UNBAN removes the ban."
 
 With non-nil optional prefix arg, NOTICE, send it as a notice."
   (interactive "P")
-  (let ((song (if **mpd-var-Title*
-                 (format "%s --- [%s]"
-                         **mpd-var-Title*
-                         **mpd-var-Artist*)
-               "The Sounds of Silence --- [Marcel Marceau]")))
-    (riece-command-send-message (format "NP: %s" song) 
-                               (if current-prefix-arg
-                                   'notice
-                                 nil))))
+  (riece-command-send-message
+   (format "NP: %s" (mpd-now-playing)) 
+   (and current-prefix-arg
+       'notice)))
 
 (defun sy-riece-say-all-purpose (&optional notice)
   "Send the all-purpose answer to everything."

diff --git a/17-emchat-sy.el b/17-emchat-sy.el
index 353d442..40b7dc5 100644 (file)
--- a/17-emchat-sy.el
+++ b/17-emchat-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 14:17:23 steve>
+;; Time-stamp: <Thursday Aug 22, 2013 23:56:57 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/17-emchat-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -141,7 +141,8 @@
 (when (getenv "DISPLAY")
   (setq  emchat-use-sound-flag t))
 
-(customize-set-variable 'emchat-auto-away-timeout 1200)
+;; Lets not auto-away.
+(customize-set-variable 'emchat-auto-away-timeout 0)
 
 (emchat-world-update)
 
@@ -169,17 +170,10 @@
 ;:*=======================
 ;:* Addons/extensions
 
-(defvar **mpd-var-Title* nil)
-(defvar **mpd-var-Artist* nil)
 (defun sy-emchat-now-playing ()
   "Return title/artist of current song."
   (interactive)
-  (let ((song (if **mpd-var-Title*
-                 (format "%s --- [%s]"
-                         **mpd-var-Title*
-                         **mpd-var-Artist*)
-               "The Sounds of Silence --- [Marcel Marceau]")))
-    (format "NP: %s" song)))
+  (format "NP: %s" (mpd-now-playing)))
 
 (defun sy-emchat-send-now-playing ()
   "Send title/artist of current song."

diff --git a/init-el b/init-el
index 7f61643..a0c9458 100644 (file)
--- a/init-el
+++ b/init-el
@@ -36,7 +36,7 @@
 ;;
 
 ;; For debugging...
-;(setq debug-on-error t)
+(setq debug-on-error t)
 ;(setq debug-on-signal t)
 ;(setq stack-trace-on-signal t)