ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
104 lines
3.5 KiB
EmacsLisp
104 lines
3.5 KiB
EmacsLisp
;;; app/twitter/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar +twitter-workspace-name "*Twitter*"
|
|
"The name to use for the twitter workspace.")
|
|
|
|
;;;###autoload
|
|
(defun +twitter-display-buffer-fn (buf)
|
|
"A replacement display-buffer command for `twittering-pop-to-buffer-function'
|
|
that works with the ui/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
|
|
|
|
(defvar +twitter--old-wconf nil)
|
|
;;;###autoload
|
|
(defun =twitter (arg)
|
|
"Opens a workspace dedicated to `twittering-mode'."
|
|
(interactive "P")
|
|
(condition-case _
|
|
(progn
|
|
(if (and (not arg) (modulep! :ui workspaces))
|
|
(+workspace/new +twitter-workspace-name)
|
|
(setq +twitter--old-wconf (current-window-configuration))
|
|
(delete-other-windows)
|
|
(switch-to-buffer (doom-fallback-buffer)))
|
|
(call-interactively #'twit)
|
|
(unless (get-buffer (car twittering-initial-timeline-spec-string))
|
|
(error "Failed to open twitter"))
|
|
(switch-to-buffer (car twittering-initial-timeline-spec-string))
|
|
(dolist (name (cdr twittering-initial-timeline-spec-string))
|
|
(split-window-horizontally)
|
|
(switch-to-buffer name))
|
|
(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)
|
|
(cond ((one-window-p) (+twitter/quit-all))
|
|
((modulep! :ui workspaces)
|
|
(+workspace/close-window-or-workspace))
|
|
((delete-window)))))
|
|
|
|
;;;###autoload
|
|
(defun +twitter/quit-all ()
|
|
"Close all open `twitter-mode' buffers and the associated workspace, if any."
|
|
(interactive)
|
|
(when (modulep! :ui workspaces)
|
|
(+workspace/delete +twitter-workspace-name))
|
|
(when +twitter--old-wconf
|
|
(set-window-configuration +twitter--old-wconf)
|
|
(setq +twitter--old-wconf nil))
|
|
(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 (buffer-list) t))
|
|
(with-current-buffer buf
|
|
(twittering-rerender-timeline-all buf)
|
|
(setq-local line-spacing 0.2)
|
|
(goto-char (point-min)))))
|
|
|
|
;;;###autoload
|
|
(defun +twitter/ace-link ()
|
|
"Open a visible link, username or hashtag in a `twittering-mode' buffer."
|
|
(interactive)
|
|
(require 'avy)
|
|
;; REVIEW Is this necessary anymore with `link-hint'
|
|
(let ((pt (avy-with +twitter/ace-link
|
|
(avy--process
|
|
(+twitter--collect-links)
|
|
(avy--style-fn avy-style)))))
|
|
(when (number-or-marker-p pt)
|
|
(goto-char pt)
|
|
(let ((uri (get-text-property (point) 'uri)))
|
|
(if uri (browse-url uri))))))
|
|
|
|
(defun +twitter--collect-links ()
|
|
(let ((end (window-end))
|
|
points)
|
|
(save-excursion
|
|
(goto-char (window-start))
|
|
(while (and (< (point) end)
|
|
(ignore-errors (twittering-goto-next-thing) t))
|
|
(push (point) points))
|
|
(nreverse points))))
|