remove some hooks and add export ot ods

[lib.git] / emacs_el / configuration / org-mode-configuration.el

diff --git a/emacs_el/configuration/org-mode-configuration.el b/emacs_el/configuration/org-mode-configuration.el
index 6ec0bef3e19d4350e0999b62167ac405ee16d4e9..0a905f889bb36f5a6c9e6edf9c60747ab845e1ce 100644 (file)
--- a/emacs_el/configuration/org-mode-configuration.el
+++ b/emacs_el/configuration/org-mode-configuration.el
@@ -5,6 +5,10 @@
 ;; The following lines are always needed. Choose your own keys.
 (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
 (require 'org)
+(require 'org-agenda)
+(require 'org-habit)
+(eval-when-compile
+  (require 'cl))
 (global-set-key "\C-cl" 'org-store-link)
 (global-set-key "\C-ca" 'org-agenda)
 (global-set-key "\C-cb" 'org-iswitchb)
@@ -142,9 +146,9 @@
         ("p" "Phone call" entry (file "~/projects/org-notes/refile.org")
          "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
         ("J" "job" entry (file "~/projects/org-notes/refile.org")
-         "* TODO Apply for %a%? :job:\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a 17:00-17:30>\")\n%U\n" :clock-in t :clock-resume t)
+         "* TODO Apply for %a%? :job:\nSCHEDULED: %(format-time-string \"<%Y-%m-%d 17:00-17:30>\")\n%U\n%a\n" :clock-in t :clock-resume t)
         ("h" "Habit" entry (file "~/projects/org-notes/refile.org")
-         "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d %a .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n")
+         "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n%a\n")
         )
       )
 
@@ -183,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)
@@ -265,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
@@ -326,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"
@@ -939,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)
@@ -966,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.,:!?;'\")}\\")
@@ -982,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)