Weekly notes for team meetings/reports/emails

(defun my-filter-out-todo-lines (s backend info)
  "Filter out lines ending in :todo, - may be mapped to *"
  (apply 'concat
         (--remove (s-matches? (rx ":todo" (zero-or-more blank) eol) it)
                   (s-slice-at (rx bol (in "-*")) s))))

(defun my-filter-headlines (s backend info)
  "Transform Headlines"
  (replace-regexp-in-string
   (rx "{color:" (one-or-more (in alnum "{}")) "{color}")
   "" s))

(defun my-translate-mu4e-links (link backend info)
  "Format mu4e links for export."
  (setq my-debug-var link)
  (let ((type (org-element-property :type link))
        (path (org-element-property :path link))
        (desc (substring-no-properties (nth 2 link))))
    (if (string-match-p "mu4e" type)
        (when (string-match my-org-mu4e-index-links path)
          (format "[%s|https://www.google.com/search?q=%s]"
                  (replace-regexp-in-string
                   (rx (in "({})")) "" desc)
                  (match-string 1 path)))
      (format "[%s|%s]" desc path))))

(org-export-define-derived-backend 'my-jira-export 'jira
  :translate-alist
  '((link . my-translate-mu4e-links))
  :filters-alist
  '((:filter-headline . my-filter-headlines)
    (:filter-plain-list . my-filter-out-todo-lines)))


(if (not my-current-jira-ticket)
    (format "No ticket current set")
  (json-encode-string
   (replace-regexp-in-string
    "\\(?:h[12]\\.\\)" "\nh3."

    (let ((headline-rx (rx bol (one-or-more "*")
                           (one-or-more nonl)
                           (eval (format "virt:%d" my-current-jira-ticket))
                           (not (any digit)))))
      (save-excursion
        ;; Grab the current state of the review queue
        (goto-char (point-min))
        (when (re-search-forward headline-rx)
          (goto-char (match-beginning 0))
          (org-export-as 'my-jira-export t nil t)))))))

:auth_basic := (my-pass-password "jira")
:ticket := (format "VIRT-%s" :virt-ticket)

# POST https://dev-projects.linaro.org/rest/api/latest/issue/:ticket/comment
POST https://projects.linaro.org/rest/api/latest/issue/:ticket/comment
Authorization: Basic :auth_basic
Accept: application/json
Content-Type: application/json

{
  "body": :comment
}

(defun my-filter-out-done-lines (s backend info)
  "Filter out lines ending in :done"
  (apply 'concat
         (--remove (s-matches? (rx ":done" (zero-or-more blank) eol) it)
                   (s-slice-at (rx bol "-") s))))

; headline _back-end _info
(defun my-filter-out-old-completed-todos (s backend info)
  "Filter out DONE items if they where completed over a week ago."
  (let ((date (plist-get info :with-date))
        (todo (plist-get info :with-todo-keywords))
        (todo-type (org-element-property :todo-type s))
        (output s))
    ;; getting there
    (setq my-global-debug-var
          (add-to-list 'my-global-debug-var
                       (list :string s
                             :date date
                             :todo todo
                             :todo-type todo-type)))
    ;; strip ~~~\n lines
    (let ((start (string-match "~+\n" output)))
      (if start
          (concat (substring s 0 start)
                  (substring s (match-end 0)))
        output))))

(org-export-define-derived-backend 'my-status-report 'ascii
  :options-alist
  '((:with-todo-keywords nil)
    (:num nil))
  :filters-alist
  '((:filter-plain-list . my-filter-out-done-lines)
    (:filter-headline . my-filter-out-old-completed-todos)))

;; Snarf the weeks activities
(save-excursion
  (goto-char (point-min))
  (when (re-search-forward "* Tasks")
    (goto-char (match-beginning 0))
    (org-export-as 'my-status-report t nil t )))

(s-join "\n"
  (subseq
   (--remove
     (= 0 (length it))
     (s-lines
      (save-excursion
        ;; Grab the current state of the review queue
        (goto-char (point-min))
        (when (re-search-forward "* Review Queue")
          (goto-char (match-beginning 0))
          (org-export-as 'ascii t nil t)))))
    0 12))

(save-excursion
  (goto-char (point-min))
  (when (re-search-forward "* Absences")
    (goto-char (match-beginning 0))
    (org-export-as 'ascii t nil t )))

(org-update-statistics-cookies t)

(let ((end-of-week
       (chomp (shell-command-to-string
               "date --date='09:00 this Sun' +'%b. %e %Y'"))))

  (compose-mail
   "linaro-toolchain@lists.linaro.org"
   (format "[ACTIVITY] week ending %s" end-of-week)
   nil
   t
   'switch-to-buffer)
  (insert activities)
  (insert "\n")
  (insert "Absences\n")
  (insert "========\n\n")
  (insert absences)
  (insert "\n")
  (insert "Current Review Queue\n")
  (insert "====================\n\n")
  (insert reviews)
  (run-at-time 1 nil #'switch-to-buffer (current-buffer)))