From 6f59279e3b116f109a72dcbc85a05fb2e20201d1 Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 4 Jun 2024 19:58:28 -0600 Subject: Swap noto-emoji for font-openmoji, (which does not crash?) --- .config/emacs/modules/bd--devel.el | 6 ++++++ .config/emacs/modules/bd--tabs.el | 11 +++-------- .config/emacs/modules/bd--windows.el | 10 ++++++++++ .config/guix/modules/base.scm | 4 ++-- 4 files changed, 21 insertions(+), 10 deletions(-) diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el index 25dbb1f..e13a368 100644 --- a/.config/emacs/modules/bd--devel.el +++ b/.config/emacs/modules/bd--devel.el @@ -15,6 +15,12 @@ to.") bd/enable-line-numbers-in-hooks) +;;;; outline mode +(setq-default + outline-minor-mode-cycle t + outline-minor-mode-highlight t) + + ;;;; general (defun request-sudo () "Uses TRAMP to edit current opened file as root." diff --git a/.config/emacs/modules/bd--tabs.el b/.config/emacs/modules/bd--tabs.el index a09cf33..5e18c7b 100644 --- a/.config/emacs/modules/bd--tabs.el +++ b/.config/emacs/modules/bd--tabs.el @@ -11,14 +11,9 @@ '(tab-bar-format-tabs) tab-bar-close-button-show nil) - -;;;; bind tabs to 'Meta' like other applications -(mapcar (lambda (i) - (keymap-global-set (format "M-%d" i) - (lambda () - (interactive) - (tab-bar-select-tab i)))) - (number-sequence 0 9)) +;;;; add useless text elements +(setopt tab-bar-tab-hints t + tab-bar-select-tab-modifiers '(meta)) ;;;; use project name if it exists diff --git a/.config/emacs/modules/bd--windows.el b/.config/emacs/modules/bd--windows.el index b92eb1a..d14e325 100644 --- a/.config/emacs/modules/bd--windows.el +++ b/.config/emacs/modules/bd--windows.el @@ -37,6 +37,16 @@ dedicated buffer will never be automatically orphaned." (if dedicated "no longer " "") (buffer-name)))) +;; reading mode +(defun split-and-follow () + (interactive) + (delete-other-windows) + (split-window-horizontally) + (split-window-horizontally) + (balance-windows) + (other-window -1) + (follow-mode 1)) + ;; alpha (defun bd/clamp (lower-bound upper-bound value) (max lower-bound (min value upper-bound))) diff --git a/.config/guix/modules/base.scm b/.config/guix/modules/base.scm index 70fd690..248fe0a 100644 --- a/.config/guix/modules/base.scm +++ b/.config/guix/modules/base.scm @@ -32,7 +32,7 @@ cryptsetup ;; cryptsetup curl ;; curl databases ;; recutils - fonts ;; font-google-noto-emoji, font-terminus + fonts ;; font-terminus, font-openmoji fontutils ;; fontconfig gimp ;; gimp-next gnupg ;; gnupg, pinentry, pinentry-emacs @@ -84,7 +84,7 @@ ffmpeg flameshot fontconfig - font-google-noto-emoji + font-openmoji font-terminus gimp-next icecat -- cgit v1.2.3