From 5cf99842263f585663d918516ced871e12804e27 Mon Sep 17 00:00:00 2001
From: Maciej Szlosarczyk <maciej@sosek.net>
Date: Mon, 9 Sep 2024 08:04:58 +0300
Subject: [PATCH] Minor tweaks and fixes

- ensure certain variables are copied from .zprofile
- shorten which-key delay
- increase garbage collection threshold
---
 lisp/icejam-base.el        | 16 ++++++++++------
 lisp/icejam-custom-init.el |  4 ++--
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/lisp/icejam-base.el b/lisp/icejam-base.el
index 7be5613..c5b4db5 100644
--- a/lisp/icejam-base.el
+++ b/lisp/icejam-base.el
@@ -78,7 +78,7 @@
 (setq large-file-warning-threshold 50000000)
 
 ;; Numbers are arbitrary, but work on a large screen. Default is 160
-(setq split-width-threshold 180)
+(setq split-width-threshold 200)
 ;;;;;;;;;;;;;;;;;;;;;; Shell stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
 
@@ -87,10 +87,12 @@
 
 ;; Allow to execute path from shell
 (use-package exec-path-from-shell
-             :if (memq window-system '(x mac ns))
-             :straight t
-             :config (add-to-list 'exec-path "/usr/local/bin")
-             (exec-path-from-shell-initialize))
+  :if (memq window-system '(x mac ns))
+  :straight t
+  :config (add-to-list 'exec-path "/usr/local/bin")
+  (dolist (var '("DEFT_PATH" "LANG" "LC_CTYPE"))
+    (add-to-list 'exec-path-from-shell-variables var))
+  (exec-path-from-shell-initialize))
 
 (use-package direnv :straight t :config (direnv-mode))
 
@@ -125,7 +127,9 @@
 ;;;;;;;;;;;;;;;;; Show hints about key combinations
 (use-package which-key
   :straight t
-  :config (which-key-mode t))
+  :config
+  (setq which-key-idle-delay 0.5)
+  (which-key-mode t))
 
 ;;;;;;;;;;;;;;;;; Use C-n to create a new line
 (setq next-line-add-newlines t)
diff --git a/lisp/icejam-custom-init.el b/lisp/icejam-custom-init.el
index c5fa15b..a8f3653 100644
--- a/lisp/icejam-custom-init.el
+++ b/lisp/icejam-custom-init.el
@@ -93,8 +93,8 @@
 (require 'icejam-diminish)
 
 ;; Restore GC to normal, but still high
-(setq gc-cons-threshold 100000000)
-(setq gc-cons-percentage 0.1)
+(setq gc-cons-threshold 200000000)
+(setq gc-cons-percentage 0.2)
 
 (provide 'icejam-custom-init)
 ;;; icejam-custom-init.el ends here