.emacs 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263
  1. (setq inferior-lisp-program "/opt/homebrew/bin/sbcl")
  2. (load (expand-file-name "~/.local/opt/quicklisp/slime-helper.el"))
  3. (slime-setup '(slime-fancy slime-company))
  4. (defvar bootstrap-version)
  5. (let ((bootstrap-file
  6. (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
  7. (bootstrap-version 5))
  8. (unless (file-exists-p bootstrap-file)
  9. (with-current-buffer
  10. (url-retrieve-synchronously
  11. "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
  12. 'silent 'inhibit-cookies)
  13. (goto-char (point-max))
  14. (eval-print-last-sexp)))
  15. (load bootstrap-file nil 'nomessage))
  16. ;; packages to install and load
  17. (straight-use-package 'auto-complete)
  18. (straight-use-package '(nano-theme :type git :host github
  19. :repo "rougier/nano-theme"))
  20. (straight-use-package 'use-package)
  21. (straight-use-package 'org)
  22. (straight-use-package
  23. '(slime-company :type git :host github :repo "anwyn/slime-company"))
  24. (straight-use-package 'sublimity)
  25. (straight-use-package 'dashboard)
  26. (straight-use-package 'all-the-icons)
  27. (straight-use-package 'neotree)
  28. (straight-use-package 'rust-mode)
  29. (straight-use-package 'powerline)
  30. (require 'powerline)
  31. (powerline-default-theme)
  32. (require 'neotree)
  33. (global-set-key [f8] 'neotree-toggle)
  34. (require 'dashboard)
  35. (dashboard-setup-startup-hook)
  36. (require 'auto-complete)
  37. (require 'all-the-icons)
  38. (require 'sublimity-scroll)
  39. (require 'sublimity-map) ;; experimental
  40. (require 'sublimity-attractive)
  41. (setq sublimity-scroll-weight 10
  42. sublimity-scroll-drift-length 5)
  43. (setq sublimity-map-size 20)
  44. (setq sublimity-map-fraction 0.3)
  45. (setq sublimity-map-text-scale -7)
  46. (sublimity-map-set-delay 1)
  47. (setq sublimity-attractive-centering-width nil)
  48. (add-to-list 'default-frame-alist '(font . "Roboto Mono" ))
  49. (set-face-attribute 'default t :font "Roboto Mono" )
  50. (setq backup-directory-alist
  51. `((".*" . ,temporary-file-directory)))
  52. (setq auto-save-file-name-transforms
  53. `((".*" ,temporary-file-directory t)))
  54. (load-theme 'nano t)