From 090908e3fac4e5c6c53209931c2106eaca8af5f8 Mon Sep 17 00:00:00 2001
From: rearman <rearman@r717.net>
Date: Tue, 8 Nov 2022 17:04:45 -0500
Subject: [PATCH] Changes for guix on wsl - removing version<28 items

---
 init.el | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/init.el b/init.el
index 5d78aed..84b02b7 100644
--- a/init.el
+++ b/init.el
@@ -1,10 +1,5 @@
 ;; -*- lexical-binding: t; -*-
 ;; SETUP FOR SHARED WINDOWS/WSL INIT
-(if (< emacs-major-version 28)
-    (progn (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
-	   (defalias 'yes-or-no-p 'y-or-n-p))
-  nil)
-
 (if (eq system-type 'windows-nt)
     (progn (defvar shared-system-init "~/.emacs.d/init.el")
 	   (defvar work-eqns "~/.emacs.d/work-eqs.el")
@@ -147,20 +142,6 @@ Can't go prev line first, edge case of beginning of buffer."
   (interactive)
   (find-file shared-system-init))
 
-(defun run-chicken ()
-  "Opens a chicken-scheme repl to the right."
-  (interactive)
-  (setq scheme-program-name "csi -:c")
-  (split-window nil nil 'left)
-  (run-scheme scheme-program-name))
-
-(defun run-guile ()
-  "Opens a guile repl to the right."
-  (interactive)
-  (setq scheme-program-name "guile")
-  (split-window nil nil 'left)
-  (run-scheme scheme-program-name))
-
 ;; PUTS AND PUSHES
 (put 'upcase-region 'disabled nil)
 (put 'downcase-region 'disabled nil)
@@ -169,11 +150,8 @@ Can't go prev line first, edge case of beginning of buffer."
 
 ;; BINDINGS
 ;; USER SPACE
-(global-set-key (kbd "C-c ai") 'aggressive-indent-mode)
 (global-set-key (kbd "C-c b") 'new-empty-buffer)
 (global-set-key (kbd "C-c ei") 'edit-init)
-(global-set-key (kbd "C-c h") 'global-hl-line-mode)
-(global-set-key (kbd "C-c n") 'display-line-numbers-mode)
 (global-set-key (kbd "C-c r") 'recentf-open-files)
 ;; OVERRIDES
 (global-set-key (kbd "M-j") 'backward-join-line)
-- 
2.39.5