.emacs-windows 2.1 KB

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