X-Git-Url: http://cgit.sxemacs.org/?p=syinit;a=blobdiff_plain;f=13-misc-sy.el;h=34e5b6c01283d3770d9e74800a7e648a970fc76c;hp=a304eb99c68ae71f85b6de089fd67741d49ace7a;hb=ed1a7901aeb705a91ba23189906440038d30c092;hpb=d5d7ee417b155ae84a3ba86e537e7fdff8c3765e diff --git a/13-misc-sy.el b/13-misc-sy.el index a304eb9..34e5b6c 100644 --- a/13-misc-sy.el +++ b/13-misc-sy.el @@ -1,11 +1,11 @@ ;; 13-misc-sy.el --- Miscellaneous Settings -*- Emacs-Lisp -*- -;; Copyright (C) 2007 - 2012 Steve Youngs +;; Copyright (C) 2007 - 2013 Steve Youngs ;; Author: Steve Youngs ;; Maintainer: Steve Youngs ;; Created: <2007-12-02> -;; Time-stamp: +;; Time-stamp: ;; Download: ;; HTMLised: ;; Git Repo: git clone http://git.sxemacs.org/syinit @@ -122,9 +122,7 @@ instead." (setq frame-title-format (concat "-={%b}=- " (construct-emacs-version-name) - (if (featurep 'mule) - " (Mule) [" - " (non-Mule) [") + " [" (and-boundp 'sxemacs-codename sxemacs-codename) "]")) @@ -217,7 +215,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 () @@ -379,11 +377,11 @@ instead." ("^/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. @@ -446,7 +444,7 @@ instead." ;:* Set the frame geometry (unless (getenv "XWEM_RUNNING") (setq initial-frame-plist '(top 23 left 26 width 95 height 40) - default-frame-plist '(top 3 left 26 width 95 height 40))) + default-frame-plist '(top 3 left 26 width 95 height 40 name "SXEFrame"))) ;:*====================== ;:* The Beginnings of a Finance package @@ -454,7 +452,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) @@ -507,35 +505,13 @@ instead." ;:*====================== ;:* 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 @@ -552,12 +528,12 @@ 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"))) +(unless (gnuserv-running-p) (gnuserv-start)) (require 'mozmail) @@ -578,14 +554,14 @@ instead." (setq Info-directory-list - '("/home/steve/.sxemacs/site-packages/info" + '("/home/steve/.config/sxemacs/site-packages/info" "/usr/share/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/.config/sxemacs/site-packages/info" Info-save-auto-generated-dir 'always) ;:*======================= @@ -605,7 +581,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) @@ -885,8 +861,9 @@ Till next time...
;; 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 @@ -936,8 +913,7 @@ anything about MIME types." (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")