;; (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)