emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor & redesign app/twitter

Browse source 
Inspired by UI changes by @fuxialexander, mentioned in
https://github.com/hlissner/emacs-doom-themes/issues/131
This commit is contained in:
Henrik Lissner 2018-01-24 17:37:39 -05:00
parent b3c429d92a
commit 64d41ed1d9
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 74 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

48
modules/app/twitter/autoload.el
View file

@ -1,12 +1,32 @@
;;; app/twitter/autoload.el -*- lexical-binding: t; -*-
;;;###autoload
(defun +twitter-display-buffer (buf)
"A replacement display-buffer command for `twittering-pop-to-buffer-function'
that works with the feature/popup module."
(let ((win (selected-window)))
(display-buffer buf)
;; This is required because the new window generated by `pop-to-buffer'
;; may hide the region following the current position.
(twittering-ensure-whole-of-status-is-visible win)))
;;;###autoload
(defun +twitter-buffer-p (buf)
"Return non-nil if BUF is a `twittering-mode' buffer."
(eq 'twittering-mode (buffer-local-value 'major-mode buf)))
;;
;; Commands
;;
;;;###autoload
(defun =twitter ()
"Opens a workspace dedicated to `twittering-mode'."
(interactive)
(+workspace-switch "*Twitter*" t)
(delete-other-windows)
(condition-case _ex
(condition-case _
(progn
(+workspace/new "*Twitter*")
(call-interactively #'twit)
(unless (get-buffer (car twittering-initial-timeline-spec-string))
(error "Failed to open twitter"))
@ -14,12 +34,13 @@
(dolist (name (cdr twittering-initial-timeline-spec-string))
(split-window-horizontally)
(switch-to-buffer name))
(balance-windows))
('error
(+twitter/quit-all))))
(balance-windows)
(call-interactively #'+twitter/rerender-all))
('error (+twitter/quit-all))))
;;;###autoload
(defun +twitter/quit ()
"Close the current `twitter-mode' buffer."
(interactive)
(when (eq major-mode 'twittering-mode)
(twittering-kill-buffer)
@ -27,15 +48,18 @@
;;;###autoload
(defun +twitter/quit-all ()
"Close all open `twitter-mode' buffers and the associated workspace, if any."
(interactive)
(+workspace/delete "Twitter")
(dolist (buf (doom-buffers-in-mode 'twittering-mode))
(with-current-buffer buf
(twittering-kill-buffer))))
(+workspace/delete "*Twitter*")
(dolist (buf (doom-buffers-in-mode 'twittering-mode (buffer-list) t))
(twittering-kill-buffer buf)))
;;;###autoload
(defun +twitter/rerender-all ()
"Rerender all `twittering-mode' buffers."
(interactive)
(dolist (buf (doom-buffers-in-mode 'twittering-mode))
(dolist (buf (doom-buffers-in-mode 'twittering-mode (buffer-list) t))
(with-current-buffer buf
(twittering-rerender-timeline-all buf))))
(twittering-rerender-timeline-all buf)
(setq-local line-spacing 0.2)
(goto-line 0 buf))))