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

Forbid inserting text in between channel characters

Browse source
This commit is contained in:
Miguel de la Cruz 2022-06-01 11:49:54 +02:00
parent 538321926f
commit 3a8d4b661c
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
mattermost.el
View file

@ -169,14 +169,18 @@ if the user is not present"
(channel-id (plist-get channel :id))) (channel-id (plist-get channel :id)))
(message "button action! %s" channel-id))) (message "button action! %s" channel-id)))
'channel channel))) 'channel channel
'read-only t
'rear-sticky t
'front-sticky t)))
(defun show-root () (defun mattermost-show-root ()
"Populates the Mattermost Root buffer and changes to it" "Populates the Mattermost Root buffer and changes to it"
(interactive) (interactive)
(let ((rootb (get-buffer-create "*Mattermost Root*"))) (let ((rootb (get-buffer-create "*Mattermost Root*")))
(with-current-buffer rootb (with-current-buffer rootb
(let ((teams (mattermost-get-teams))) (let ((inhibit-read-only t)
(teams (mattermost-get-teams)))
(erase-buffer) (erase-buffer)
(dolist (team teams) (dolist (team teams)
(let* ((team-id (plist-get team :id)) (let* ((team-id (plist-get team :id))
@ -194,7 +198,7 @@ if the user is not present"
(define-key map (kbd "n") #'next-line) (define-key map (kbd "n") #'next-line)
(define-key map (kbd "p") #'previous-line) (define-key map (kbd "p") #'previous-line)
(define-key map (kbd "q") #'bury-buffer) (define-key map (kbd "q") #'bury-buffer)
(define-key map (kbd "g") #'show-root) (define-key map (kbd "g") #'mattermost-show-root)
map) map)
"The keymap for mattermost-root-mode") "The keymap for mattermost-root-mode")
@ -214,7 +218,7 @@ user to check their status and select between them")
(mattermost-close) (mattermost-close)
(let ((password (mattermost-read-password))) (let ((password (mattermost-read-password)))
(mattermost-login mattermost-login-id password)) (mattermost-login mattermost-login-id password))
(show-root)) (mattermost-show-root))
(defun mattermost-close () (defun mattermost-close ()
"Closes the connection with the Mattermost server" "Closes the connection with the Mattermost server"