From f35c9105509b1c5e01081cf413c68cec575a9047 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 25 May 2022 23:24:31 +0100
Subject: nits

---
 init.org | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 282030d..68e56a7 100644
--- a/init.org
+++ b/init.org
@@ -299,13 +299,10 @@
       #+begin_src emacs-lisp
         (defun jao--set-fontsets (_f)
           (set-fontset-font t 64257 "Quivira" nil)
-          (set-fontset-font t 'egyptian "Noto Sans Egyptian Hieroglyphs"
-                            nil)
+          (set-fontset-font t 'egyptian "Noto Sans Egyptian Hieroglyphs" nil)
           (set-fontset-font t 'hangul "NanumGothicCoding" nil)
-          (set-fontset-font t 'unicode (face-attribute 'default :family)
-                            nil)
-          (set-fontset-font t 'unicode-bmp (face-attribute 'default :family)
-                            nil)
+          (set-fontset-font t 'unicode (face-attribute 'default :family) nil)
+          (set-fontset-font t 'unicode-bmp (face-attribute 'default :family) nil)
           (set-fontset-font t 'symbol "Symbola-10" nil)
           (set-fontset-font t 'greek "GFS Didot" nil)
           (set-fontset-font t 'mathematical "FreeSerif" nil)
@@ -1332,12 +1329,11 @@
 * Frames
 *** Frame geometry
     #+begin_src emacs-lisp
-      (setq frame-resize-pixelwise nil)
-      ;;; modeline, toolbars and co.
+      (setq frame-resize-pixelwise t)
       (modify-all-frames-parameters
        `((horizontal-scroll-bars . nil)
          (vertical-scroll-bars . nil)
-         (scroll-bar-width . 11)
+         (scroll-bar-width . 0)
          (menu-bar . nil)))
     #+end_src
 *** Frame layout, title, etc.
@@ -1503,7 +1499,7 @@
         (add-to-list 'auto-mode-alist (cons ext 'markdown-mode)))
     #+END_SRC
 *** TeX and LaTex
-    #+BEGIN_SRC emacs-lisp
+    #+begin_src emacs-lisp
       (use-package tex-site
         :ensure auctex
         :init
@@ -1540,13 +1536,13 @@
         (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
         )
 
-;; (use-package ebib
+      ;; (use-package ebib
       ;;  :ensure t
       ;;  :config (setq ebib-bibtex-dialect 'biblatex))
 
       ;; for M-x biblio-lookup
       ;; (use-package biblio :ensure t)
-    #+END_SRC
+    #+end_src
 * Browsing
 *** Variables
     #+begin_src emacs-lisp
@@ -2009,8 +2005,7 @@
                     vterm-copy-exclude-prompt t
                     jao-use-vterm t)
         :config (jao-define-attached-buffer "\\*vterm\\*" 0.5)
-        :bind (("<f3>" . vterm)
-               :map vterm-mode-map ("C-c C-c" . vterm-send-C-c)))
+        :bind (:map vterm-mode-map ("C-c C-c" . vterm-send-C-c)))
 
       (defun jao-exec-in-vterm (cmd bname)
         (if (string-blank-p (or cmd ""))
@@ -2647,7 +2642,8 @@
                     cider-use-fringe-indicators nil
                     cider-use-overlays nil
                     clojure-docstring-fill-column 72
-                    nrepl-prompt-to-kill-server-buffer-on-quit nil))
+                    nrepl-prompt-to-kill-server-buffer-on-quit nil)
+        :bind (("<f3>" . cider-selector)))
 
       (with-eval-after-load "cider-test"
         (advice-add 'cider-scale-background-color :override
@@ -2960,10 +2956,15 @@
               lui-time-stamp-format "%H:%M"
               lui-flyspell-p nil
 
-              lui-track-indicator 'fringe
+              lui-track-indicator (if window-system 'fringe 'bar)
               lui-track-behavior 'before-tracking-next-buffer)
         :config
 
+        (define-minor-mode jao-circe-user-number-mode ""
+          :lighter (:eval (format " [%s]" (length (circe-channel-nicks)))))
+
+        (add-hook 'circe-channel-mode-hook #'jao-circe-user-number-mode)
+
         (defun circe-command-RECOVER (&rest ignore)
           "Recover nick"
           (let* ((fn (jao--get-user/password "freenode"))
-- 
cgit v1.2.3