Updates in calendar, howm, emchat
authorSteve Youngs <steve@sxemacs.org>
Fri, 29 Jun 2012 07:00:58 +0000 (17:00 +1000)
committerSteve Youngs <steve@sxemacs.org>
Fri, 29 Jun 2012 07:00:58 +0000 (17:00 +1000)
* 11-pkgs-sy.el: Re-enable #'vc-load-vc-hooks as Tramp has been
fixed.

* 11-pkgs-sy.el (howm-menu-mode-map): Bind backspace to #'scroll-down

* 11-pkgs-sy.el (riffle-summary-mode-map): Remove C-h binding,
replace with del and backspace.

* 11-pkgs-sy.el (riffle-contents-mode-map): Ditto.

* 11-pkgs-sy.el: Add a binding for #'howm-list-active-todo `C-c t'

* 11-pkgs-sy.el (howm-list-todo): Advice it to save win config to
a register so it can be restored properly on exit.

* 11-pkgs-sy.el (howm-list-active-todo): Ditto.

* 12-cal-sy.el: Disable the todo stuff because I'm trying to get
used to using Howm for todo's

* 12-cal-sy.el (sy-update-diary-font-lock-keywords): Just set the
keywords, don't run #'font-lock-fontify-buffer on anything.

* 17-emchat-sy.el: Set a PulseAudio role for the audio device.
Set it to "phone".

Signed-off-by: Steve Youngs <steve@sxemacs.org>
11-pkgs-sy.el
12-cal-sy.el
17-emchat-sy.el

index 213df9a..08e0e27 100644 (file)
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Saturday Jun 23, 2012 13:01:42 steve>
+;; Time-stamp: <Friday Jun 29, 2012 16:36:51 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
 
 ;:*======================
 ;:* Version Control
-;(vc-load-vc-hooks)  ; currently not playing nice with Tramp
+(vc-load-vc-hooks)
 (setq
  vc-handled-backends '(Arch SVN GIT CVS MCVS RCS)
  vc-follow-symlinks t)
 ;; winmgr-mode uses, so nuke winmgr-mode from auto-mode-alist
 (remove-alist 'auto-mode-alist "\\.[^/]*wm2?\\(?:rc\\)?\\'")
 
-;; The howm people are stupid, they bind C-h to scroll-down in the howm
-;; menu.  Get rid of it and replace with DEL
+;; The howm people are stupid, they bind C-h to scroll-down
+;; Get rid of it and replace with DEL and BACKSPACE
 (define-key howm-menu-mode-map "\C-h" nil)
-(define-key howm-menu-mode-map [delete] 'scroll-down)
+(define-key howm-menu-mode-map [delete] #'scroll-down)
+(define-key howm-menu-mode-map [backspace] #'scroll-down)
+(define-key riffle-summary-mode-map "\C-h" nil)
+(define-key riffle-summary-mode-map [delete] #'scroll-other-window-down)
+(define-key riffle-summary-mode-map [backspace] #'scroll-other-window-down)
+(define-key riffle-contents-mode-map "\C-h" nil)
+(define-key riffle-contents-mode-map [delete] #'scroll-down)
+(define-key riffle-contents-mode-map [backspace] #'scroll-down)
+
+;; Add a binding to show the active todo list
+(global-set-key [(control ?c) ?t] #'howm-list-active-todo)
 
 ;; Another problem with howm... it fucks up window configuration
 (defadvice howm-keyword-search (before howm-save-kw (&rest args) activate)
   "Save window configuration before viewing howm buffers."
   (window-configuration-to-register ?h))
 
+(defadvice howm-list-todo (before howm-save-win (&rest args) activate)
+  "Save window configuration before viewing howm buffers."
+  (window-configuration-to-register ?h))
+
+(defadvice howm-list-active-todo (before howm-save-win (&rest args) activate)
+  "Save window configuration before viewing howm buffers."
+  (window-configuration-to-register ?h))
+
 (defadvice riffle-kill-buffer (after howm-restore-win (&rest args) activate)
   "Restore the original window configuration."
   (jump-to-register ?h))
index 892f025..93a798c 100644 (file)
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Sunday Jun 10, 2012 10:58:53 steve>
+;; Time-stamp: <Friday Jun 29, 2012 16:25:18 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
 
 ;:*=======================
 ;:* Todo
-(autoload 'todo-mode "todo-mode"
-  "Major mode for editing TODO lists." t)
-(autoload 'todo-show "todo-mode"
-  "Show TODO items." t)
-(autoload 'todo-insert-item "todo-mode"
-  "Add TODO item." t)
-(global-set-key "\C-ct" 'todo-show) ;; switch to TODO buffer
-(global-set-key "\C-cn" 'todo-insert-item) ;; insert new item
-(setq
- todo-prefix "&%%(todo-cp)"
- todo-file-do (expand-file-name ".todo-do" (getenv "HOME"))
- todo-file-done (expand-file-name ".todo-done" (getenv "HOME"))
- todo-file-top (expand-file-name ".todo-top" (getenv "HOME"))
- todo-time-string-format "%3b, %d")
+;; Turning this off for a while to see if I can get used to using Howm
+;; more.
+;;(autoload 'todo-mode "todo-mode"
+;;  "Major mode for editing TODO lists." t)
+;;(autoload 'todo-show "todo-mode"
+;;  "Show TODO items." t)
+;;(autoload 'todo-insert-item "todo-mode"
+;;  "Add TODO item." t)
+;;(global-set-key "\C-ct" 'todo-show) ;; switch to TODO buffer
+;;(global-set-key "\C-cn" 'todo-insert-item) ;; insert new item
+;;(setq
+;; todo-prefix "&%%(todo-cp)"
+;; todo-file-do (expand-file-name ".todo-do" (getenv "HOME"))
+;; todo-file-done (expand-file-name ".todo-done" (getenv "HOME"))
+;; todo-file-top (expand-file-name ".todo-top" (getenv "HOME"))
+;; todo-time-string-format "%3b, %d")
 
 ;:*=======================
 ;:* Fancy Diary with perdy colours!
@@ -146,8 +148,9 @@ for a fontified Diary buffer."
 (defun sy-update-diary-font-lock-keywords ()
   (sit-for 1.1)
   (setq fancy-diary-font-lock-keywords (fancy-diary-font-lock-keywords))
-  (with-current-buffer (get-buffer-create fancy-diary-buffer)
-    (font-lock-fontify-buffer)))
+  ;(with-current-buffer (get-buffer-create fancy-diary-buffer)
+  ;  (font-lock-fontify-buffer))
+  )
 
 (run-at-time "23:59:59" 86400 'sy-update-diary-font-lock-keywords)
 
index da059c7..9aa0726 100644 (file)
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Tuesday Jun 19, 2012 17:08:12 steve>
+;; Time-stamp: <Monday Jun 25, 2012 13:53:34 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
        ;; Pulseaudio is CRAP!!
        (make-audio-device 'pulse
                           :client "SXEmacs::EMchat"
-                          :stream "EMchat::Stream"))
+                          :stream "EMchat::Stream"
+                          :role "phone"))
   ;; SXEmacs doesn't like current ffmpeg
   (setq emchat-media-driver 'sox)
   (setq emchat-sound-alist