Where parallels cross

Interesting bits of life

ol-emacs-slack: Added support for thread links

This is just a quick announcement: today I managed to add support of thread links to my ol-emacs-slack.

This ol-emacs-slack is a way to create Org Mode links for the emacs-slack extension. This is pretty useful if you want to track Slack message in your Org Agenda: https://ag91.github.io/blog/2020/09/24/composition-update-add-slack-links-to-org-agenda/.

Here the updated code for getting alerts in your Org Agenda:

(use-package alert
  :after slack
   'my/alert-style :title
   "Make Org headings for messages I receive - Style"
   (lambda (info)
     (when (get-buffer "Slack.org") (with-current-buffer "Slack.org" (save-buffer)))
     (message "%s" info)
     (setq my/alert info)
       "* TODO "
       (plist-get info :title)
       " : "
        "[[emacs-slack:%s][%s]] :slack:"
        (if (plist-get info :data)
            (format "%s|%s|ts:%s"
                    (plist-get (plist-get info :data) :team-id)
                    (plist-get (plist-get info :data) :room-id)
                    (plist-get (plist-get info :data) :ts))
          (plist-get info :title))
        (s-truncate 127 (s-replace "\n" ";" (plist-get info :message))))
       (format "<%s>" (format-time-string "%Y-%m-%d %H:%M"))
       (plist-get info :message)
  (setq alert-default-style 'message)
  (add-to-list 'alert-user-configuration
               '(((:category . "slack")) my/alert-style nil)))