Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

executable file 46 lines (42 sloc) 1.332 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
;;
;; my-setup.el
;;
;; Set up my workspace
;;
;; $Id$
;;

;; Find where I keep my documents. This is an abstraction for windows.
(setq my-documents-dir
      (concat
       (cond
;; Check for ~/My Documents (Windows)
((file-exists-p (concat home directory-sep-string "My Documents"))
(concat home directory-sep-string "My Documents"))
;; Check for ~/Documents (Mac OS)
((file-exists-p (concat home directory-sep-string "Documents"))
(concat home directory-sep-string "Documents"))
;; Fall back to home directory
(t home)
)
       ;; Make sure it ends with directory seperator
       directory-sep-string)
      )

;; Fire off a new frame with windows for Todo, Dates and diary.
;; (if (file-exists-p (concat my-documents-dir "Todo.txt"))
;; (progn
;; (select-frame (make-frame '(height 55)))
;; (find-file (concat my-documents-dir "Todo.txt"))
;; ;;
;; ;; Dates pane
;; ;; (Split at 1/3 total size for 3 panes)
;; (select-window (split-window-vertically (/ (frame-height) 3)))
;; (find-file (concat my-documents-dir "dates.txt"))
;; (select-window (split-window-vertically))
;; ;;
;; ;; Diary pane
;; (require 'vdiary-mode)
;; (find-file (concat my-documents-dir "diary.txt"))
;; )
;; )

(message "Von's setup done")
(provide 'my-setup)
Something went wrong with that request. Please try again.