hwmigration help
authorJoerg Jaspert <joerg@ganneff.de>
Fri, 13 Sep 2013 14:42:37 +0000 (16:42 +0200)
committerJoerg Jaspert <joerg@ganneff.de>
Fri, 13 Sep 2013 14:42:37 +0000 (16:42 +0200)
.emacs.d/config/emacs.org
.emacs.d/elisp/local/ganneff-org.el

index 675feb4..83d8511 100644 (file)
@@ -1487,6 +1487,8 @@ And now a largish set of keybindings...
 (global-set-key (kbd "<f9> u")    'bh/narrow-up-one-level)
 (global-set-key (kbd "<f9> I")    'bh/punch-in)
 (global-set-key (kbd "<f9> O")    'bh/punch-out)
+(global-set-key (kbd "<f9> H")    'jj/punch-in-hw)
+(global-set-key (kbd "<f9> W")    'jj/punch-out-hw)
 (global-set-key (kbd "<f9> o")    'bh/make-org-scratch)
 (global-set-key (kbd "<f9> p")    'bh/phone-call)
 (global-set-key (kbd "<f9> r")    'boxquote-region)
@@ -1504,7 +1506,7 @@ And now a largish set of keybindings...
 (global-set-key (kbd "C-<f11>")   'org-clock-in)
 (global-set-key (kbd "C-M-r")     'org-capture)
 (global-set-key (kbd "C-c r")     'org-capture)
-(global-set-key (kbd "C-s-<f12>") 'bh/save-then-publish)
+(global-set-key (kbd "C-S-<f12>") 'bh/save-then-publish)
 
 (define-key org-mode-map [(control k)] 'jj-org-kill-line)
 #+END_SRC
index 8ff4bb1..5d851e2 100644 (file)
@@ -790,7 +790,17 @@ so change the default 'F' binding in the agenda to allow both"
   (let ((org-icalendar-verify-function 'mycal-export-limit))
     (org-icalendar-combine-agenda-files)))
 
+;;;###autoload
+(defun jj/punch-in-hw (arg)
+  "Start clocking the hwmigration task"
+  (interactive "p")
+  (setq bh/keep-clock-running t)
+  (org-with-point-at (org-id-find "a46a4d6d-b4c9-4a4c-bfaf-81586be451da" 'marker)
+    (org-clock-in '(16))))
 
+(defun jj/punch-out-hw ()
+  (interactive)
+  (bh/clock-in-organization-task-as-default))