From 4ccc0bbc412b68e1401533264d801d86b1fc8cc7 Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Fri, 5 Jan 2024 18:27:27 +0300
Subject: [PATCH] emacs: add chess

---
 .config/guix/manifests/dev.scm |  1 +
 .emacs.d/init.el               | 48 +++++++++++++++++++
 Desktop.org                    |  1 +
 Emacs.org                      | 88 +++++++++++++++++++++++++++++++++-
 4 files changed, 136 insertions(+), 2 deletions(-)

diff --git a/.config/guix/manifests/dev.scm b/.config/guix/manifests/dev.scm
index bbbee1a..676dc8b 100644
--- a/.config/guix/manifests/dev.scm
+++ b/.config/guix/manifests/dev.scm
@@ -1,5 +1,6 @@
 (specifications->manifest
  '(
+   "python-chess"
    "wireshark"
    "socat"
    "leiningen"
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index abd730b..2766c93 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -538,6 +538,10 @@ then it takes a second \\[keyboard-quit] to abort the minibuffer."
 
 (setq default-input-method "russian-computer")
 
+(general-define-key
+ :keymaps 'global
+ "M-\\" #'toggle-input-method)
+
 (use-package smartparens
   :straight t)
 
@@ -5093,6 +5097,16 @@ KEYS is a list of cons cells like (<label> . <time>)."
          (mml-minibuffer-read-description)
          (mml-minibuffer-read-disposition type nil file))))))
 
+(defun my/notmuch-save-to-dired (arg)
+  (interactive
+   (list (prefix-numeric-value current-prefix-arg)))
+  (if (eq arg 4)
+      (let ((default-directory
+             (with-current-buffer (my/get-good-buffer 'dired-mode "Dired buffer: ")
+               (dired-current-directory))))
+        (notmuch-show-save-part))
+    (notmuch-show-save-part)))
+
 (defun my/dired-attach-to-ement (files ement-buffer)
   (interactive
    (list (dired-get-marked-files nil nil #'dired-nondirectory-p)
@@ -5138,6 +5152,12 @@ KEYS is a list of cons cells like (<label> . <time>)."
    :keymaps 'telega-msg-button-map
    "S" #'my/telega-save-to-dired))
 
+(with-eval-after-load 'notmuch
+  (general-define-key
+   :keymaps 'notmuch-show-mode-map
+   :states 'normal
+   ". s" #'my/notmuch-save-to-dired))
+
 (when my/is-termux
   (straight-use-package 'vterm))
 
@@ -7864,6 +7884,15 @@ to `dired' if used interactively."
 (my-leader-def
   "i" #'my/index-nav)
 
+(defun my/index-export (file)
+  (interactive (list (read-file-name "File: " "~/logs-sync/data/index.json")))
+  (let ((full-tree (my/index--tree-retrive)))
+    (unless (file-exists-p (file-name-directory file))
+      (make-directory (file-name-directory file) t))
+    (with-temp-file file
+      (insert (json-encode full-tree))
+      (json-pretty-print-buffer))))
+
 (use-package pass
   :straight t
   :commands (pass)
@@ -7961,6 +7990,25 @@ to `dired' if used interactively."
 (setq calendar-latitude 59.9375)
 (setq calendar-longitude 30.308611)
 
+(use-package chess
+  :straight t)
+
+(setq my/chess-python "/home/pavel/.guix-extra-profiles/dev/dev/bin/python3")
+
+(defun org-babel-execute:pgn (body params)
+  (let ((out-file (or (alist-get :file params)
+                      (org-babel-temp-file "pgn-" ".svg"))))
+    (org-babel-eval
+     (format "%s %s '%s' '%s'" my/chess-python
+             "~/bin/python-scripts/render_pgn.py"
+             body out-file)
+     "")
+    nil))
+
+(defvar org-babel-default-header-args:pgn
+  '((:results . "file") (:exports . "results"))
+  "Default arguments for evaluating a pgn source block.")
+
 (defun my/elcord-mask-buffer-name (name)
   (cond
    ((string-match-p (rx bos (? "CAPTURE-") (= 14 num) "-" (* not-newline) ".org" eos) name)
diff --git a/Desktop.org b/Desktop.org
index 00a9320..0910a76 100644
--- a/Desktop.org
+++ b/Desktop.org
@@ -3744,6 +3744,7 @@ This section generates manifests for various desktop software that I'm using.
 | dev      | leiningen         |          |
 | dev      | socat             |          |
 | dev      | wireshark         |          |
+| dev      | python-chess      |          |
 ** Manifests
 #+NAME: packages
 #+begin_src emacs-lisp :tangle no :var category=""
diff --git a/Emacs.org b/Emacs.org
index f11c203..da9c8da 100644
--- a/Emacs.org
+++ b/Emacs.org
@@ -964,7 +964,7 @@ References:
 
 #+begin_src emacs-lisp
 (general-define-key
- :keymaps 'global-map
+ :keymaps 'global
  "M-\\" #'toggle-input-method)
 #+end_src
 
@@ -7072,7 +7072,7 @@ Attach file to telega.
       (telega-chatbuf-attach-file file))))
 #+end_src
 
-Save a file to a dired buffer.
+Save a telega file to a dired buffer.
 #+begin_src emacs-lisp
 (defun my/telega-save-to-dired (msg arg)
   (interactive
@@ -7107,6 +7107,19 @@ Attach files to notmuch.
          (mml-minibuffer-read-disposition type nil file))))))
 #+end_src
 
+Save a notmuch file to a dired buffer.
+#+begin_src emacs-lisp
+(defun my/notmuch-save-to-dired (arg)
+  (interactive
+   (list (prefix-numeric-value current-prefix-arg)))
+  (if (eq arg 4)
+      (let ((default-directory
+             (with-current-buffer (my/get-good-buffer 'dired-mode "Dired buffer: ")
+               (dired-current-directory))))
+        (notmuch-show-save-part))
+    (notmuch-show-save-part)))
+#+end_src
+
 Attach files to ement.
 #+begin_src emacs-lisp
 (defun my/dired-attach-to-ement (files ement-buffer)
@@ -7162,6 +7175,14 @@ And the keybindings:
    :keymaps 'telega-msg-button-map
    "S" #'my/telega-save-to-dired))
 #+end_src
+
+#+begin_src emacs-lisp
+(with-eval-after-load 'notmuch
+  (general-define-key
+   :keymaps 'notmuch-show-mode-map
+   :states 'normal
+   ". s" #'my/notmuch-save-to-dired))
+#+end_src
 ** Shells / Terminals
 *** vterm
 My terminal emulator of choice.
@@ -10789,6 +10810,19 @@ Finally, something that I can bind to a key.
 (my-leader-def
   "i" #'my/index-nav)
 #+end_src
+*** Export tree
+I also need the tree to use in my =sqrt-data=, so let's export this to JSON.
+
+#+begin_src emacs-lisp
+(defun my/index-export (file)
+  (interactive (list (read-file-name "File: " "~/logs-sync/data/index.json")))
+  (let ((full-tree (my/index--tree-retrive)))
+    (unless (file-exists-p (file-name-directory file))
+      (make-directory (file-name-directory file) t))
+    (with-temp-file file
+      (insert (json-encode full-tree))
+      (json-pretty-print-buffer))))
+#+end_src
 ** Utilities
 *** pass
 I use [[https://www.passwordstore.org/][pass]] as my password manager. Expectedly, there is Emacs frontend for it.
@@ -10957,6 +10991,56 @@ Emacs' built-in calendar. Can even calculate sunrise and sunset times.
 (setq calendar-latitude 59.9375)
 (setq calendar-longitude 30.308611)
 #+end_src
+** Chess
+*** chess.el
+chess.el is a package by John Wiegley.
+
+#+begin_src emacs-lisp
+(use-package chess
+  :straight t)
+#+end_src
+
+*** Render PGN
+A Python script to convert a PGN string to SVG:
+#+begin_src python :tangle ~/bin/python-scripts/render_pgn.py
+import chess
+import chess.svg
+import chess.pgn
+import io
+import sys
+
+pgn = sys.argv[1]
+out_file = sys.argv[2]
+
+game = chess.pgn.read_game(io.StringIO(pgn))
+game = game.end()
+board = game.board()
+svg = chess.svg.board(board=board)
+with open(out_file, 'w') as f:
+    f.write(svg)
+#+end_src
+
+=python-chess= is installed in the =dev= profile because =python3= is also there.
+
+An =org-babel= block:
+#+begin_src emacs-lisp
+(setq my/chess-python "/home/pavel/.guix-extra-profiles/dev/dev/bin/python3")
+
+(defun org-babel-execute:pgn (body params)
+  (let ((out-file (or (alist-get :file params)
+                      (org-babel-temp-file "pgn-" ".svg"))))
+    (org-babel-eval
+     (format "%s %s '%s' '%s'" my/chess-python
+             "~/bin/python-scripts/render_pgn.py"
+             body out-file)
+     "")
+    nil))
+
+(defvar org-babel-default-header-args:pgn
+  '((:results . "file") (:exports . "results"))
+  "Default arguments for evaluating a pgn source block.")
+#+end_src
+
 ** Fun
 *** Discord integration
 Integration with Discord. Shows which file is being edited in Emacs.