From b4cbe4d2b0e0d90f9f54dc33b97a73dc620fff81 Mon Sep 17 00:00:00 2001
From: ndwarshuis <natedwarshuis@gmail.com>
Date: Thu, 25 Apr 2019 11:51:41 -0400
Subject: [PATCH] added primitive taskjuggler support

---
 conf.org | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 56 insertions(+), 4 deletions(-)

diff --git a/conf.org b/conf.org
index 73e6e3a..5ff774f 100644
--- a/conf.org
+++ b/conf.org
@@ -1181,14 +1181,66 @@ The default is XHTML for some reason (which few use and makes certain barbaric w
 ** gantt charts
 This is custom, non-MELPA package, so it must be loaded manually. See [[https://github.com/swillner/org-gantt/blob/master/org-gantt-manual.org][here]] for guide.
 #+BEGIN_SRC emacs-lisp
-(add-to-list 'load-path "~/.emacs.d/untracked/org-gantt/")
-(require 'org-gantt)
+;; (add-to-list 'load-path "~/.emacs.d/untracked/org-gantt/")
+;; (require 'org-gantt)
 #+END_SRC
 
 It is also useful to define a block template for gantt chart creation
 #+BEGIN_SRC emacs-lisp
-(add-to-list 'org-structure-template-alist
-             '("og" "#+BEGIN: org-gantt-chart\n?\n#+END"))
+;; (add-to-list 'org-structure-template-alist
+;;              '("og" . "org-gantt-chart"))
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp
+(require 'ox-taskjuggler)
+(setq org-taskjuggler-target-version 3.6
+
+      org-taskjuggler-process-command
+      ;; TODO abstract out the config file
+      "tj3client -c /home/ndwar/.config/tj3/taskjugglerrc add %f")
+
+(defun nd/org-tj3-load ()
+  "Load tj3 files"
+  (interactive)
+  (let ((project-files
+         (->> (directory-files nd/org-export-publishing-directory t)
+              (--filter (equal (file-name-extension it t)
+                               org-taskjuggler-extension)))))
+    (helm
+     :sources
+     (list
+      (helm-build-sync-source "Project Files"
+        ;; TODO make these project ids
+        :candidates project-files
+        :action
+        ;; TODO add load and view using function below
+        '(("Load" .
+           (lambda (s)
+             (call-process-shell-command
+              (format "tj3client -c /home/ndwar/.config/tj3/taskjugglerrc add %s" s)))))))
+     :buffer "*helm taskjuggler buffer*"
+     :prompt "Project: ")))
+
+(defun nd/org-tj3-open-in-browser (file)
+  (--> (with-temp-buffer (insert-file-contents file) (buffer-string))
+       (s-match "project \\([^[:space:]]+\\) " it)
+       (nth 1 it)
+       ;; TODO make port a variable
+       (browse-url (format "http://localhost:8081/taskjuggler?project=%s;report=report" it))))
+
+(defun nd/org-taskjuggler-compile-advice (orig-fn &rest args)
+  "Advice to fix window placement in `org-fast-tags-selection'."
+  (nd/with-advice
+      ;; don't make a reports directory
+      ((#'make-directory :override #'ignore)
+       ;; don't freak out when we have errors
+       ;; (ruby likes to throw warnings)
+       (#'org-taskjuggler--collect-errors :override #'ignore))
+    (unwind-protect (apply orig-fn args))))
+
+
+(advice-add #'org-taskjuggler-compile :around
+            #'nd/org-taskjuggler-compile-advice)
 #+END_SRC
 ** gtd implementation
 *** overview