feat(emacs): org-trello, youtube-dl -> yt-dlp

.config/guix/manifests/emacs.scm

@@ -4,7 +4,7 @@
    "ripgrep"
    "emacs-vterm"
    "imagemagick"
-   "youtube-dl"
+   "yt-dlp"
    "mpv"
    "python-isort"
    "python-yapf"

.config/yadm/encrypt

@@ -4,7 +4,6 @@
 Mail/thexcloud/.credentials.gmailieer.json
 Mail/progin6304/.credentials.gmailieer.json
 .emacs.d/dired-bookmarks.el
-.emacs.d/elfeed.org
 .emacs.d/private.org
-.emacs.d/prodigy-config.el
 .emacs.d/private.el
+.emacs.d/.trello/sqrtminusone.el

.emacs.d/init.el

@@ -1653,6 +1653,31 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
                   "/Entered on/ %U\n"
                   "%a\n"))))
 
+(use-package org-trello
+  :straight (:build (:not native-compile))
+  :commands (org-trello-mode)
+  :init
+  (setq org-trello-current-prefix-keybinding "C-c o")
+  (setq org-trello-files
+        (thread-last (concat org-directory "/trello")
+          (directory-files)
+          (seq-filter
+           (lambda (f) (string-match-p (rx ".org" eos) f)))
+          (mapcar
+           (lambda (f) (concat org-directory "/trello/" f)))))
+  (add-hook 'org-mode-hook
+            (lambda ()
+              (when (string-match-p (rx "trello") (or (buffer-file-name) ""))
+                (org-trello-mode))))
+  :config
+  (eval
+   `(my-leader-def
+      :infix "o t"
+      :keymaps '(org-trello-mode-map)
+      ,@(mapcan
+         (lambda (b) (list (nth 1 b) (macroexp-quote (nth 0 b))))
+         org-trello-interactive-command-binding-couples))))
+
 (defun my/org-scheduled-get-time ()
   (let ((scheduled (org-get-scheduled-time (point))))
     (if scheduled
@@ -1665,6 +1690,13 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
           (todo "NEXT"
                 ((org-agenda-prefix-format "  %i %-12:c [%e] ")
                  (org-agenda-overriding-header "Next tasks")))
+          (org-ql-block
+           `(and
+             (regexp ,(rx ":orgtrello_users:" (* nonl) "sqrtminusone"))
+             (todo)
+             (deadline))
+           ((org-agenda-files ',org-trello-files)
+            (org-ql-block-header "Trello")))
           (tags-todo "inbox"
                      ((org-agenda-overriding-header "Inbox")
                       (org-agenda-prefix-format " %i %-12:c")
@@ -1977,6 +2009,20 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
   :config
   (org-roam-bibtex-mode))
 
+(defun my/export-org-tables-to-csv ()
+  (interactive)
+  (org-table-map-tables
+   (lambda ()
+     (when-let
+         (name
+          (plist-get (cadr (org-element-at-point)) :name))
+       (org-table-export
+        (concat
+         (file-name-directory
+          (buffer-file-name))
+         name ".csv")
+        "orgtbl-to-csv")))))
+
 (use-package org-latex-impatient
   :straight (:repo "yangsheng6810/org-latex-impatient"
                    :branch "master"
@@ -3872,3 +3918,10 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
             :action (lambda (elem)
                       (setq zone-programs (vector (cdr elem)))
                       (zone))))
+
+(defun my/ytel-kill-url ()
+  (interactive)
+  (kill-new
+   (concat
+    "https://www.youtube.com/watch?v="
+    (ytel-video-id (ytel-get-current-video)))))

Emacs.org

@@ -2740,7 +2740,52 @@ Log DONE time
 #+begin_src emacs-lisp :tangle no :noweb-ref org-productivity-setup
 (setq org-log-done 'time)
 #+end_src
+*** Trello sync
+Some of the projects I'm participating in are managed via Trello, so I use [[http://org-trello.github.io/][org-trello]] to keep track of them. The package has a remarkably awkward keybindings setup, so my effort to call =my-leader-def= to set keybindings I like is no less awkward.
+
+Also, trello files are huge and have a lot of information and tasks which do not concern me, so I don't add them to =org-agenda-files=.
+
+#+begin_src emacs-lisp
+(use-package org-trello
+  :straight (:build (:not native-compile))
+  :commands (org-trello-mode)
+  :init
+  (setq org-trello-current-prefix-keybinding "C-c o")
+  (setq org-trello-add-tags nil)
+  (setq org-trello-files
+        (thread-last (concat org-directory "/trello")
+          (directory-files)
+          (seq-filter
+           (lambda (f) (string-match-p (rx ".org" eos) f)))
+          (mapcar
+           (lambda (f) (concat org-directory "/trello/" f)))))
+  (add-hook 'org-mode-hook
+            (lambda ()
+              (when (string-match-p (rx "trello") (or (buffer-file-name) ""))
+                (org-trello-mode))))
+  :config
+  (eval
+   `(my-leader-def
+      :infix "o t"
+      :keymaps '(org-trello-mode-map)
+      ,@(mapcan
+         (lambda (b) (list (nth 1 b) (macroexp-quote (nth 0 b))))
+         org-trello-interactive-command-binding-couples))))
+#+end_src
+*** org-ql
+[[https://github.com/alphapapa/org-ql][org-ql]] is a package to query the org files. I'm using it in my review workflow and for custom agenda views.
+
+#+begin_src emacs-lisp :tangle no :noweb-ref org-productivity-setup
+(use-package org-ql
+  :straight (:fetcher github
+                      :repo "alphapapa/org-ql"
+                      :files (:defaults (:exclude "helm-org-ql.el"))))
+#+end_src
 *** Custom agendas
+Some custom agendas to fit my workflow.
+
+Despite the fact that I don't add =org-trello-files= to =org-agenda-files= I still want to see them in agenda, so I use =org-ql-block= from =org-ql=.
+
 #+begin_src emacs-lisp
 (defun my/org-scheduled-get-time ()
   (let ((scheduled (org-get-scheduled-time (point))))
@@ -2754,6 +2799,13 @@ Log DONE time
           (todo "NEXT"
                 ((org-agenda-prefix-format "  %i %-12:c [%e] ")
                  (org-agenda-overriding-header "Next tasks")))
+          (org-ql-block
+           `(and
+             (regexp ,(rx ":orgtrello_users:" (* nonl) "sqrtminusone"))
+             (todo)
+             (deadline))
+           ((org-agenda-files ',org-trello-files)
+            (org-ql-block-header "Trello assigned")))
           (tags-todo "inbox"
                      ((org-agenda-overriding-header "Inbox")
                       (org-agenda-prefix-format " %i %-12:c")
@@ -2766,15 +2818,6 @@ Log DONE time
          ((tags-todo "personal"
                      ((org-agenda-prefix-format "  %i %-12:c [%e] ")))))))
 #+end_src
-*** org-ql
-[[https://github.com/alphapapa/org-ql][org-ql]] is a package to query the org files. I'm using it in my review workflow, perhaps later I'll find another usecases.
-
-#+begin_src emacs-lisp :tangle no :noweb-ref org-productivity-setup
-(use-package org-ql
-  :straight (:fetcher github
-                      :repo "alphapapa/org-ql"
-                      :files (:defaults (:exclude "helm-org-ql.el"))))
-#+end_src
 *** Review workflow
 My take on a review workflow. As a baseline, I want to have a template that lists the important changes since the last review and other basic information. I'm doing reviews regularly, but the time intervals still may vary, hence this flexibility.
 
@@ -3180,6 +3223,23 @@ There are some problems with org roam v2, so I disabled it as of now. I will pro
   :config
   (org-roam-bibtex-mode))
 #+end_src
+*** Managing tables
+I use Org to manage some small tables which I want to process further. So here is a function that saves each table to a CSV file.
+#+begin_src emacs-lisp
+(defun my/export-org-tables-to-csv ()
+  (interactive)
+  (org-table-map-tables
+   (lambda ()
+     (when-let
+         (name
+          (plist-get (cadr (org-element-at-point)) :name))
+       (org-table-export
+        (concat
+         (file-name-directory
+          (buffer-file-name))
+         name ".csv")
+        "orgtbl-to-csv")))))
+#+end_src
 ** UI
 *** OFF (OFF) Instant equations preview
 Instant math previews for org mode.
@@ -5208,15 +5268,22 @@ After all this is done, run =M-x emms-cache-set-from-mpd-all= to set cache from
 | Guix dependency |
 |-----------------|
 | mpv             |
-| youtube-dl      |
+| yt-dlp          |
 
-[[https://mpv.io/][mpv]] is a decent media player, which has found a place in this configuration because it integrates with youtube-dl.
+[[https://mpv.io/][mpv]] is a decent media player, which has found a place in this configuration because it integrates with +youtube-dl+ yt-dlp.
+
+It looks like YouTube has started to throttle youtube-dl, and yt-dlp has a workaround for that particular case. Just don't forget to add the following like to the mpv config:
+#+begin_src conf-unix :tangle ~/.config/mpv/mpv.conf
+script-opts=ytdl_hook-ytdl_path=yt-dlp
+#+end_src
+
+It seems a bit strange to keep the MPV config in this file, but I don't use the program outside Emacs.
 
 #+begin_src emacs-lisp
 (add-to-list 'emms-player-list 'emms-player-mpv t)
 #+end_src
 
-Also a custom regex. My demands for MPV include running =youtube-dl=, so there is a regex that matches youtube.com or some of the video formats.
+Also a custom regex. My demands for MPV include running =yt-dlp=, so there is a regex that matches youtube.com or some of the video formats.
 #+begin_src emacs-lisp
 (emms-player-set emms-player-mpv
                  'regex
@@ -5822,6 +5889,16 @@ In order for this to work in Guix, a service is necessary - [[file:Desktop.org::
                       (setq zone-programs (vector (cdr elem)))
                       (zone))))
 #+end_src
+
+Also, a function to copy a URL to the video under cursor.
+#+begin_src emacs-lisp
+(defun my/ytel-kill-url ()
+  (interactive)
+  (kill-new
+   (concat
+    "https://www.youtube.com/watch?v="
+    (ytel-video-id (ytel-get-current-video)))))
+#+end_src
 * Guix settings
 | Guix dependency     | Description                   |
 |---------------------+-------------------------------|

README.org

@@ -86,8 +86,7 @@ Uses yadm's =post_alt= hook to create symlinks
 Mail/thexcloud/.credentials.gmailieer.json
 Mail/progin6304/.credentials.gmailieer.json
 .emacs.d/dired-bookmarks.el
-.emacs.d/elfeed.org
 .emacs.d/private.org
-.emacs.d/prodigy-config.el
 .emacs.d/private.el
+.emacs.d/.trello/sqrtminusone.el
 #+end_src