From 46e6b9dc83c06aacfc54d0c8fbb10a11e39484ef Mon Sep 17 00:00:00 2001
From: Peter Tillemans <pti@snamellit.com>
Date: Wed, 7 Aug 2024 09:51:49 +0200
Subject: [PATCH] improve org-jira support

---
 early-init.el |  2 +-
 init.org      | 16 ++++++++++++----
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/early-init.el b/early-init.el
index 0e94e20..34490db 100644
--- a/early-init.el
+++ b/early-init.el
@@ -77,7 +77,7 @@
       (tgt (concat user-emacs-directory "init.el")))
   (if (file-newer-than-file-p src tgt)
       (progn
-        (message "snamellit.org has been changed, tangling...")
+        (message "init.org has been changed, tangling...")
         (org-babel-tangle-file src tgt "emacs-lisp")
         ;; this is a good time to check if the crafted-emacs repo is fresh
         ;; - we just updated the init.org file so we expect changes.
diff --git a/init.org b/init.org
index 27be3e7..fbe6d45 100644
--- a/init.org
+++ b/init.org
@@ -1,5 +1,7 @@
 #+TITLE: My Emacs Configuration
-#+PROPERTY: header-args:emacs-lisp :tangle yes :lexical yes
+#+PROPERTY: header-args :tangle yes
+#+PROPERTY: header-args:emacs-lisp :lexical yes :tangle yes :comments both :padline yes
+
 
 * Literate Configuration for Emacs
 ** Goals
@@ -78,6 +80,7 @@ Also immediately set lexical binding mode.
   (add-hook 'after-init-hook
             #'(lambda () (report-time-since-load " [after-init]"))
             t)
+  (report-time-since-load "start init file")
 #+end_src
 
 When looking for where the time goes, the `report-time-since-load`
@@ -1197,12 +1200,17 @@ Here is a snapshot of the keybindings dd <2024-07-30 Tue>.
 
 #+BEGIN_SRC emacs-lisp
   ;; configure org-jira
-
-
   (use-package org-jira
-    :ensure t
+    :ensure (:host github :repo "ptillemans/org-jira" :branch "pti_fix_getUsers")
     :commands (org-jira-get-issues org-jira-get-projects)
     :config
+    (setq org-jira-users '(("Peter Tillemans". "557058:bdf83521-663b-4ae6-9b71-487bb98e2add")))
+    (setq jiralib-agile-page-size 1000)
+    (setq org-jira-custom-jqls
+     '(
+       (:jql " assignee = currentUser() and (created > '2024-01-01' of updated > '2024-01-01) order by created DESC"
+             :limit 100 :filename "this-year")
+       ))
     (make-directory "~/.org-jira" 'parents)
     (setq jiralib-url (auth-source-pass-get "url" "customer/jira"))
     (jiralib-login