[Planner/Bookmark/Thumbs
clinton@unknownlamer.org**20070118015334
 Added bookmarks integration (save bookmarks daily)
 Cleaned up frame creation functions and added wide php frames
 Made muse mode more usable on the command line
 Integrated w3m/bibtex tasks in planner
 Do not load thumbs on the console to avoid startup error
] {
addfile ./init.d/bookmarks.el
hunk ./init.d/bookmarks.el 1
-
+(add-hook 'midnight-hook #'bookmark-save)
hunk ./init.d/frame.el 8
+(defvar cke-frame-height 70
+  "Height of frames in my emacs")
+
+(defvar cke-frame-width 81
+  "Width of frames in my emacs")
+
+(defvar cke-initial-frame-width (* 86 2)
+  "Width of first emacs frame")
+
hunk ./init.d/frame.el 30
+(defun cke-make-frame ()
+  "Creates a frame controlled by cke-frame-height and cke-initial-frame-width"
+  (let ((f (make-frame)))
+    (cond ((eq (framep f) 'x)
+	   (set-frame-height f cke-frame-height)
+	   (set-frame-width  f cke-frame-width)
+	   (split-window (frame-first-window f)))
+	  ((eq (framep f) 't)
+	   (set-face-attribute 'default f
+			       :background "black")))
+    f))
+
+(defun cke-make-php-frame ()
+  "Creates a 120 character wide frame for viewing/editing wide php"
+  (let ((cke-frame-width 121))
+    (cke-make-frame)))
+
hunk ./init.d/frame.el 51
-		    (let ((f (make-frame)))
-		      (cond ((eq (framep f) 'x)
-			     (set-frame-height f cke-frame-height)
-			     (split-window (frame-first-window f)))
-			    ((eq (framep f) 't)
-			     (set-face-attribute 'default f
-						 :background "black"))))))
+		    (cke-make-frame)))
+
+(global-set-key [?\C-x ?5 ?@]
+		#'(lambda ()
+		    (interactive)
+		    (cke-make-php-frame)))
hunk ./init.d/muse.el 34
+
+;;; Local Keybindings
+(define-key muse-mode-map [?\C-j] #'muse-insert-list-item)
hunk ./init.d/planner-cke.el 8
-(global-set-key [?\C-c ?r] #'remember)
+(global-set-key [?\C-c ?r]    #'remember)
hunk ./init.d/planner-cke.el 14
+;;; Extra task interfaces
+(require 'planner-w3m)
+(require 'planner-bibtex)
+
hunk ./init.d/planner-cke.el 25
+(define-key planner-mode-map [?\C-c ?d] #'planner-deadline-change)
hunk ./init.d/planner-cke.el 36
+(planner-calendar-insinuate)
+
hunk ./init.d/thumbs.el 1
-(require 'thumbs)
+(if window-system
+    (require 'thumbs))
}