diff options
| author | Thanos Apollo <public@thanosapollo.org> | 2026-05-03 12:32:54 +0300 |
|---|---|---|
| committer | Thanos Apollo <public@thanosapollo.org> | 2026-05-03 12:32:54 +0300 |
| commit | 7e47a57534525d0143aa50980573d6db7e1bc2aa (patch) | |
| tree | acd660e385bc9d855e7c11a47aed41fae007f0f6 | |
| parent | 2c053da57e56bea012ac56b05bba0c148ad080c0 (diff) | |
[fix] view: Add proper ewoc navigation
| -rw-r--r-- | lisp/forgejo-view.el | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lisp/forgejo-view.el b/lisp/forgejo-view.el index 1574c3d..82e40af 100644 --- a/lisp/forgejo-view.el +++ b/lisp/forgejo-view.el @@ -233,6 +233,18 @@ Handles #N issue/PR refs and markdown URLs." (interactive) (forgejo-review-open-thread)) +;;; EWOC navigation + +(defun forgejo-view-next () + "Move to the next EWOC node." + (interactive) + (ewoc-goto-next forgejo-view--ewoc 1)) + +(defun forgejo-view-previous () + "Move to the previous EWOC node." + (interactive) + (ewoc-goto-prev forgejo-view--ewoc 1)) + ;;; Shared view keymap (keymap-popup-define forgejo-view-mode-map @@ -252,8 +264,8 @@ Handles #N issue/PR refs and markdown URLs." "RET" ("Follow link" forgejo-view-follow-link) "g" ("Refresh" forgejo-view-refresh) "b" ("Open in browser" forgejo-view-browse) - "n" ("Next" ewoc-goto-next) - "p" ("Previous" ewoc-goto-prev)) + "n" ("Next" forgejo-view-next) + "p" ("Previous" forgejo-view-previous)) ;;; Node access |