They say the world is Unicode, lets try to live there

[syinit] / 13-misc-sy.el

diff --git a/13-misc-sy.el b/13-misc-sy.el
index 17031c6..d409ade 100644 (file)
--- a/13-misc-sy.el
+++ b/13-misc-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:50:14 steve>
+;; Time-stamp: <Monday Jun 29, 2015 21:59:51 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/13-misc-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -54,7 +54,6 @@
 ;;; Todo:
 ;;
 ;;     
-
 ;;; Code:
 ;:*=======================
 ;:* Why type 'y e s RET' or 'n o RET' when 'y' or 'n' will do.
@@ -215,7 +214,7 @@ instead."
 
 ;; Pack and Unpack tarballs
 (require 'dired-tar)
-(setq dired-tar-compress-with 'bzip2)
+(setq dired-tar-compress-with 'xz)
 
 ;; FFI/libWand for image files in Dired
 (defun sy-dired-wand ()
@@ -279,15 +278,6 @@ instead."
       (mode . hyper-apropos-mode)
       (mode . Info-mode)
       (mode . Manual-mode)))
-    ("Eicq"
-     (or
-      (mode . eicq-buddy-mode)
-      (mode . eicq-log-mode)
-      (mode . eicq-network-mode)
-      (mode . world-mode)
-      (mode . eicq-history-mode)
-      (name . "\\*eicq-debug\\*")
-      (filename . "/home/steve/\\.eicq/history/.*")))
     ("EMchat"
      (or
       (mode . emchat-buddy-mode)
@@ -429,13 +419,7 @@ instead."
  build-rpt-use-gnus-group "nnml:sxemacs.builds"
  build-rpt-use-gnus-p t
  build-rpt-make-output-files
- '(;"~/programming/SXEmacs/core/sxemacs.git/=build/,,vars.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,beta.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-all.out" 
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-check-temacs.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-check.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-install.out"
-   "/usr/src/sxemacs/make.err"
+ '("/usr/src/sxemacs/make.err"
    "/usr/src/sxemacs/check.err"
    "/usr/src/sxemacs/install.err"
    ))
@@ -452,7 +436,7 @@ instead."
 (setq
  emoney-bank-url "https://internetbanking.suncorpbank.com.au/"
  emoney-date-format "%Y-%m-%d"
- emoney-default-account "metway-main.emy"
+ emoney-default-account "scorp-main.emy"
  emoney-recalculate-on-quit t
  emoney-save-after-recalculate t
  emoney-use-new-frame t)
@@ -528,12 +512,14 @@ instead."
 (add-hook 'text-mode-hook 'turn-on-auto-fill)
 ;(customize-set-variable 'gutter-buffers-tab-visible-p nil)
 (setq gutter-buffers-tab-enabled nil)
-(customize-set-variable 'user-mail-address "steve@sxemacs.org")
+(customize-set-variable 'user-mail-address "steve@steveyoungs.com")
 (setq query-user-mail-address nil)
 (blink-cursor-mode 1)
-(when (featurep 'mule)
-  (set-language-environment "Latin-1"))
-(when (eq 0 (length (shell-command-to-string "ps -U steve|grep gnuserv||false")))
+;; Currently trying to live in a Unicode (UTF-8) world, so this is
+;; off.
+; (when (featurep 'mule)
+;   (set-language-environment "Latin-1"))
+(unless (gnuserv-running-p)
   (gnuserv-start))
 (require 'mozmail)
 
@@ -554,14 +540,14 @@ instead."
 
 (setq
  Info-directory-list
- '("/home/steve/.sxemacs/site-packages/info"
+ '("/home/steve/.local/share/sxemacs/site-packages/info"
    "/usr/share/info"
-   "/usr/share/sxemacs/site-packages/info"
-   "/usr/share/sxemacs/sxemacs-packages/info"
+   ;; "/usr/share/sxemacs/site-packages/info"
+   ;; "/usr/share/sxemacs/sxemacs-packages/info"
    "/usr/share/sxemacs/xemacs-packages/info"
    "/usr/share/sxemacs/mule-packages/info")
  Info-dir-contents-directory
- "/home/steve/.sxemacs/site-packages/info"
+ "/home/steve/.local/share/sxemacs/site-packages/info"
  Info-save-auto-generated-dir 'always)
 
 ;:*=======================
@@ -581,7 +567,7 @@ instead."
 ;:*=======================
 ;:* Google
 (require 'google-query)
-(setq google-query-mirror "www.google.com.au"
+(setq google-query-mirror "https://www.google.com.au"
       google-query-result-count 100)
 (global-set-key [(control f9)] 'google-query)
 (global-set-key [(meta f9)] 'google-query-region)
@@ -861,8 +847,9 @@ Till next time...<br />
 ;; numeric register `n' to zero
 (number-to-register 0 ?n)
 (defalias 'numpoints
-  (read-kbd-macro "2*RET 2*SPC C-x r + n C-x r i n C-f ) SPC"))
+  (read-kbd-macro "2*RET 2*SPC C-x r + n C-x r i n C-e ) SPC"))
 (global-set-key [(control ?c) (control ?n)] #'numpoints)
+(define-key message-mode-map [(hyper ?n)] #'numpoints)
 
 ;:*=======================
 ;:* Do things with environment variables let-bound
@@ -916,3 +903,4 @@ anything about MIME types."
 
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
 (message "miscellaneous initialised")
+