maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Many updates, too many to count

Browse source 
commit messages are for code, not config

I guess
This commit is contained in:
Griffin Smith 2020-03-26 15:03:25 -04:00
parent 23b179ad1d
commit 35c76e7098
24 changed files with 1533 additions and 427 deletions
Download patch file Download diff file Expand all files Collapse all files

35
slack-snippets.el
View file

@ -192,10 +192,11 @@
(ivy-read
"Select channel: "
;; TODO want to potentially use purpose / topic stuff here
(-map (lambda (chan) (let ((label (assoc-default 'label (cdr chan)))
(id (car chan)))
(propertize label 'channel-id id)))
conversations)
(->> conversations
(-filter (lambda (c) (assoc-default 'label (cdr c))))
(-map (lambda (chan) (let ((label (assoc-default 'label (cdr chan)))
(id (car chan)))
(propertize label 'channel-id id)))))
:history 'slack/channel-history
:action (lambda (selected)
(let ((channel-id (get-text-property 0 'channel-id selected)))
@ -203,14 +204,24 @@
(message "Sent message to %s" selected))))))
nil)
(comment
(prompt-for-channel #'message)
(->> --convos
(-filter (lambda (c) (assoc-default 'label (cdr c))))
(-map (lambda (chan) (let ((label (assoc-default 'label (cdr chan)))
(id (car chan)))
(propertize label 'channel-id id)))))
(->> --convos (car) (cdr) (assoc-default 'label))
)
(defun slack-send-code-snippet (&optional snippet-text)
(interactive)
(when-let ((snippet-text (or snippet-text
(buffer-substring-no-properties (mark) (point)))))
(prompt-for-channel
(lambda (channel-id)
(slack/post-message
:text (format "```\n%s```" snippet-text)
:channel-id channel-id)))))
(interactive
(list (buffer-substring-no-properties (mark) (point))))
(prompt-for-channel
(lambda (channel-id)
(slack/post-message
:text (format "```\n%s```" snippet-text)
:channel-id channel-id))))
(provide 'slack-snippets)