From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 8 Dec 2015 19:00:52 +0000 (-0600)
Subject: remove some hooks and add export ot ods
X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=ac4309ee32678f6ab90dfaa8e1b702d8320ab32b

remove some hooks and add export ot ods
---

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index b50bb3f..0a905f8 100644
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -187,9 +187,9 @@
 
 ; 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)
@@ -269,7 +269,7 @@
 
 
 
-(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
@@ -330,7 +330,7 @@ do not already have one."
 ;; 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"
@@ -943,7 +943,7 @@ as the default task."
              (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)
@@ -970,6 +970,12 @@ A prefix arg forces clock in of the default task."
       (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.,:!?;'\")}\\")
@@ -986,8 +992,6 @@ same directory as the org-buffer and insert a link to this file."
          "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)