- ;; org-mode manual suggests these, but I haven't used them.
- ;;(global-set-key "\C-cl" 'org-store-link)
- ;;(global-set-key "\C-ca" 'org-agenda)
- ;; this got in the way of a haskell mode command
- ;;(global-set-key "\C-cb" 'org-iswitchb)
-
-
-
- ;; org-src-tab-acts-natively t ; broken option. using next instead, todo fix
-
- (setq org-src-fontify-natively t ; make babel blocks nice
- org-adapt-indentation nil
- org-src-preserve-indentation t
- ;; The most basic logging is to keep track of when a TODO item was finished.
- org-log-done 'time
- ;; use a drawer to keep the logs tidy
- org-log-into-drawer t
- org-extend-today-until 0
- org-startup-truncated nil
- org-clock-persist t
- org-use-sub-superscripts "{}"
- org-export-with-sub-superscripts nil
- org-clock-mode-line-total 'today
- ;; global STYLE property values for completion
- org-global-properties (quote (("STYLE_ALL" . "habit")))
- org-special-ctrl-a/e t ;; home and end work special in headlines
- org-completion-use-ido t
- org-catch-invisible-edits 'smart)
-
- ;; non universally recommended settings
- (setq
- org-default-notes-file "/a/t.org"
- org-agenda-files (quote ("/a/t.org"))
- org-mobile-directory "/p/org-mobile"
- org-mobile-inbox-for-pull "/p/from-mobile.org"
- org-directory "/p")
-
- ;; modeilne populated from (org-clock-get-clocked-time)
- ;; which is populated from the var org-clock-total-time
- ;; which is populated by a function which starts from (org-clock-get-sum-start)
- ;;
-
- (eval-after-load "org"
- '(org-clock-persistence-insinuate))
-
-
- (defun time-to-org-day (time)
- (round (time-to-number-of-days
- (time-subtract time (list 0 (* 3600 org-extend-today-until) 0)))))
-
-
- (defun my-org-confirm-babel-evaluate (lang body)
- (not (or (string= (buffer-file-name) "/a/t.org")
- (string= (buffer-file-name) "/home/iank/.emacs.d/my-init.org")
- )))
- (setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)
-
-
- (defun org-time-stamp-with-time (arg)
- (interactive "P")
- ;; '(4) is the argument passed by universal prefix
- (org-time-stamp (if arg arg '(4)) t))
-
- (defun ian-org-work-time ()
- (interactive)
- (save-excursion
- (set-buffer "t.org")
- (goto-char (org-find-entry-with-id "ian-identifier-1"))
- (org-clock-in)))
-
- (defun ian-org-idle-time ()
- (interactive)
- (save-excursion
- (goto-char (org-find-entry-with-id "ian-identifier-2"))
- (set-buffer "t.org")
- (org-clock-in)))
-
-
-
- ;; based on http://stackoverflow.com/questions/3758139/variable-pitch-for-org-mode-fixed-pitch-for-tables
- ;; keywords: proportional font, monospace
-
- (defun variable-pitch-on ()
- (variable-pitch-mode 1))
- (add-hook 'fundamental-mode-hook 'variable-pitch-on)
- (add-hook 'org-mode-hook 'variable-pitch-on)
- (add-hook 'text-mode-hook 'variable-pitch-on)
- (defun variable-pitch-off ()
- (variable-pitch-mode 0))
- (add-hook 'yaml-mode-hook 'variable-pitch-off)
-
- (eval-after-load "org" '(my-org-face-init))
-
- (defun my-org-face-init()
- (set-face-attribute 'org-table nil :family (face-attribute 'fixed-pitch :family))
- (set-face-attribute 'org-code nil :family (face-attribute 'fixed-pitch :family))
- (set-face-attribute 'org-formula nil :family (face-attribute 'fixed-pitch :family))
- (set-face-attribute 'org-link nil :family (face-attribute 'fixed-pitch :family))
- (set-face-attribute 'org-block nil :family (face-attribute 'fixed-pitch :family))
- (set-face-attribute 'org-date nil :family (face-attribute 'fixed-pitch :family))
- )
-
- (defun remove-org-binds ()
- (define-key org-mode-map (kbd "<M-return>") nil)
- (define-key org-mode-map (kbd "C-'") nil)
- (define-key org-mode-map (kbd "C-y") nil)
- (define-key org-mode-map (kbd "<C-return>") nil)
- (define-key org-mode-map (kbd "<C-M-kp-enter>") nil)
- (define-key org-mode-map (kbd "C-,") nil)
- (define-key org-mode-map (kbd "C-M-m") nil)
- (define-key org-mode-map (kbd "C-k") nil)
- (define-key org-mode-map (kbd "C-j") nil)
- (define-key org-mode-map (kbd "C-M-i") nil)
- (define-key org-mode-map (kbd "C-M-t") nil)
- (define-key org-mode-map (kbd "M-a") 'nil)
- (define-key org-mode-map (kbd "C-a") nil)
- (define-key org-mode-map (kbd "M-e") nil)
- (define-key org-mode-map (kbd "C-e") nil)
- (define-key org-mode-map (kbd "C-3") nil)
- (define-key org-mode-map (kbd "<M-left>") nil)
- (define-key org-mode-map (kbd "<M-right>") nil)
- (define-key org-mode-map (kbd "<S-return>") nil)
- (define-key org-mode-map (kbd "<tab>") nil)
- (define-key org-mode-map (kbd "<C-S-down>") nil)
- (define-key org-mode-map (kbd "<C-S-up>") nil)
- (define-key org-mode-map (kbd "<S-down>") nil)
- (define-key org-mode-map (kbd "<S-up>") nil)
- (define-key org-mode-map "\t" nil))
- (add-hook 'org-mode-hook 'remove-org-binds)
+;; org-mode manual suggests these, but I haven't used them.
+;;(global-set-key "\C-cl" 'org-store-link)
+;;(global-set-key "\C-ca" 'org-agenda)
+;; this got in the way of a haskell mode command
+;;(global-set-key "\C-cb" 'org-iswitchb)
+
+
+
+;; org-src-tab-acts-natively t ; broken option. using next instead, todo fix
+
+(setq org-src-fontify-natively t ; make babel blocks nice
+ org-adapt-indentation nil
+ org-src-preserve-indentation t
+ ;; The most basic logging is to keep track of when a TODO item was finished.
+ org-log-done 'time
+ ;; use a drawer to keep the logs tidy
+ org-log-into-drawer t
+ org-extend-today-until 0
+ org-startup-truncated nil
+ org-clock-persist t
+ org-use-sub-superscripts "{}"
+ org-export-with-sub-superscripts nil
+ org-clock-mode-line-total 'today
+ ;; global STYLE property values for completion
+ org-global-properties (quote (("STYLE_ALL" . "habit")))
+ org-special-ctrl-a/e t ;; home and end work special in headlines
+ org-completion-use-ido t
+ org-catch-invisible-edits 'smart)
+
+;; non universally recommended settings
+(setq
+ org-default-notes-file "/a/t.org"
+ org-agenda-files (quote ("/a/t.org"))
+ org-mobile-directory "/p/org-mobile"
+ org-mobile-inbox-for-pull "/p/from-mobile.org"
+ org-directory "/p")
+
+;; modeilne populated from (org-clock-get-clocked-time)
+;; which is populated from the var org-clock-total-time
+;; which is populated by a function which starts from (org-clock-get-sum-start)
+;;
+
+(eval-after-load "org"
+ '(org-clock-persistence-insinuate))
+
+
+(defun time-to-org-day (time)
+ (round (time-to-number-of-days
+ (time-subtract time (list 0 (* 3600 org-extend-today-until) 0)))))
+
+
+(defun my-org-confirm-babel-evaluate (lang body)
+ (not (or (string= (buffer-file-name) "/a/t.org")
+ (string= (buffer-file-name) "/home/iank/.emacs.d/my-init.org")
+ )))
+(setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)
+
+
+(defun org-time-stamp-with-time (arg)
+ (interactive "P")
+ ;; '(4) is the argument passed by universal prefix
+ (org-time-stamp (if arg arg '(4)) t))
+
+(defun ian-org-work-time ()
+ (interactive)
+ (save-excursion
+ (set-buffer "t.org")
+ (goto-char (org-find-entry-with-id "ian-identifier-1"))
+ (org-clock-in)))
+
+(defun ian-org-idle-time ()
+ (interactive)
+ (save-excursion
+ (goto-char (org-find-entry-with-id "ian-identifier-2"))
+ (set-buffer "t.org")
+ (org-clock-in)))
+
+
+
+;; based on http://stackoverflow.com/questions/3758139/variable-pitch-for-org-mode-fixed-pitch-for-tables
+;; keywords: proportional font, monospace
+
+(defun variable-pitch-on ()
+ (variable-pitch-mode 1))
+(add-hook 'fundamental-mode-hook 'variable-pitch-on)
+(add-hook 'org-mode-hook 'variable-pitch-on)
+(add-hook 'text-mode-hook 'variable-pitch-on)
+(defun variable-pitch-off ()
+ (variable-pitch-mode 0))
+(add-hook 'yaml-mode-hook 'variable-pitch-off)
+
+(eval-after-load "org" '(my-org-face-init))
+
+(defun my-org-face-init()
+ (set-face-attribute 'org-table nil :family (face-attribute 'fixed-pitch :family))
+ (set-face-attribute 'org-code nil :family (face-attribute 'fixed-pitch :family))
+ (set-face-attribute 'org-formula nil :family (face-attribute 'fixed-pitch :family))
+ (set-face-attribute 'org-link nil :family (face-attribute 'fixed-pitch :family))
+ (set-face-attribute 'org-block nil :family (face-attribute 'fixed-pitch :family))
+ (set-face-attribute 'org-date nil :family (face-attribute 'fixed-pitch :family))
+ )
+
+(defun remove-org-binds ()
+ (define-key org-mode-map (kbd "<M-return>") nil)
+ (define-key org-mode-map (kbd "C-'") nil)
+ (define-key org-mode-map (kbd "C-y") nil)
+ (define-key org-mode-map (kbd "<C-return>") nil)
+ (define-key org-mode-map (kbd "<C-M-kp-enter>") nil)
+ (define-key org-mode-map (kbd "C-,") nil)
+ (define-key org-mode-map (kbd "C-M-m") nil)
+ (define-key org-mode-map (kbd "C-k") nil)
+ (define-key org-mode-map (kbd "C-j") nil)
+ (define-key org-mode-map (kbd "C-M-i") nil)
+ (define-key org-mode-map (kbd "C-M-t") nil)
+ (define-key org-mode-map (kbd "M-a") 'nil)
+ (define-key org-mode-map (kbd "C-a") nil)
+ (define-key org-mode-map (kbd "M-e") nil)
+ (define-key org-mode-map (kbd "C-e") nil)
+ (define-key org-mode-map (kbd "C-3") nil)
+ (define-key org-mode-map (kbd "<M-left>") nil)
+ (define-key org-mode-map (kbd "<M-right>") nil)
+ (define-key org-mode-map (kbd "<S-return>") nil)
+ (define-key org-mode-map (kbd "<tab>") nil)
+ (define-key org-mode-map (kbd "<C-S-down>") nil)
+ (define-key org-mode-map (kbd "<C-S-up>") nil)
+ (define-key org-mode-map (kbd "<S-down>") nil)
+ (define-key org-mode-map (kbd "<S-up>") nil)
+ (define-key org-mode-map "\t" nil))
+(add-hook 'org-mode-hook 'remove-org-binds)