diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-12 18:06:26 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-12 18:06:26 +0200 |
| commit | 869917a0e770449040a6fbc15a80365fe6c86bdf (patch) | |
| tree | d7c853207b317135761c0ca6e47a209b81061727 | |
| parent | 2cd8a9a38fe6a4562d696e1fd15b4de3acae641e (diff) | |
rough account statuses search
| -rw-r--r-- | lisp/mastodon-profile.el | 8 | ||||
| -rw-r--r-- | lisp/mastodon-search.el | 2 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index a05087f..bee1b26 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -93,6 +93,7 @@ (defvar mastodon-profile-mode-map (let ((map (make-sparse-keymap))) (define-key map (kbd "C-c C-c") #'mastodon-profile--account-view-cycle) + (define-key map (kbd "C-c C-s") #'mastodon-profile--account-search) map) "Keymap for `mastodon-profile-mode'.") @@ -215,6 +216,13 @@ NO-REBLOGS means do not display boosts in statuses." (handle (alist-get 'acct profile))) (mastodon-views--add-account-to-list nil id handle)))) +(defun mastodon-profile--account-search (query) + "Search currently viewed account for QUERY." + (interactive "sSearch account for: ") + (let* ((ep (mastodon-tl--buffer-property 'endpoint)) + (id (nth 1 (split-string ep "/")))) + (mastodon-search--search-query query "statuses" nil id))) + ;;; ACCOUNT PREFERENCES diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index e2faec5..a9c3b90 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -147,6 +147,8 @@ PRINT-FUN is the function used to print the data from the response." (defun mastodon-search--search-query (query &optional type following account-id) "Prompt for a search QUERY and return accounts, statuses, and hashtags." + ;; TODO: handle account search, buffer name etc. + ;; TODO: handle no results (interactive "sSearch mastodon for: ") (let* ((url (format "%s/api/v2/search" mastodon-instance-url)) (type (or type |