From 73af89d935df5a8166114c9257f9f247f29850bf Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Fri, 26 Apr 2024 18:21:56 +0200
Subject: Migrate from stumpwm to sway and from manifests to home-services.

---
 .emacs.d/init.el         | 10 ++++++++--
 .emacs.d/jd/jd-custom.el | 16 ++++++++++++++++
 .emacs.d/jd/jd-keys.el   | 10 ++++++++++
 .emacs.d/jd/jd-org.el    |  2 ++
 .emacs.d/jd/jd-ui.el     | 15 +++++++++++----
 5 files changed, 47 insertions(+), 6 deletions(-)

(limited to '.emacs.d')

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 96b81da..a0cb8a0 100755
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -3,7 +3,13 @@
 
 ;;; Code:
 
-(setq gc-cons-threshold (* 50 1000 1000))
+;; Minimize garbage collection during startup
+(setq gc-cons-threshold most-positive-fixnum)
+
+;; Lower threshold back to 8 MiB (default is 800kB)
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (setq gc-cons-threshold (expt 2 23))))
 
 (defvar jd/manifest-list
   nil
@@ -119,7 +125,7 @@
 (when jd/exwm-p
   (require 'jd-exwm))
 
-(setq gc-cons-threshold (* 2 1000 1000))
+;; (setq gc-cons-threshold (* 2 1000 1000))
 
 ;;; init.el ends here
 (put 'upcase-region 'disabled nil)
diff --git a/.emacs.d/jd/jd-custom.el b/.emacs.d/jd/jd-custom.el
index f48f761..8383e41 100755
--- a/.emacs.d/jd/jd-custom.el
+++ b/.emacs.d/jd/jd-custom.el
@@ -39,6 +39,22 @@
   (erc :server "195.74.91.18"
        :port   "6697"))
 
+
+;; Repair load paths when tramp try to connect to guix instances
+(require 'tramp)
+
+(connection-local-set-profile-variables
+ 'guix-system
+ '((tramp-remote-path . (tramp-own-remote-path))))
+
+(connection-local-set-profiles
+ '(:application tramp :protocol "sudo" :machine "localhost")
+ 'guix-system)
+
+(connection-local-set-profiles
+ '(:application tramp :protocol "ssh" :machine "jdlugosz.com")
+ 'guix-system)
+
 (provide 'jd-custom)
 
 ;;; jd-custom.el ends here
diff --git a/.emacs.d/jd/jd-keys.el b/.emacs.d/jd/jd-keys.el
index 7c0d6b2..26a6445 100755
--- a/.emacs.d/jd/jd-keys.el
+++ b/.emacs.d/jd/jd-keys.el
@@ -16,6 +16,16 @@
 ;; 		(evil-set-initial-state 'exwm-mode 'emacs)
 ;; 		(evil-mode 1))
 
+(jd/use-package multiple-cursors "emacs-multiple-cursors"
+		:config
+		(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
+		(global-set-key (kbd "C->") 'mc/mark-next-like-this)
+		(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
+		(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this))
+
+(jd/use-package shackle "emacs-shackle")
+(jd/use-package sway "emacs-sway")
+
 (jd/use-package general "emacs-general"
 		:config
 		(general-create-definer jd/leader-key-def
diff --git a/.emacs.d/jd/jd-org.el b/.emacs.d/jd/jd-org.el
index f511846..a9565f3 100755
--- a/.emacs.d/jd/jd-org.el
+++ b/.emacs.d/jd/jd-org.el
@@ -16,6 +16,8 @@
   (let ((d (or date "+0d")))
     (org-insert-time-stamp (org-read-date nil t d))))
 
+(jd/use-package org-pomodoro "emacs-org-pomodoro")
+
 (jd/use-package org "emacs-org"
 		:pin org
 		:commands (org-capture org-agenda)
diff --git a/.emacs.d/jd/jd-ui.el b/.emacs.d/jd/jd-ui.el
index f75711b..f3a39bc 100755
--- a/.emacs.d/jd/jd-ui.el
+++ b/.emacs.d/jd/jd-ui.el
@@ -11,11 +11,13 @@
 (menu-bar-mode -1)
 (set-fringe-mode 10)
 
-(jd/add-package-to-manifest "font-terminus")
-
+(set-frame-parameter (selected-frame) 'alpha '(92 . 92))
+(add-to-list 'default-frame-alist '(alpha . (92 . 92)))
 
 (custom-set-faces
- '(default ((t (:inherit nil :height 100 :family "Terminus")))))
+ '(default ((t (:inherit nil :height 125 :family "Terminus"))))
+ '(line-number ((t (:inherit nil :height 125 :family "Terminus"))))
+ '(line-number-current-line ((t (:inherit nil :height 125 :family "Terminus")))))
 
 (add-hook 'prog-mode-hook 'menu-bar--display-line-numbers-mode-relative)
 
@@ -27,9 +29,14 @@
 
 (require 'diminish)
 
+(jd/use-package doom-modeline  "emacs-doom-modeline"
+		:config
+		(doom-modeline-mode))
+
 (jd/use-package solarized-theme  "emacs-solarized-theme"
 		:config
-		(load-theme 'solarized-selenized-black t))
+		(load-theme 'solarized-dark-high-contrast t))
+
 
 (jd/use-package diminish "emacs-diminish")
 
-- 
cgit v1.2.3