;; (setq inferior-lisp-program "/opt/homebrew/bin/sbcl") ;; (load (expand-file-name "~/.local/opt/quicklisp/slime-helper.el")) ;; (slime-setup '(slime-fancy slime-company)) (setq mouse-wheel-scroll-amount '(1 ((shift) . 1) ((control) . nil))) (setq mouse-wheel-progressive-speed nil) (setq visible-bell 1) (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) ;; packages to install and load (straight-use-package 'auto-complete) (straight-use-package '(nano-theme :type git :host github :repo "rougier/nano-theme")) (straight-use-package 'use-package) (straight-use-package 'org) (straight-use-package '(slime-company :type git :host github :repo "anwyn/slime-company")) (straight-use-package 'sublimity) (straight-use-package 'dashboard) (straight-use-package 'all-the-icons) (straight-use-package 'neotree) (straight-use-package 'rust-mode) (straight-use-package 'powerline) (straight-use-package 'markdown-mode) (straight-use-package 'moe-theme) (straight-use-package 'ample-theme) (straight-use-package 'slime) (straight-use-package 'ac-slime) ;; Not enabled/required by default (straight-use-package 'evil) ;; always enable ido mode (require 'ido) (ido-mode t) (require 'evil) ;; Required, but not enabled by defaul (evil-mode 1) ;; Enable tab behavior like vi (straight-use-package '(evil-tabs :type git :host github :repo "krisajenkins/evil-tabs")) (require 'evil-tabs) (global-evil-tabs-mode t) (require 'markdown-mode) (require 'powerline) (powerline-default-theme) (require 'neotree) (global-set-key [f8] 'neotree-toggle) (require 'dashboard) (dashboard-setup-startup-hook) (require 'auto-complete) (global-auto-complete-mode t) (require 'all-the-icons) (require 'sublimity-scroll) (require 'sublimity-map) ;; experimental (require 'sublimity-attractive) (setq sublimity-scroll-weight 10 sublimity-scroll-drift-length 5) (setq sublimity-map-size 20) (setq sublimity-map-fraction 0.3) (setq sublimity-map-text-scale -7) (sublimity-map-set-delay 1) (setq sublimity-attractive-centering-width nil) (add-to-list 'default-frame-alist '(font . "Lucida Console" )) (set-face-attribute 'default t :font "Lucida Console" ) (setq backup-directory-alist `((".*" . ,temporary-file-directory))) (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t))) (load-theme 'nano t)