From 5b5da17503a54b644c4f51b3030e448215b80ac4 Mon Sep 17 00:00:00 2001
From: Mid Favila <midfavila@sdf.org>
Date: Sat, 5 Mar 2022 00:35:01 -0400
Subject: [PATCH] Update init.el

---
 user/configdir/emacs/init.el | 81 +++++++++++++++++++++++-------------
 1 file changed, 51 insertions(+), 30 deletions(-)

diff --git a/user/configdir/emacs/init.el b/user/configdir/emacs/init.el
index 82f4e6e..f1f8984 100644
--- a/user/configdir/emacs/init.el
+++ b/user/configdir/emacs/init.el
@@ -18,10 +18,19 @@
 ;; Investigate buffer-manage, comment-tags, company, guru-mode, ivy.
 ;; Integrate GDB?
 
+(if (fboundp `use-package)
+    ()
+  (package-install `use-package))
+
+(setq package-native-compile t)
+(require 'package)
+(add-to-list 'package-archives
+	     `("melpa-unstable" . "https://melpa.org/packages/"))
+
 
 ;; Make startup faster by reducing the frequency of garbage
 ;; collection.  The default is 800 kilobytes.  Measured in bytes.
-   (setq gc-cons-threshold (* 1000 1000 1000))
+(setq gc-cons-threshold (* 1000 1000 1000))
 
 
 ;;;; Index:
@@ -43,23 +52,28 @@
 
 ;; Subsection 1.1
 
-(use-package eww
-  :defer t
-  :config
-  (progn
-    (define-key eww-mode-map (kbd "C-c f") 'ace-link)
-    (setq
-     browse-url-browser-function 'eww-browse-url
-     shr-use-fonts nil
-     shr-use-colors nil
-     shr-indentation 2
-     eww-search-prefix "https://duckduckgo.com/lite")
+(setq load-path
+      (flatten-list
+       (list load-path
+	     (mapcar `directory-file-name `("/usr/share/emacs/site-lisp/quack.el")))))
 
-    ;; Allow for multiple Wowsers.
-    (defun eww-hook () "Reconfigure eww buffers on the fly."
-	   (progn (rename-buffer "eww" t)
-		  (variable-pitch-mode)))
-    (add-hook 'eww-mode-hook 'eww-hook)))
+	     (use-package eww
+	       :defer t
+	       :config
+	       (progn
+		 (define-key eww-mode-map (kbd "C-c f") 'ace-link)
+		 (setq
+		  browse-url-browser-function 'eww-browse-url
+		  shr-use-fonts nil
+		  shr-use-colors nil
+		  shr-indentation 2
+		  eww-search-prefix "https://duckduckgo.com/lite")
+
+		 ;; Allow for multiple Wowsers.
+		 (defun eww-hook () "Reconfigure eww buffers on the fly."
+			(progn (rename-buffer "eww" t)
+			       (variable-pitch-mode)))
+		 (add-hook 'eww-mode-hook 'eww-hook)))
 
 (use-package help-mode
   :defer t
@@ -102,7 +116,7 @@
 
 
 
-(add-hook 'server-after-make-frame-hook '(lambda () (load-theme 'modus-operandi t)))					;This is a workaround for Solaire Mode.
+(add-hook 'server-after-make-frame-hook `(lambda () (load-theme 'modus-operandi t)))					;This is a workaround for Solaire Mode.
 
 ;; Fonts and faces.
 
@@ -227,8 +241,9 @@
   :config
   (progn
     (golden-ratio-mode 1)
-    ;; Interop with ace-window.
-    (add-to-list 'golden-ratio-extra-commands 'ace-window)))
+    ;; Interop with other libraries.
+    (setq golden-ratio-extra-commands
+	  (flatten-list (list 'golden-ratio-extra-commands '(ace-window ace-jump-move))))))
 
 
 ;; Dim inactive buffers.
@@ -310,11 +325,16 @@
   :config
   (global-set-key (kbd "M-o") 'ace-window))
 
-(use-package avy
+;; (use-package avy
+;;   :ensure t
+;;   :demand
+;;   :config
+;;   (global-set-key (kbd "C-c SPC") 'avy-jump-char))
+(use-package ace-jump-mode
   :ensure t
   :demand
   :config
-  (global-set-key (kbd "C-c SPC") 'avy-jump-char))
+  (global-set-key (kbd "C-c SPC") 'ace-jump-char-mode))
 
 (use-package ace-link
   :defer t
@@ -327,13 +347,6 @@
   :ensure t
   :defer t)
 
-;; Make sure Emacs auto-compiles ELisp.
-(use-package auto-compile
-  :ensure t
-  :defer t
-  :config
-  (auto-compile-on-save-mode t))
-
 ;; Add SLY, a Lisp REPL.
 (use-package sly
   :ensure t
@@ -527,7 +540,15 @@
    '("2f93ebb862a9d50fee9c1b3302d858e2d2c0bba9d4e1be9bb3b08b7373f1710c" default))
  '(helm-completion-style 'helm)
  '(package-selected-packages
-   '(ctxmenu aggressive-indent-mode xpm ws-butler web-completion-data use-package srfi solarized-theme solaire-mode smooth-scroll sly rainbow-mode rainbow-blocks powerline popwin paren-face parchment-theme names helm-slime helm-mode-manager helm-flycheck helm-eww good-scroll goggles gnuplot focus flyspell-correct-helm flymake-haskell-multi flymake flycheck-haskell flycheck-aspell eww-lnum electric-operator dimmer context-coloring clean-buffers auto-compile aggressive-indent ace-window ace-link ace-jump-mode ac-slime ac-html ac-haskell-process ac-etags)))
+   '(dimmer god-mode paredit geiser-mit ctxmenu aggressive-indent-mode xpm ws-butler web-completion-data use-package srfi solarized-theme solaire-mode sly rainbow-mode rainbow-blocks powerline popwin paren-face parchment-theme names helm-slime helm-mode-manager helm-flycheck helm-eww good-scroll goggles gnuplot focus flyspell-correct-helm flymake-haskell-multi flymake flycheck-haskell flycheck-aspell eww-lnum electric-operator context-coloring clean-buffers aggressive-indent ace-window ace-link ace-jump-mode ac-slime ac-html ac-haskell-process ac-etags))
+ '(quack-default-program "scheme")
+ '(quack-newline-behavior 'newline)
+ '(quack-programs
+   '("s9" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi"))
+ '(quack-run-scheme-always-prompts-p nil)
+ '(quack-smart-open-paren-p nil)
+ '(warning-suppress-log-types '((use-package) (comp)))
+ '(warning-suppress-types '((emacs) (comp))))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.