From da4418292f0d4b85ce1a75a8e95d3196f5c3d724 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Mon, 11 Dec 2023 21:01:54 +0100
Subject: [PATCH] Clean up bqn-mode config

No need for maually changing the font, and ne need for customizing the
keymap if we use a US keyboard.
---
 init.el | 33 ++-------------------------------
 1 file changed, 2 insertions(+), 31 deletions(-)

diff --git a/init.el b/init.el
index 33aa54a..2775689 100644
--- a/init.el
+++ b/init.el
@@ -794,39 +794,10 @@
 	      (("C-c d" . bqn-help-symbol-info-at-point)
 	       ("C-c C-d" . bqn-help-symbol-info-at-point)
 	       ("C-c C-c" . bqn-comint-send-dwim)))
-  :custom (bqn-key-prefix ?ù)
+  :custom (bqn-key-prefix ?\\)
   :config
   (require 'bqn-keymap-mode)
-  (defface bqn-default
-    '((t (:height 140 :family "BQN386 Unicode"))) "BQN default face.")
-
-  (defun bqn-init ()
-    (setq buffer-face-mode-face 'bqn-default)
-    (buffer-face-mode))
-
-  (setq bqn-keymap-mode-reference
-	"
-  ┌───────┬────┬────┬────┬────┬────┬────┬────┬────┬────┬────┬────┐
-  ┊(AltGr)┊~ ¬ ┊# ⍟ ┊{ ⊣ ┊[ ← ┊|   ┊` ˜	┊\\   ┊^ ⎊ ┊@   ┊] → ┊} ⊢ ┊
-┌─┴──┬────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼─────────┐
-│    │1 ˘ │2 ¨ │3 ⁼ │4 ⌜ │5 ´ │6 ˝ │7   │8 ∞ │9 ¯ │0 • │°   │+ ⋆ │Backspace│
-│²   │& ⍎ │é   │\" ˙ │' ↩ │( ⟨ │- ÷ │è   │_ √ │ç   │à   │) ⟩ │= × │         │
-├────┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬──────┤
-│Tab    │A ↖ │Z ⋈ │E ⍷ │R 𝕣 │T ⍋ │Y   │U   │I ⊑ │O ⊒ │P ⍳ │¨   │£   │Enter │
-│       │a ⍉ │z ⥊ │e ∊ │r ↑ │t ∧ │y   │u ⊔ │i ⊏ │o ⊐ │p π │^ ⎊ │$ ◶ │      │
-├───────┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┬───┴┐     │
-│Caps    │Q ↙ │S 𝕊 │D   │F 𝔽 │G 𝔾 │H « │J   │K ⌾ │L » │M ≢ │% ⊘ │µ   │     │
-│Lock    │q ⌽ │s 𝕤 │d ↕ │f 𝕗 │g 𝕘 │h ⊸ │j ∘ │k ○ │l ⟜ │m ≡ │ù   │* ⍕ │     │
-├────────┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴──┬─┴────┴─────┤
-│Shift      │W 𝕎 │X 𝕏 │C   │V ⍒ │B ⌈ │N   │? ⇐ │. ≍ │/ ≠ │§ ⎉ │Shift       │
-│           │w 𝕨 │x 𝕩 │c ↓ │v ∨ │b ⌊ │n   │, ∾ │; ⋄ │: · │! ⎉ │            │
-└───────────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────────────┘
-                             Space: ‿
-")
-
-  (add-hook 'bqn-mode-hook 'bqn-init)
-  (add-hook 'bqn-comint-mode-hook 'bqn-init)
-  (add-hook 'bqn-keymap-mode-hook 'bqn-init))
+  (require 'bqn-glyph-mode))
 
 (use-package graphviz-dot-mode
   :straight t