foobar

init.el

@@ -1,3 +1,10 @@
+;; decrease startup time by deferring gc
+(setq gc-cons-threshold 100000000)
+
+;; I call package-initialize manually, disable automatic initialization:
+(setq package-enable-at-startup nil)
+
+
 ;; Packages
 (load "~/.emacs.d/packages.el")
 
@@ -16,7 +23,7 @@
 (set-language-environment "UTF-8")
 
 ;; Appearance
-(set-frame-font "DejaVu Sans Mono 10")
+(set-frame-font "Terminus 12")
 (set-face-italic 'font-lock-comment-face nil)  ; disable italics
 ; theme set in packages.el
 (global-linum-mode)
@@ -54,6 +61,10 @@
 							))
 (electric-pair-mode t)
 
+(setq user-mail-address "opfez@disroot.org")
+(setq user-full-name "opFez")
+(setq add-log-mailing-address "opfez@disroot.org")
+
 ;; windmove
 (global-set-key (kbd "C-:")  'windmove-left)
 (global-set-key (kbd "C-|")  'windmove-right)
@@ -70,6 +81,11 @@
 (setq c-default-style "linux"
       c-basic-offset 4)
 
+;; Scheme configuration
+(setq geiser-active-implementations '(chicken))
+(add-hook 'geiser-mode-hook
+  (lambda () (local-set-key (kbd "C-c C-l") #'run-chicken)))
+
 ;; Disable bold fonts
 (mapc
  (lambda (face)
@@ -88,7 +104,7 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(package-selected-packages
-   '(avy swiper auto-package-update magit expand-region go-mode tao-themes tao-theme almost-mono-themes use-package)))
+   '(rust-mode paredit geiser forth-mode avy swiper auto-package-update magit expand-region go-mode tao-themes tao-theme almost-mono-themes use-package)))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.

packages.el

@@ -3,9 +3,6 @@
 ;; Manually installed modes
 (add-to-list 'load-path "~/.emacs.d/plugins/")
 
-;; Scheme BBS
-(load "sbbs")
-
 ;; Package
 (require 'package)
 (setq package-archives '(("gnu" . "http://mirrors.163.com/elpa/gnu/")
@@ -17,7 +14,7 @@
   (package-refresh-contents)
   (package-install 'use-package))
 
-;; auto-package-update automatically updates and removes old packages
+;; auto-package-update automatically updates packages and removes old ones
 (use-package auto-package-update
   :ensure t
   :config
@@ -35,6 +32,8 @@
   :init
   (load-theme 'almost-mono-black t))
 
+;; Languages
+
 (use-package haskell-mode
   :ensure t
   :init
@@ -43,9 +42,20 @@
 (use-package go-mode
   :ensure t)
 
+(use-package rust-mode
+  :ensure t)
+
 (use-package elpher
   :ensure t)
 
+(use-package slime
+  :ensure t
+  :config
+  (setq inferior-lisp-program "sbcl"))
+
+(use-package geiser
+	:ensure t)
+
 (use-package dashboard
   :ensure t
   :config
@@ -55,17 +65,15 @@
   (setq dashboard-set-footer nil)
   (dashboard-setup-startup-hook))
 
-(use-package slime
-  :ensure t
-  :config
-  (setq inferior-lisp-program "sbcl"))
-
 (use-package expand-region
   :ensure t
   :config
   (global-set-key (kbd "C-=") 'er/expand-region)
   (pending-delete-mode t)) ; if you start typing while a word is selected, overwrite it
 
+(use-package paredit
+  :ensure t)
+
 ;; jump to definitions and files with M-.
 (use-package dumb-jump
   :ensure t