* 11-pkgs-sy.el: Don't use override-redirect for mpd frame
when in KDE or Sawfish.
* 16-riece-sy.el: biff only on #sxemacs, #emchat, #xemacs
Set colours much closer to mirc colours.
Update list of riece-keywords.
Ditto, riece-server-alist.
Only set iso-8859-1 in #sxemacs and #emchat.
(sy-riece-command-memoserv): Fix use of #'riece-command-join.
(sy-riece-command-chanserv): Ditto.
(sy-riece-command-nickserv): Ditto.
(sy-riece-command-seenserv): Ditto.
(sy-riece-startup-channel-list): Update list of channels I like to
join on startup.
(sy-riece-login): ID to my bot.
(sy-riece-cleanup-login): Simplify.
* 17-emchat-sy.el: Don't use override-redirect on the wharf
frame if in KDE or Sawfish.
Signed-off-by: Steve Youngs <steve@sxemacs.org>
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
-;; Time-stamp: <Friday Aug 16, 2013 13:27:27 steve>
+;; Time-stamp: <Monday Mar 10, 2014 13:51:18 steve>
;; Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
;; HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/11-pkgs-sy.html>
;; Git Repo: git clone http://git.sxemacs.org/syinit
;; Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
;; HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/11-pkgs-sy.html>
;; Git Repo: git clone http://git.sxemacs.org/syinit
(global-set-key [XF86AudioMute] #'mpd-volume-mute/unmute)
;; Mpd frame props
(global-set-key [XF86AudioMute] #'mpd-volume-mute/unmute)
;; Mpd frame props
-(push (cons 'override-redirect t) mpd-dock-frame-plist)
+(unless (or (string= (getenv "KDE_FULL_SESSION") "true")
+ (string= (getenv "SAWFISH_IS_RUNNING") "true"))
+ (push (cons 'override-redirect t) mpd-dock-frame-plist))
(push (cons 'left 1780) mpd-dock-frame-plist)
(push (cons 'top 5) mpd-dock-frame-plist)
(push (cons 'internal-border-width 4) mpd-dock-frame-plist)
(push (cons 'left 1780) mpd-dock-frame-plist)
(push (cons 'top 5) mpd-dock-frame-plist)
(push (cons 'internal-border-width 4) mpd-dock-frame-plist)
;:*=======================
;:* Shell-script
;:*=======================
;:* Shell-script
-(setq sh-basic-offset 8)
+(setq sh-basic-offset 4)
;:*======================
;:* Compile-Mode
;:*======================
;:* Compile-Mode
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
;; 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: <Sunday May 10, 2015 17:02:04 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
;; 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
;; Pack and Unpack tarballs
(require 'dired-tar)
;; 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 ()
;; FFI/libWand for image files in Dired
(defun sy-dired-wand ()
(setq
emoney-bank-url "https://internetbanking.suncorpbank.com.au/"
emoney-date-format "%Y-%m-%d"
(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)
emoney-recalculate-on-quit t
emoney-save-after-recalculate t
emoney-use-new-frame t)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;(customize-set-variable 'gutter-buffers-tab-visible-p nil)
(setq gutter-buffers-tab-enabled 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"))
(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)
(gnuserv-start))
(require 'mozmail)
(setq
Info-directory-list
(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
"/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)
;:*=======================
Info-save-auto-generated-dir 'always)
;:*=======================
;:*=======================
;:* Google
(require 'google-query)
;:*=======================
;:* 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)
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
;; 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)
(global-set-key [(control ?c) (control ?n)] #'numpoints)
+(define-key message-mode-map [(hyper ?n)] #'numpoints)
;:*=======================
;:* Do things with environment variables let-bound
;:*=======================
;:* Do things with environment variables let-bound
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
-;; Time-stamp: <Monday Aug 19, 2013 17:32:20 steve>
+;; Time-stamp: <Friday May 15, 2015 21:44:46 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
;; 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
;; Misc setq's
(setq riece-alias-percent-hack-mask "*.net"
riece-biff-check-channels '("#sxemacs"
;; Misc setq's
(setq riece-alias-percent-hack-mask "*.net"
riece-biff-check-channels '("#sxemacs"
- ;"#harmattan"
- ;"#meego"
- ;"#n9"
"#xemacs")
riece-channel-buffer-mode t
"#xemacs")
riece-channel-buffer-mode t
+ riece-ctlseq-colors
+ '("white" "black" "blue" "green" "red" "brown"
+ "purple" "orange" "yellow" "lightgreen" "darkcyan"
+ "cyan" "lightblue" "HotPink" "grey35" "grey")
riece-default-channel-binding nil
riece-default-coding-system 'binary
riece-default-channel-binding nil
riece-default-coding-system 'binary
+ riece-desktop-notify-always t
riece-gather-channel-modes t
riece-gather-channel-modes t
+ riece-hide-list '(joins parts quits)
riece-ignore-discard-message nil
riece-ignore-discard-message nil
- riece-keywords '("JackaLX" "jackalx" "Eicq" "eicq" "EMchat" "emchat"
- "SXEmacs" "sxemacs" "XWEM" "xwem" "XLIB" "xlib" "tla"
- "arch" "xtla" "XEtla" "xetla" "eMoney" "emoney"
- "JackaLX_N9" "jackalx_n9")
+ riece-keywords
+ '("Bastard" "EMchat" "eMoney" "Gnus" "LFS" "LinuxFromScratch"
+ "Linux From Scratch" "PgSQL" "PostgreSQL" "postgres" "Riece"
+ "SteveYoungs" "SXEmacs" "XEmacs" "systemd" "xwem")
riece-layout '"bottom-right"
riece-retry-with-new-nickname t
riece-server-alist
'(("irc.sxemacs.org" :host "irc.sxemacs.org")
riece-layout '"bottom-right"
riece-retry-with-new-nickname t
riece-server-alist
'(("irc.sxemacs.org" :host "irc.sxemacs.org")
- ("irc.au.freenode.net" :host "irc.au.freenode.net")
- ("azimov.freenode.net" :host "azimov.freenode.net")
- ("brin.freenode.net" :host "brin.freenode.net")
- ("irc.freenode.org" :host "irc.freenode.org")
("irc.freenode.net" :host "irc.freenode.net")
("irc.freenode.net" :host "irc.freenode.net")
- ("kornbluth.freenode.net" :host "kornbluth.freenode.net")
- ("orwell.freenode.net" :host "orwell.freenode.net")
- ("calvino.freenode.net" :host "calvino.freenode.net")
- ("wells.freenode.net" :host "wells.freenode.net")
- ("zelazny.freenode.net" :host "zelazny.freenode.net")
- ("anthony.freenode.net" :host "anthony.freenode.net")
+ ("irc.au.freenode.net" :host "irc.au.freenode.net")
("irc.nac.net" :host "irc.nac.net")
("irc.efnet.org" :host "irc.efnet.org")
("irc.efnet.net" :host "irc.efnet.net"))
("irc.nac.net" :host "irc.nac.net")
("irc.efnet.org" :host "irc.efnet.org")
("irc.efnet.net" :host "irc.efnet.net"))
With prefix arg, also /join."
(interactive "sMemoserv: ")
(when current-prefix-arg
With prefix arg, also /join."
(interactive "sMemoserv: ")
(when current-prefix-arg
- (riece-command-join ["MemoServ" ""]))
+ (riece-command-join (list ["MemoServ" ""])))
(riece-send-string (format "MEMOSERV %s\r\n" command)))
(defun sy-riece-command-chanserv (command)
(riece-send-string (format "MEMOSERV %s\r\n" command)))
(defun sy-riece-command-chanserv (command)
With prefix arg, also /join."
(interactive "sChanserv: ")
(when current-prefix-arg
With prefix arg, also /join."
(interactive "sChanserv: ")
(when current-prefix-arg
- (riece-command-join ["ChanServ" ""]))
+ (riece-command-join (list ["ChanServ" ""])))
(riece-send-string (format "CHANSERV %s\r\n" command)))
(defun sy-riece-command-nickserv (command)
(riece-send-string (format "CHANSERV %s\r\n" command)))
(defun sy-riece-command-nickserv (command)
With prefix arg, also /join."
(interactive "sNickserv: ")
(when current-prefix-arg
With prefix arg, also /join."
(interactive "sNickserv: ")
(when current-prefix-arg
- (riece-command-join ["NickServ" ""]))
+ (riece-command-join (list ["NickServ" ""])))
(riece-send-string (format "NICKSERV %s\r\n" command)))
(riece-send-string (format "NICKSERV %s\r\n" command)))
+;; Seems to not exist anymore. :-(
(defun sy-riece-command-seenserv (command)
"Send COMMAND, a string, to SEENSERV.
(defun sy-riece-command-seenserv (command)
"Send COMMAND, a string, to SEENSERV.
+SeenServ doesn't actually exist anymore, so this sends `info nick' to
+NickServ which gives us the same info.
+
With prefix arg, also /join."
With prefix arg, also /join."
- (interactive "sSeenserv: ")
+ (interactive "sLast saw who (nick): ")
- (riece-command-join ["SeenServ" ""]))
- (riece-send-string (format "SEENSERV %s\r\n" command)))
+ (riece-command-join (list ["NickServ" ""])))
+ (riece-send-string (format "NICKSERV info %s\r\n" command)))
(defun sy-riece-command-quick-op ()
"Request Ops from ChanServ in the current channel."
(defun sy-riece-command-quick-op ()
"Request Ops from ChanServ in the current channel."
(defvar sy-riece-startup-channel-list
'("#sxemacs"
"#emchat"
(defvar sy-riece-startup-channel-list
'("#sxemacs"
"#emchat"
- ;"#xwem"
- ;"#fresse"
- ;"#xemacs"
- "#harmattan"
- "#meego"
- "#n9"
- ;"#e"
- ;"#pulseaudio"
- ;"#latex"
- ;"#iptables"
- ;"#netfilter"
- ;"##c"
- ;"##kernel"
- ;"#linux-kernel"
- ;"#glibc"
- ;"#gcc"
- ;"#zsh"
+ ;"#avahi"
+ "#systemd"
+ ; No kdbus chan "#kdbus"
+ "#zsh"
)
"List of channels to join after logging in and identifying to nickserv.")
)
"List of channels to join after logging in and identifying to nickserv.")
;; hate this crap? --SY.
(mapcar
#'(lambda (chan)
;; hate this crap? --SY.
(mapcar
#'(lambda (chan)
- (if (string-match #r"#\(sxemacs\|e\(mchat\|icq\)\|xwem\|fresse\)" chan)
+ (if (string-match #r"#\(sxemacs\|emchat\)" chan)
(push (cons chan 'iso-8859-1) riece-channel-coding-system-alist)
(push (cons chan 'utf-8) riece-channel-coding-system-alist)))
sy-riece-startup-channel-list)
(push (cons chan 'iso-8859-1) riece-channel-coding-system-alist)
(push (cons chan 'utf-8) riece-channel-coding-system-alist)))
sy-riece-startup-channel-list)
(riece-command-join-channel identity (nth 1 entry)))
(setq channel-list (cdr channel-list))))
(riece-send-string "PRIVMSG ChanServ :op #sxemacs\r\n")
(riece-command-join-channel identity (nth 1 entry)))
(setq channel-list (cdr channel-list))))
(riece-send-string "PRIVMSG ChanServ :op #sxemacs\r\n")
- (riece-send-string "PRIVMSG ChanServ :op #emchat\r\n"))
- ;(riece-send-string "PRIVMSG ChanServ :op #xwem\r\n")
- ;(riece-send-string "PRIVMSG ChanServ :op #fresse\r\n")
- ;(riece-send-string "PRIVMSG ChanServ :op #xemacs\r\n"))
+ (riece-send-string "PRIVMSG ChanServ :op #emchat\r\n")
+ (riece-send-string "PRIVMSG ChanServ :op #xemacs\r\n")
+ (riece-send-string
+ (format "PRIVMSG SXEbot :identify SteveYoungs %s\r\n"
+ (getenv "BOTPASSWD"))))
(add-hook 'riece-after-login-hook #'sy-riece-login)
(add-hook 'riece-after-login-hook #'sy-riece-login)
;; running to completion) I use this to finish the job
(defun sy-riece-cleanup-login ()
(interactive)
;; running to completion) I use this to finish the job
(defun sy-riece-cleanup-login ()
(interactive)
- (riece-command-switch-to-channel-by-number 2)
- (riece-part-channel riece-current-channel)
- ;(riece-part-channel ["MemoServ" ""])
- (riece-part-channel ["ChanServ" ""])
- (riece-part-channel ["NickServ" ""])
- (sy-riece-relist-chans-clear-blanks)
- (riece-command-switch-to-channel-by-number 1))
-
+ (let ((metachans
+ #r".*\.freenode\.net\|\(Chan\|Nick\|Memo\|Seen\)Serv\|SXEbot"))
+ (mapcar
+ #'(lambda (chan-vect)
+ (mapcar
+ #'(lambda (chan)
+ (and (string-match metachans chan)
+ (riece-part-channel chan-vect)))
+ chan-vect))
+ riece-current-channels)
+ (sy-riece-relist-chans-clear-blanks)
+ (riece-command-switch-to-channel-by-number 1)))
+
+;; CANNOT get this to work from the hook. I suspect it is a
+;; networking/async/timing thing. I have it bound to a key
+;; seq... `C-c C-c l', a PITA though.
;(add-hook 'riece-after-login-hook #'sy-riece-cleanup-login 'append)
;(add-hook 'riece-after-login-hook #'sy-riece-cleanup-login 'append)
(define-key riece-command-map (kbd "C-c l") 'sy-riece-cleanup-login)
;; Automatically clear Riece Biff indicator by switching to the right
(define-key riece-command-map (kbd "C-c l") 'sy-riece-cleanup-login)
;; Automatically clear Riece Biff indicator by switching to the right
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
-;; Time-stamp: <Thursday Aug 22, 2013 23:56:57 steve>
+;; Time-stamp: <Friday Apr 10, 2015 17:22:11 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
;; 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
emchat-emphasis-enabled-flag t
emchat-history-enabled-flag t
emchat-log-fill-column 72
emchat-emphasis-enabled-flag t
emchat-history-enabled-flag t
emchat-log-fill-column 72
+ emchat-port 5190
+ emchat-server "login.icq.com"
emchat-smiley t
emchat-track-enable t
emchat-track-indicator-type 'char
emchat-smiley t
emchat-track-enable t
emchat-track-indicator-type 'char
(push (cons 'internal-border-width 4) emchat-wharf-frame-props)
;; `override-redirect' means no WM decorations, and you also get
;; sticky and always on top and skip pagers and task lists etc.
(push (cons 'internal-border-width 4) emchat-wharf-frame-props)
;; `override-redirect' means no WM decorations, and you also get
;; sticky and always on top and skip pagers and task lists etc.
- (push (cons 'override-redirect t) emchat-wharf-frame-props)
+ ;; The downside is that often new windows will appear underneath
+ ;; because the WM/DE has no knowledge of its existence. I don't
+ ;; use this in KDE because you can easily get the same effect
+ ;; without the downside with KDE's "Window Rules". I also don't
+ ;; use this in Sawfish for similar reasons.
+ (unless (or (string= (getenv "KDE_FULL_SESSION") "true")
+ (string= (getenv "SAWFISH_IS_RUNNING") "true"))
+ (push (cons 'override-redirect t) emchat-wharf-frame-props))
(push (cons 'border-width 1) emchat-wharf-frame-props)
(push (cons 'border-color "red") emchat-wharf-frame-props)
(add-hook 'emchat-new-message-hook #'emchat-wharf-inc-messages)
(push (cons 'border-width 1) emchat-wharf-frame-props)
(push (cons 'border-color "red") emchat-wharf-frame-props)
(add-hook 'emchat-new-message-hook #'emchat-wharf-inc-messages)
+;(setq debug-on-error t)
;(setq debug-on-signal t)
;(setq stack-trace-on-signal t)
;(setq debug-on-signal t)
;(setq stack-trace-on-signal t)