mgdelacroix/mattermost.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add major mode, map and entrypoint function

Browse source
This commit is contained in:
Miguel de la Cruz 2022-05-22 23:36:55 +02:00
parent 11ffa88521
commit 53ec54319b
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
mattermost.el
View file

@ -128,6 +128,21 @@ if the user is not present"
(insert (format "> [%s] %s\n" channel-id (if (string= channel-display-name "") (insert (format "> [%s] %s\n" channel-id (if (string= channel-display-name "")
channel-name channel-name
channel-display-name))))))))) channel-display-name)))))))))
;; ToDo: define this better
(defvar mattermost-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c f") '(lambda () (interactive) (message "keyyyy")))
map)
"The keymap for mattermost-mode")
(define-derived-mode mattermost-mode fundamental-mode "Mattermost"
"Mode to list the Mattermost teams and channels to allow the
user to check their status and select between them")
(defun mattermost ()
"Connect to a Mattermost instance"
(interactive)
)
;; ToDo: remove ;; ToDo: remove
(setq msgs (mattermost-get-channel-messages "68w17u1da7yg7enayudjjqqwse")) (setq msgs (mattermost-get-channel-messages "68w17u1da7yg7enayudjjqqwse"))