asdlkfjsadlfk

custom.el

@@ -203,6 +203,27 @@
         (man word)
         "Not a word.")))
 
+(defun fez/insert-line ()
+  (interactive)
+  (move-beginning-of-line nil)
+  (open-line 1))
+
+;; TODO: Put this in C-mode or something
+(defun fez/include-guard ()
+  (interactive)
+  (let ((guard (concat (upcase (file-name-base (buffer-file-name)))
+                       "_H")))
+    (goto-char (point-min))
+    (insert (concat "#ifndef "
+                    guard
+                    "\n#define "
+                    guard
+                    "\n"))
+    (goto-char (point-max))
+    (insert (concat "\n\n\n#endif /* "
+                    guard
+                    " */\n")))
+  (forward-line -3))
 ;; Eshell convinience commands.
 (defalias 'open 'find-file-other-window)
 (defalias 'clean 'eshell/clear-scrollback)
@@ -218,13 +239,16 @@
 ;; Better buffer management (smol).
 (global-set-key (kbd "C-x C-b") 'bs-show)
 
-;; Insipiration from Nyxt, kill the current buffer.
+;; Inspiration from Nyxt, kill the current buffer.
 (global-set-key (kbd "C-x C-k") 'kill-this-buffer)
 
 (global-set-key (kbd "C-c t") 'fez/time-stamp)
 
 (global-set-key (kbd "C-z C-m") 'fez/man-at-point)
 
+(global-set-key (kbd "C-S-o") 'open-line)
+(global-set-key (kbd "C-o") 'fez/insert-line)
+
 ;; zap-up-to-char > zap-to-char
 (global-set-key (kbd "M-z") 'zap-up-to-char)
 

init.el

@@ -69,6 +69,7 @@
 ;; (setq geiser-guile-binary "/usr/local/bin/guile-ncurses-shell")
 
 (setq geiser-active-implementations '(chez))
+(setq geiser-chez-binary "/usr/bin/scheme")
 
 ;; I use emacs as my window manager.
-(exwm-config)
+;; (exwm-config)

packages.el

@@ -40,6 +40,14 @@
 (use-package sly
   :ensure t
   :config
+  (use-package ac-sly
+    :ensure t
+    :config
+    (add-hook 'sly-mode-hook 'set-up-sly-ac)
+    (add-hook 'lisp-mode-hook 'auto-complete-mode)
+    (eval-after-load 'auto-complete
+      '(add-to-list 'ac-modes 'sly-mrepl-mode)))
+
   (setq inferior-lisp-program "sbcl")
   (add-hook 'sly-mode-hook
             (lambda ()
@@ -165,13 +173,13 @@
                                (wl . wl-other-frame))))
 
 ;; Notes
-(use-package org-roam
-  :ensure t
-  :bind
-  ("C-c o i" . org-roam-jump-to-index)
-  ("C-c o n" . fez/org-roam-new-note)
-  :init
-  (setq org-roam-directory "~/Documents/org-roam"))
+;; (use-package org-roam
+  ;; :ensure t
+  ;; :bind
+  ;; ("C-c o i" . org-roam-jump-to-index)
+  ;; ("C-c o n" . fez/org-roam-new-note)
+  ;; :init
+  ;; (setq org-roam-directory "~/Documents/org-roam"))
 
 ;; better shell-command
 (use-package shell-command+
@@ -328,6 +336,7 @@
                        ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube)
                        ("https://www.youtube.com/feeds/videos.xml?channel_id=UCah7IyEzRnRdttwDGDdy_gw" youtube)
                        ("https://www.youtube.com/feeds/videos.xml?channel_id=UCUmLRMERmJrmUtgnbFfknAg" youtube)
-                       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCD6VugMZKRhSyzWEWA9W2fg" youtube))))
+                       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCD6VugMZKRhSyzWEWA9W2fg" youtube)
+                       ("https://www.youtube.com/feeds/videos.xml?channel_id=UCL7DDQWP6x7wy0O6L5ZIgxg" youtube))))
 
 (provide 'packages)