; change the outline mode prefix from C-c @ to C-c C-2
(setq outline-minor-mode-prefix "C-c C-2")
-(add-hook 'outline-minor-mode-hook
- (lambda () (local-set-key (kbd "C-c C-2")
- outline-mode-prefix-map)))
+;(add-hook 'outline-minor-mode-hook
+; (lambda () (local-set-key (kbd "C-c C-2")
+; outline-mode-prefix-map)))
(global-set-key (kbd "<f9> I") 'bh/punch-in)
(global-set-key (kbd "<f9> O") 'bh/punch-out)
-(add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
+; (add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
; add ids on creation of nodes
(add-hook 'org-capture-prepare-finalize-hook 'my/org-add-id)
; create function to create headlines in file. This comes from
;; from Mutt, and that it will shut down emacsclient once finished;
;; fallback to legacy behavior when not invoked via org-protocol.
(require 'org-protocol)
-(add-hook 'org-capture-mode-hook 'delete-other-windows)
+; (add-hook 'org-capture-mode-hook 'delete-other-windows)
(setq my-org-protocol-flag nil)
(defadvice org-capture-finalize (after delete-frame-at-end activate)
"Delete frame at remember finalization"
(not org-clock-resolving-clocks-due-to-idleness))
(bh/clock-in-parent-task)))
-(add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append)
+; (add-hook 'org-clock-out-hook 'bh/clock-out-maybe 'append)
(require 'org-id)
(defun bh/clock-in-task-by-id (id)
(org-clock-in nil))))
+(defun org-export-to-ods ()
+ (interactive)
+ (let ((csv-file "data.csv"))
+ (org-table-export csv-file "orgtbl-to-csv")
+ (org-odt-convert csv-file "ods" 'open)))
+
; allow for zero-width-space to be a break in regexp too
; (setcar org-emphasis-regexp-components " [:space:] \t('\"{")
; (setcar (nthcdr 1 org-emphasis-regexp-components) " [:space:]- \t.,:!?;'\")}\\")
"Screenshot to insert: "
nil
(concat (buffer-file-name) "_" (format-time-string "%Y%m%d_%H%M%S") ".png")
- nil
- nil
)
)
(call-process "import" nil nil nil my/org-insert-screenshot/filename)