;; 13-misc-sy.el --- Miscellaneous Settings -*- Emacs-Lisp -*-
-;; Copyright (C) 2007 - 2012 Steve Youngs
+;; Copyright (C) 2007 - 2013 Steve Youngs
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
-;; Time-stamp: <Wednesday Jan 30, 2013 16:46:37 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
;;; Todo:
;;
;;
-
;;; Code:
;:*=======================
;:* Why type 'y e s RET' or 'n o RET' when 'y' or 'n' will do.
(setq frame-title-format
(concat "-={%b}=- "
(construct-emacs-version-name)
- (if (featurep 'mule)
- " (Mule) ["
- " (non-Mule) [")
+ " ["
(and-boundp 'sxemacs-codename
sxemacs-codename)
"]"))
;; 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 ()
(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)
("^/instpkg" . ,(concat (car emacs-roots)
"share/sxemacs"))
("^/prog" . "~/programming")
- ("^/linux" . "/usr/src/linux")
+ ("^/linux" . "/usr/src/kernel/linux")
("^/src" . "/usr/src")
- ("^/sexy" . "~/programming/SXEmacs")
- ("^/sexycore" . "~/programming/SXEmacs/core")
- ("^/sexyweb" . "~/programming/SXEmacs/web")))
+ ("^/sxe" . "/home/steve/programming/SXEmacs")
+ ("^/core" . "/home/steve/programming/SXEmacs/core/sxemacs.git")
+ ("^/web" . "/home/steve/programming/SXEmacs/web/website")))
;:*======================
;:* The beginnings of procmail-mode.el.
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"
))
(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)
;:*======================
;:* Misc Stuff that I haven't yet put anywhere permanent
+;;
+;; I used to have my browse-url setting here, but because of xdg that
+;; really isn't necessary anymore.
(setq
abbrev-mode t
allow-deletion-of-last-visible-frame t
bookmark-save-flag 1
- ;;; Mozilla
- ;; browse-url-browser-function #'browse-url-mozilla
- ;; browse-url-new-window-flag t
- ;; browse-url-mozilla-new-window-is-tab t
- ;;; Firefox
- ;; browse-url-browser-function #'browse-url-firefox
- ;; browse-url-new-window-flag t
- ;; browse-url-firefox-new-window-is-tab t
- ;;; Conkeror
- ;; browse-url-browser-function #'browse-url-firefox
- ;; browse-url-new-window-flag t
- ;; browse-url-firefox-new-window-is-tab t
- ;;; SeaMonkey
- ;; browse-url-browser-function #'browse-url-seamonkey
- ;; browse-url-new-window-flag t
- ;; browse-url-seamonkey-new-window-is-tab t
- ;;; Midori
- ;; browse-url-generic-program "midori"
- ;; browse-url-browser-function #'browse-url-generic
- ;;; Google Chrome
- browse-url-generic-program "google-chrome"
- browse-url-browser-function #'browse-url-generic
- browse-url-netscape-version 7
- browse-url-save-file t
- ;; browse-url-xterm-program "xterm"
complex-buffers-menu-p t
etalk-process-file "talk"
find-function-source-path nil
(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)
(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)
;:*=======================
;:*=======================
;:* 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)
;; 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
(and oldfile (rename-file file oldfile))))
(run-hooks 'browse-url-of-file-hook))
-(when (equal browse-url-generic-program "google-chrome")
- (fset #'browse-url-of-file #'sy-browse-url-of-file))
+(fset #'browse-url-of-file #'sy-browse-url-of-file)
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
(message "miscellaneous initialised")
+
projects / syinit / blobdiff