.emacs-windows 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  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. (straight-use-package 'markdown-mode)
  33. (require 'markdown-mode)
  34. (require 'powerline)
  35. (powerline-default-theme)
  36. (require 'neotree)
  37. (global-set-key [f8] 'neotree-toggle)
  38. (require 'dashboard)
  39. (dashboard-setup-startup-hook)
  40. (require 'auto-complete)
  41. (global-auto-complete-mode t)
  42. (require 'all-the-icons)
  43. (require 'sublimity-scroll)
  44. (require 'sublimity-map) ;; experimental
  45. (require 'sublimity-attractive)
  46. (setq sublimity-scroll-weight 10
  47. sublimity-scroll-drift-length 5)
  48. (setq sublimity-map-size 20)
  49. (setq sublimity-map-fraction 0.3)
  50. (setq sublimity-map-text-scale -7)
  51. (sublimity-map-set-delay 1)
  52. (setq sublimity-attractive-centering-width nil)
  53. (add-to-list 'default-frame-alist '(font . "Roboto Mono" ))
  54. (set-face-attribute 'default t :font "Roboto Mono" )
  55. (setq backup-directory-alist
  56. `((".*" . ,temporary-file-directory)))
  57. (setq auto-save-file-name-transforms
  58. `((".*" ,temporary-file-directory t)))
  59. (load-theme 'nano t)