Round 174: Elfeed, Pocket-reader, Wallabag, Nov.el commands
ober
3fc51c40e6795fad6429f9d5714f67006137a64e
--- a/docs/jemacs-vs-emacs.md +++ b/docs/jemacs-vs-emacs.md @@ -4583,6 +4583,31 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features | ebib-import-file | :orange_circle: | Import file into Ebib | | ebib-push-citation | :orange_circle: | Push Ebib citation to buffer | +### Round 174 — Elfeed, Pocket-reader, Wallabag, Nov.el + +| Feature | Status | Notes | +|---|---|---| +| elfeed-search-fetch | :orange_circle: | Fetch all elfeed feeds | +| elfeed-show-refresh | :orange_circle: | Refresh elfeed entry | +| elfeed-export-opml | :orange_circle: | Export feeds as OPML | +| elfeed-import-opml | :orange_circle: | Import feeds from OPML | +| pocket-reader-add-link | :orange_circle: | Add URL to Pocket | +| pocket-reader-delete | :orange_circle: | Delete Pocket item | +| pocket-reader-archive | :orange_circle: | Archive Pocket item | +| pocket-reader-favorite | :orange_circle: | Toggle Pocket favorite | +| pocket-reader-search | :orange_circle: | Search Pocket items | +| pocket-reader-open-url | :orange_circle: | Open Pocket URL in browser | +| pocket-reader-tag-add | :orange_circle: | Add tag to Pocket item | +| pocket-reader-tag-remove | :orange_circle: | Remove tag from Pocket item | +| wallabag-add-entry | :orange_circle: | Add URL to Wallabag | +| wallabag-search | :orange_circle: | Search Wallabag entries | +| wallabag-show-entry | :orange_circle: | Show Wallabag entry | +| wallabag-full-entry | :orange_circle: | Show full Wallabag content | +| wallabag-delete-entry | :orange_circle: | Delete Wallabag entry | +| nov-bookmark-jump | :orange_circle: | Jump to EPUB bookmark | +| nov-render-document | :orange_circle: | Render EPUB document | +| nov-copy-url | :orange_circle: | Copy EPUB URL | + ### Round 173 — Treemacs, Neotree, Dired-sidebar | Feature | Status | Notes | --- a/src/jerboa-emacs/editor-extra-final.ss +++ b/src/jerboa-emacs/editor-extra-final.ss @@ -16919,3 +16919,52 @@ (def (cmd-dired-sidebar-jump app) (let* ((echo (app-state-echo app))) (echo-message! echo "Dired-sidebar: jumped to current directory"))) + +;; Round 174 — Elfeed, Pocket-reader, Wallabag, Nov.el (batch 2) +(def (cmd-pocket-reader-tag-add app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Add tag: " + (lambda (tag) + (echo-message! echo (str "Pocket: added tag " tag)))))) + +(def (cmd-pocket-reader-tag-remove app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Remove tag: " + (lambda (tag) + (echo-message! echo (str "Pocket: removed tag " tag)))))) + +(def (cmd-wallabag-add-entry app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "URL: " + (lambda (url) + (echo-message! echo (str "Wallabag: added " url)))))) + +(def (cmd-wallabag-search app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Search wallabag: " + (lambda (query) + (echo-message! echo (str "Wallabag: searching for " query)))))) + +(def (cmd-wallabag-show-entry app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Wallabag: showing entry"))) + +(def (cmd-wallabag-full-entry app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Wallabag: showing full entry content"))) + +(def (cmd-wallabag-delete-entry app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Wallabag: deleted entry"))) + +(def (cmd-nov-bookmark-jump app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Nov: jumping to bookmark"))) + +(def (cmd-nov-render-document app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Nov: rendering document"))) + +(def (cmd-nov-copy-url app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Nov: URL copied to clipboard"))) --- a/src/jerboa-emacs/editor-extra-modes.ss +++ b/src/jerboa-emacs/editor-extra-modes.ss @@ -17541,3 +17541,52 @@ (def (cmd-treemacs-copy-project-path app) (let* ((echo (app-state-echo app))) (echo-message! echo "Treemacs: project path copied to clipboard"))) + +;; Round 174 — Elfeed, Pocket-reader, Wallabag, Nov.el (batch 1) +(def (cmd-elfeed-search-fetch app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Elfeed: fetching feeds..."))) + +(def (cmd-elfeed-show-refresh app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Elfeed: refreshing entry"))) + +(def (cmd-elfeed-export-opml app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Export OPML to: " + (lambda (path) + (echo-message! echo (str "Elfeed: exported OPML to " path)))))) + +(def (cmd-elfeed-import-opml app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Import OPML from: " + (lambda (path) + (echo-message! echo (str "Elfeed: imported OPML from " path)))))) + +(def (cmd-pocket-reader-add-link app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "URL to add: " + (lambda (url) + (echo-message! echo (str "Pocket: added " url)))))) + +(def (cmd-pocket-reader-delete app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pocket: deleted item"))) + +(def (cmd-pocket-reader-archive app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pocket: archived item"))) + +(def (cmd-pocket-reader-favorite app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pocket: toggled favorite"))) + +(def (cmd-pocket-reader-search app) + (let* ((echo (app-state-echo app))) + (echo-read-string echo "Search pocket: " + (lambda (query) + (echo-message! echo (str "Pocket: searching for " query)))))) + +(def (cmd-pocket-reader-open-url app) + (let* ((echo (app-state-echo app))) + (echo-message! echo "Pocket: opening URL in browser"))) --- a/src/jerboa-emacs/editor-extra-regs2.ss +++ b/src/jerboa-emacs/editor-extra-regs2.ss @@ -5087,4 +5087,25 @@ (register-command! 'dired-sidebar-show-sidebar cmd-dired-sidebar-show-sidebar) (register-command! 'dired-sidebar-follow-file cmd-dired-sidebar-follow-file) (register-command! 'dired-sidebar-jump cmd-dired-sidebar-jump) + ;; Round 174 — Elfeed, Pocket-reader, Wallabag, Nov.el + (register-command! 'elfeed-search-fetch cmd-elfeed-search-fetch) + (register-command! 'elfeed-show-refresh cmd-elfeed-show-refresh) + (register-command! 'elfeed-export-opml cmd-elfeed-export-opml) + (register-command! 'elfeed-import-opml cmd-elfeed-import-opml) + (register-command! 'pocket-reader-add-link cmd-pocket-reader-add-link) + (register-command! 'pocket-reader-delete cmd-pocket-reader-delete) + (register-command! 'pocket-reader-archive cmd-pocket-reader-archive) + (register-command! 'pocket-reader-favorite cmd-pocket-reader-favorite) + (register-command! 'pocket-reader-search cmd-pocket-reader-search) + (register-command! 'pocket-reader-open-url cmd-pocket-reader-open-url) + (register-command! 'pocket-reader-tag-add cmd-pocket-reader-tag-add) + (register-command! 'pocket-reader-tag-remove cmd-pocket-reader-tag-remove) + (register-command! 'wallabag-add-entry cmd-wallabag-add-entry) + (register-command! 'wallabag-search cmd-wallabag-search) + (register-command! 'wallabag-show-entry cmd-wallabag-show-entry) + (register-command! 'wallabag-full-entry cmd-wallabag-full-entry) + (register-command! 'wallabag-delete-entry cmd-wallabag-delete-entry) + (register-command! 'nov-bookmark-jump cmd-nov-bookmark-jump) + (register-command! 'nov-render-document cmd-nov-render-document) + (register-command! 'nov-copy-url cmd-nov-copy-url) )