arch: upd

.config/metapac/groups/console.toml

@@ -1,4 +1,5 @@
 arch = [
+"bluetui",
 "bashmount",
 "pv",
 "man-db",

.config/pudb/pudb.cfg

@@ -7,9 +7,14 @@ custom_theme =
 default_variables_access_level = public
 display = auto
 hide_cmdline_win = False
+hotkeys_breakpoints = B
+hotkeys_code = C
+hotkeys_stack = S
+hotkeys_toggle_cmdline_focus = ctrl x
+hotkeys_variables = V
 line_numbers = True
 prompt_on_quit = True
-seen_welcome = e036
+seen_welcome = e054
 shell = internal
 sidebar_width = 0.6710886400000001
 stack_weight = 1

.emacs.d/init.el

@@ -169,100 +169,48 @@
 (push my/modules-dir load-path)
 
 (pcase my/env
-  ("normal"
+  ("normal" (require 'sqrt-performance) (require 'sqrt-micromamba)
-   (require 'sqrt-performance)
+   (require 'sqrt-misc-initial) (require 'sqrt-keybindings)
-   (require 'sqrt-micromamba)
+   (require 'sqrt-i3) (require 'sqrt-general-config)
-   (require 'sqrt-misc-initial)
+   (require 'sqrt-wakatime) (require 'sqrt-activitywatch)
-   (require 'sqrt-keybindings)
+   (require 'sqrt-general-ui) (require 'sqrt-doom-modeline)
-   (require 'sqrt-i3)
+   (require 'sqrt-perspective) (require 'sqrt-treemacs)
-   (require 'sqrt-general-config)
+   (require 'sqrt-lsp) (require 'sqrt-flycheck)
-   (require 'sqrt-wakatime)
+   (require 'sqrt-tree-sitter) (require 'sqrt-reformatter)
-   (require 'sqrt-activitywatch)
+   (require 'sqrt-web) (require 'sqrt-latex) (require 'sqrt-markup)
-   (require 'sqrt-general-ui)
+   (require 'sqrt-lisp) (require 'sqrt-misc-programming)
-   (require 'sqrt-doom-modeline)
+   (require 'sqrt-general-org) (require 'sqrt-org-literate)
-   (require 'sqrt-perspective)
+   (require 'sqrt-org-productivity) (require 'sqrt-org-export)
-   (require 'sqrt-treemacs)
+   (require 'sqrt-dired) (require 'sqrt-tramp) (require 'sqrt-terms)
-   (require 'sqrt-lsp)
+   (require 'sqrt-dotfiles) (require 'sqrt-elfeed)
-   (require 'sqrt-flycheck)
+   (require 'sqrt-mail) (require 'sqrt-gnus) (require 'sqrt-emms)
-   (require 'sqrt-tree-sitter)
+   (require 'sqrt-misc-internet) (require 'sqrt-erc)
-   (require 'sqrt-reformatter)
+   (require 'sqrt-mastodon) (require 'sqrt-ement)
-   (require 'sqrt-web)
+   (require 'sqrt-telega) (require 'sqrt-docs) (require 'sqrt-ai)
-   (require 'sqrt-latex)
+   (require 'sqrt-index) (require 'sqrt-deterred) (require 'sqrt-pass)
-   (require 'sqrt-markup)
+   (require 'sqrt-docker) (require 'sqrt-misc-apps)
-   (require 'sqrt-lisp)
+   (require 'sqrt-guix) (require 'sqrt-productivity-apps)
-   (require 'sqrt-misc-programming)
+   (require 'sqrt-chess) (require 'sqrt-gource))
-   (require 'sqrt-general-org)
+  ("termux" (require 'sqrt-performance) (require 'sqrt-misc-initial)
-   (require 'sqrt-org-literate)
+   (require 'sqrt-keybindings) (require 'sqrt-termux)
-   (require 'sqrt-org-productivity)
+   (require 'sqrt-general-config) (require 'sqrt-wakatime)
-   (require 'sqrt-org-export)
+   (require 'sqrt-general-ui) (require 'sqrt-doom-modeline)
-   (require 'sqrt-dired)
+   (require 'sqrt-perspective) (require 'sqrt-treemacs)
-   (require 'sqrt-tramp)
+   (require 'sqrt-flycheck) (require 'sqrt-tree-sitter)
-   (require 'sqrt-terms)
+   (require 'sqrt-latex) (require 'sqrt-markup) (require 'sqrt-lisp)
-   (require 'sqrt-dotfiles)
+   (require 'sqrt-general-org) (require 'sqrt-org-productivity)
-   (require 'sqrt-elfeed)
+   (require 'sqrt-dired) (require 'sqrt-terms)
-   (require 'sqrt-mail)
+   (require 'sqrt-dotfiles) (require 'sqrt-misc-internet)
-   (require 'sqrt-gnus)
+   (require 'sqrt-telega) (require 'sqrt-docs) (require 'sqrt-index)
-   (require 'sqrt-emms)
+   (require 'sqrt-pass) (require 'sqrt-misc-apps)
-   (require 'sqrt-misc-internet)
+   (require 'sqrt-emacs-pinentry) (require 'sqrt-productivity-apps))
-   (require 'sqrt-erc)
+  ("remote" (require 'sqrt-performance) (require 'sqrt-misc-initial)
-   (require 'sqrt-mastodon)
+   (require 'sqrt-keybindings) (require 'sqrt-general-config)
-   (require 'sqrt-ement)
+   (require 'sqrt-general-ui) (require 'sqrt-doom-modeline)
-   (require 'sqrt-telega)
+   (require 'sqrt-perspective) (require 'sqrt-flycheck)
-   (require 'sqrt-docs)
+   (require 'sqrt-tree-sitter) (require 'sqrt-markup)
-   (require 'sqrt-ai)
+   (require 'sqrt-lisp) (require 'sqrt-dired) (require 'sqrt-terms)
-   (require 'sqrt-index)
+   (require 'sqrt-dotfiles) (require 'sqrt-misc-internet)))
-   (require 'sqrt-pass)
-   (require 'sqrt-docker)
-   (require 'sqrt-misc-apps)
-   (require 'sqrt-guix)
-   (require 'sqrt-productivity-apps)
-   (require 'sqrt-chess)
-   (require 'sqrt-gource))
-  ("termux"
-   (require 'sqrt-performance)
-   (require 'sqrt-misc-initial)
-   (require 'sqrt-keybindings)
-   (require 'sqrt-termux)
-   (require 'sqrt-general-config)
-   (require 'sqrt-wakatime)
-   (require 'sqrt-general-ui)
-   (require 'sqrt-doom-modeline)
-   (require 'sqrt-perspective)
-   (require 'sqrt-treemacs)
-   (require 'sqrt-flycheck)
-   (require 'sqrt-tree-sitter)
-   (require 'sqrt-latex)
-   (require 'sqrt-markup)
-   (require 'sqrt-lisp)
-   (require 'sqrt-general-org)
-   (require 'sqrt-org-productivity)
-   (require 'sqrt-dired)
-   (require 'sqrt-terms)
-   (require 'sqrt-dotfiles)
-   (require 'sqrt-misc-internet)
-   (require 'sqrt-telega)
-   (require 'sqrt-docs)
-   (require 'sqrt-index)
-   (require 'sqrt-pass)
-   (require 'sqrt-misc-apps)
-   (require 'sqrt-emacs-pinentry)
-   (require 'sqrt-productivity-apps))
-  ("remote"
-   (require 'sqrt-performance)
-   (require 'sqrt-misc-initial)
-   (require 'sqrt-keybindings)
-   (require 'sqrt-general-config)
-   (require 'sqrt-general-ui)
-   (require 'sqrt-doom-modeline)
-   (require 'sqrt-perspective)
-   (require 'sqrt-flycheck)
-   (require 'sqrt-tree-sitter)
-   (require 'sqrt-markup)
-   (require 'sqrt-lisp)
-   (require 'sqrt-dired)
-   (require 'sqrt-terms)
-   (require 'sqrt-dotfiles)
-   (require 'sqrt-misc-internet)))
 
 (defun my/modules--post-tangle ()
   (when (string-match-p (rx bos (literal my/modules-dir)

.emacs.d/modules/sqrt-deterred.el

@@ -0,0 +1,56 @@
+;;; -*- lexical-binding: t -*-
+(use-package deterred
+  :if (file-exists-p "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.R Repos/13.02.R.05 deterred/")
+  :straight (:local-repo
+             "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.R Repos/13.02.R.05 deterred/"
+             :files (:defaults "dashboards/*.el" "migrations" "python"))
+  :commands (deterred)
+  :init
+  (my-leader-def "ag" #'deterred)
+  :config
+  (setq deterred-sources
+        (list
+         (deterred-activitywatch)
+         (deterred-digikam :digikam-db "~/30-39 Life/35 Photos/35.00D DigiKam/digikam4.db")
+         (deterred-habits :org-files '("~/30-39 Life/32 org-mode/misc/habit.org"))
+         ;; (deterred-locations)
+         (deterred-mastodon :server "https://mastodon.bsd.cafe/"
+                            :account-id 113136872089175263)
+         (deterred-messengers)
+         (deterred-mpd)
+         (deterred-org-journal-tags)
+         (deterred-read-it-later :sources '(readeck))
+         (deterred-reddit)
+         (deterred-podcasts)
+         (deterred-wakatime)))
+
+  (setq deterred-backups-location "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.B Backups/13.02.B.01 deterred/")
+  (setq deterred-dashboard-python "/home/pavel/micromamba/envs/deterred/bin/python")
+  (setq deterred-messengers-my-id "098236bb-5fc5-4a04-8b6d-477afa5105fa")
+  (setq deterred-digikam-folder "~/30-39 Life/35 Photos/")
+  (setq deterred-wakatime-api-key (my/password-store-get "My_Online/APIs/wakatime"))
+  (setq deterred-wakatime-project-name-map
+        '(("digital-nlp-docs-3" . "digital-nlp-docs-3 (Graduate)")
+          ("digital-nlp-docs" . "digital-nlp-docs (Master's)")))
+  (setq deterred-wakatime-process-project-name
+        (lambda (name)
+          (let ((result (string-replace
+                         "\\" ""
+                         (my/index--bare-project-name name))))
+            (or (alist-get result deterred-wakatime-project-name-map
+                           nil nil #'equal)
+                result))))
+  (setq deterred-read-it-later-readeck-token
+        (my/password-store-get-field "Selfhosted/readeck" "deterred_api_token"))
+  (setq deterred-read-it-later-readeck-url "https://readeck.sqrtminusone.xyz/")
+  (setq deterred-read-it-later-wallabag-url "https://wallabag.sqrtminusone.xyz/")
+  (setq deterred-read-it-later-wallabag-client-id
+        (my/password-store-get-field "Selfhosted/wallabag" "client_id"))
+  (setq deterred-read-it-later-wallabag-client-secret
+        (my/password-store-get-field "Selfhosted/wallabag" "client_secret"))
+  (setq deterred-read-it-later-wallabag-username
+        (my/password-store-get-field "Selfhosted/wallabag" "username"))
+  (setq deterred-read-it-later-wallabag-password
+        (my/password-store-get "Selfhosted/wallabag")))
+
+(provide 'sqrt-deterred)

Arch.org

@@ -125,7 +125,7 @@ If everything works, login into EXWM.
 Create some directories:
 #+begin_src bash
 mkdir -p /home/pavel/Pictures/screenshots/
-mkdir -p /home/pavel/.mpd/
+mkdir -p /home/pavel/.mpd/playlists/
 #+end_src
 
 Also run:

Console.org

@@ -948,6 +948,7 @@ keymap_mode = "vim-insert"
 | man-db          |                                             |          |
 | pv              |                                             |          |
 | bashmount       | TUI to manage mounts                        |          |
+| bluetui         | TUI to manage bluetooth                     |          |
 
 ** ripgrep config
 Occasionally I can't exclude certain files from ripgrep via the VCS settings, so here is a simple config to ignore certain files globally.

Emacs.org

@@ -221,6 +221,7 @@ Below is the configuration table that shows which module is activated in which e
 | docs              | +      | +      |        |
 | ai                | +      |        |        |
 | index             | +      | +      |        |
+| deterred          | +      |        |        |
 | pass              | +      | +      |        |
 | docker            | +      |        |        |
 | misc-apps         | +      | +      |        |
@@ -389,100 +390,48 @@ And require the necessary modules with the autogenerated code:
 #+NAME: modules-loading
 #+begin_src emacs-lisp
 (pcase my/env
-  ("normal"
+  ("normal" (require 'sqrt-performance) (require 'sqrt-micromamba)
-   (require 'sqrt-performance)
+   (require 'sqrt-misc-initial) (require 'sqrt-keybindings)
-   (require 'sqrt-micromamba)
+   (require 'sqrt-i3) (require 'sqrt-general-config)
-   (require 'sqrt-misc-initial)
+   (require 'sqrt-wakatime) (require 'sqrt-activitywatch)
-   (require 'sqrt-keybindings)
+   (require 'sqrt-general-ui) (require 'sqrt-doom-modeline)
-   (require 'sqrt-i3)
+   (require 'sqrt-perspective) (require 'sqrt-treemacs)
-   (require 'sqrt-general-config)
+   (require 'sqrt-lsp) (require 'sqrt-flycheck)
-   (require 'sqrt-wakatime)
+   (require 'sqrt-tree-sitter) (require 'sqrt-reformatter)
-   (require 'sqrt-activitywatch)
+   (require 'sqrt-web) (require 'sqrt-latex) (require 'sqrt-markup)
-   (require 'sqrt-general-ui)
+   (require 'sqrt-lisp) (require 'sqrt-misc-programming)
-   (require 'sqrt-doom-modeline)
+   (require 'sqrt-general-org) (require 'sqrt-org-literate)
-   (require 'sqrt-perspective)
+   (require 'sqrt-org-productivity) (require 'sqrt-org-export)
-   (require 'sqrt-treemacs)
+   (require 'sqrt-dired) (require 'sqrt-tramp) (require 'sqrt-terms)
-   (require 'sqrt-lsp)
+   (require 'sqrt-dotfiles) (require 'sqrt-elfeed)
-   (require 'sqrt-flycheck)
+   (require 'sqrt-mail) (require 'sqrt-gnus) (require 'sqrt-emms)
-   (require 'sqrt-tree-sitter)
+   (require 'sqrt-misc-internet) (require 'sqrt-erc)
-   (require 'sqrt-reformatter)
+   (require 'sqrt-mastodon) (require 'sqrt-ement)
-   (require 'sqrt-web)
+   (require 'sqrt-telega) (require 'sqrt-docs) (require 'sqrt-ai)
-   (require 'sqrt-latex)
+   (require 'sqrt-index) (require 'sqrt-deterred) (require 'sqrt-pass)
-   (require 'sqrt-markup)
+   (require 'sqrt-docker) (require 'sqrt-misc-apps)
-   (require 'sqrt-lisp)
+   (require 'sqrt-guix) (require 'sqrt-productivity-apps)
-   (require 'sqrt-misc-programming)
+   (require 'sqrt-chess) (require 'sqrt-gource))
-   (require 'sqrt-general-org)
+  ("termux" (require 'sqrt-performance) (require 'sqrt-misc-initial)
-   (require 'sqrt-org-literate)
+   (require 'sqrt-keybindings) (require 'sqrt-termux)
-   (require 'sqrt-org-productivity)
+   (require 'sqrt-general-config) (require 'sqrt-wakatime)
-   (require 'sqrt-org-export)
+   (require 'sqrt-general-ui) (require 'sqrt-doom-modeline)
-   (require 'sqrt-dired)
+   (require 'sqrt-perspective) (require 'sqrt-treemacs)
-   (require 'sqrt-tramp)
+   (require 'sqrt-flycheck) (require 'sqrt-tree-sitter)
-   (require 'sqrt-terms)
+   (require 'sqrt-latex) (require 'sqrt-markup) (require 'sqrt-lisp)
-   (require 'sqrt-dotfiles)
+   (require 'sqrt-general-org) (require 'sqrt-org-productivity)
-   (require 'sqrt-elfeed)
+   (require 'sqrt-dired) (require 'sqrt-terms)
-   (require 'sqrt-mail)
+   (require 'sqrt-dotfiles) (require 'sqrt-misc-internet)
-   (require 'sqrt-gnus)
+   (require 'sqrt-telega) (require 'sqrt-docs) (require 'sqrt-index)
-   (require 'sqrt-emms)
+   (require 'sqrt-pass) (require 'sqrt-misc-apps)
-   (require 'sqrt-misc-internet)
+   (require 'sqrt-emacs-pinentry) (require 'sqrt-productivity-apps))
-   (require 'sqrt-erc)
+  ("remote" (require 'sqrt-performance) (require 'sqrt-misc-initial)
-   (require 'sqrt-mastodon)
+   (require 'sqrt-keybindings) (require 'sqrt-general-config)
-   (require 'sqrt-ement)
+   (require 'sqrt-general-ui) (require 'sqrt-doom-modeline)
-   (require 'sqrt-telega)
+   (require 'sqrt-perspective) (require 'sqrt-flycheck)
-   (require 'sqrt-docs)
+   (require 'sqrt-tree-sitter) (require 'sqrt-markup)
-   (require 'sqrt-ai)
+   (require 'sqrt-lisp) (require 'sqrt-dired) (require 'sqrt-terms)
-   (require 'sqrt-index)
+   (require 'sqrt-dotfiles) (require 'sqrt-misc-internet)))
-   (require 'sqrt-pass)
-   (require 'sqrt-docker)
-   (require 'sqrt-misc-apps)
-   (require 'sqrt-guix)
-   (require 'sqrt-productivity-apps)
-   (require 'sqrt-chess)
-   (require 'sqrt-gource))
-  ("termux"
-   (require 'sqrt-performance)
-   (require 'sqrt-misc-initial)
-   (require 'sqrt-keybindings)
-   (require 'sqrt-termux)
-   (require 'sqrt-general-config)
-   (require 'sqrt-wakatime)
-   (require 'sqrt-general-ui)
-   (require 'sqrt-doom-modeline)
-   (require 'sqrt-perspective)
-   (require 'sqrt-treemacs)
-   (require 'sqrt-flycheck)
-   (require 'sqrt-tree-sitter)
-   (require 'sqrt-latex)
-   (require 'sqrt-markup)
-   (require 'sqrt-lisp)
-   (require 'sqrt-general-org)
-   (require 'sqrt-org-productivity)
-   (require 'sqrt-dired)
-   (require 'sqrt-terms)
-   (require 'sqrt-dotfiles)
-   (require 'sqrt-misc-internet)
-   (require 'sqrt-telega)
-   (require 'sqrt-docs)
-   (require 'sqrt-index)
-   (require 'sqrt-pass)
-   (require 'sqrt-misc-apps)
-   (require 'sqrt-emacs-pinentry)
-   (require 'sqrt-productivity-apps))
-  ("remote"
-   (require 'sqrt-performance)
-   (require 'sqrt-misc-initial)
-   (require 'sqrt-keybindings)
-   (require 'sqrt-general-config)
-   (require 'sqrt-general-ui)
-   (require 'sqrt-doom-modeline)
-   (require 'sqrt-perspective)
-   (require 'sqrt-flycheck)
-   (require 'sqrt-tree-sitter)
-   (require 'sqrt-markup)
-   (require 'sqrt-lisp)
-   (require 'sqrt-dired)
-   (require 'sqrt-terms)
-   (require 'sqrt-dotfiles)
-   (require 'sqrt-misc-internet)))
 
 #+end_src
 
@@ -13526,6 +13475,71 @@ I also need the tree to use in my =sqrt-data=, so let's export this to JSON.
       (insert (json-encode full-tree))
       (json-pretty-print-buffer))))
 #+end_src
+** DETERRED
+:PROPERTIES:
+:MODULE_NAME: deterred
+:header-args:emacs-lisp: :tangle /home/pavel/.emacs.d/modules/sqrt-deterred.el :comments links
+:END:
+
+#+begin_src emacs-lisp
+(use-package deterred
+  :if (file-exists-p "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.R Repos/13.02.R.05 deterred/")
+  :straight (:local-repo
+             "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.R Repos/13.02.R.05 deterred/"
+             :files (:defaults "dashboards/*.el" "migrations" "python"))
+  :commands (deterred)
+  :init
+  (my-leader-def "ag" #'deterred)
+  :config
+  (setq deterred-sources
+        (list
+         (deterred-activitywatch)
+         (deterred-digikam :digikam-db "~/30-39 Life/35 Photos/35.00D DigiKam/digikam4.db")
+         (deterred-habits :org-files '("~/30-39 Life/32 org-mode/misc/habit.org"))
+         ;; (deterred-locations)
+         (deterred-mastodon :server "https://mastodon.bsd.cafe/"
+                            :account-id 113136872089175263)
+         (deterred-messengers)
+         (deterred-mpd)
+         (deterred-org-journal-tags)
+         (deterred-read-it-later :sources '(readeck))
+         (deterred-reddit)
+         (deterred-podcasts)
+         (deterred-wakatime)))
+
+  (setq deterred-backups-location "/home/pavel/10-19 Code/13 Other Projects/13.02 sqrt-data/13.02.B Backups/13.02.B.01 deterred/")
+  (setq deterred-dashboard-python "/home/pavel/micromamba/envs/deterred/bin/python")
+  (setq deterred-messengers-my-id "098236bb-5fc5-4a04-8b6d-477afa5105fa")
+  (setq deterred-digikam-folder "~/30-39 Life/35 Photos/")
+  (setq deterred-wakatime-api-key (my/password-store-get "My_Online/APIs/wakatime"))
+  (setq deterred-wakatime-project-name-map
+        '(("digital-nlp-docs-3" . "digital-nlp-docs-3 (Graduate)")
+          ("digital-nlp-docs" . "digital-nlp-docs (Master's)")))
+  (setq deterred-wakatime-process-project-name
+        (lambda (name)
+          (let ((result (string-replace
+                         "\\" ""
+                         (my/index--bare-project-name name))))
+            (or (alist-get result deterred-wakatime-project-name-map
+                           nil nil #'equal)
+                result))))
+  (setq deterred-read-it-later-readeck-token
+        (my/password-store-get-field "Selfhosted/readeck" "deterred_api_token"))
+  (setq deterred-read-it-later-readeck-url "https://readeck.sqrtminusone.xyz/")
+  (setq deterred-read-it-later-wallabag-url "https://wallabag.sqrtminusone.xyz/")
+  (setq deterred-read-it-later-wallabag-client-id
+        (my/password-store-get-field "Selfhosted/wallabag" "client_id"))
+  (setq deterred-read-it-later-wallabag-client-secret
+        (my/password-store-get-field "Selfhosted/wallabag" "client_secret"))
+  (setq deterred-read-it-later-wallabag-username
+        (my/password-store-get-field "Selfhosted/wallabag" "username"))
+  (setq deterred-read-it-later-wallabag-password
+        (my/password-store-get "Selfhosted/wallabag")))
+#+end_src
+
+#+RESULTS:
+: #s(hash-table data (:use-package (26916 57402 663223 380000) :init (26916 57402 663203 364000) :init-secs (0 0 1572 511000) :use-package-secs (0 0 18205 114000)))
+
 ** Utilities
 *** pass
 :PROPERTIES: