|
@@ -93,6 +93,10 @@
|
|
(beacon-mode)
|
|
(beacon-mode)
|
|
(global-set-key (kbd "C-c B") 'beacon-mode)
|
|
(global-set-key (kbd "C-c B") 'beacon-mode)
|
|
|
|
|
|
|
|
+;; Racket config
|
|
|
|
+;; (straight-use-package 'racket-mode)
|
|
|
|
+;; Using DrRacket for now
|
|
|
|
+
|
|
;; Org to reveal.js presentations
|
|
;; Org to reveal.js presentations
|
|
;; Docs: https://github.com/yjwen/org-reveal#configuration
|
|
;; Docs: https://github.com/yjwen/org-reveal#configuration
|
|
(straight-use-package 'org-reveal)
|
|
(straight-use-package 'org-reveal)
|
|
@@ -231,14 +235,21 @@
|
|
`((".*" ,temporary-file-directory t)))
|
|
`((".*" ,temporary-file-directory t)))
|
|
|
|
|
|
;;; Generic options for all OSs
|
|
;;; Generic options for all OSs
|
|
-; Smooth mouse scroll a bit
|
|
|
|
-(setq mouse-wheel-scroll-amount '(1 ((shift) . 1) ((control) . nil)))
|
|
|
|
-(setq mouse-wheel-progressive-speed nil)
|
|
|
|
|
|
+;;; Smooth mouse scroll a bit
|
|
|
|
+;;; If scrolling performance is bad, remember the profiler:
|
|
|
|
+;;; https://christiantietze.de/posts/2020/12/emacs-scroll-performance-projectile/
|
|
|
|
+(setq mouse-wheel-progressive-speed t)
|
|
|
|
|
|
;; normal home/end behavior
|
|
;; normal home/end behavior
|
|
(global-set-key (kbd "<home>") 'beginning-of-line)
|
|
(global-set-key (kbd "<home>") 'beginning-of-line)
|
|
(global-set-key (kbd "<end>") 'end-of-line)
|
|
(global-set-key (kbd "<end>") 'end-of-line)
|
|
|
|
|
|
|
|
+;; whitespace config
|
|
|
|
+;; make whitespace-mode use just basic coloring
|
|
|
|
+(setq whitespace-style '(face tabs))
|
|
|
|
+(setq tab-face (make-face 'tab-face))
|
|
|
|
+(set-face-background 'tab-face "gray")
|
|
|
|
+(setq whitespace-tab 'tab-face)
|
|
|
|
|
|
(defun sol-dk ()
|
|
(defun sol-dk ()
|
|
(interactive)
|
|
(interactive)
|
|
@@ -263,8 +274,7 @@
|
|
(fzf-find-file)))
|
|
(fzf-find-file)))
|
|
(global-set-key (kbd "C-c e") '(lambda ()
|
|
(global-set-key (kbd "C-c e") '(lambda ()
|
|
(interactive)
|
|
(interactive)
|
|
- (diff-hl-modeca
|
|
|
|
-
|
|
|
|
|
|
+ (diff-hl-mode)
|
|
(diff-hl-flydiff-mode)))
|
|
(diff-hl-flydiff-mode)))
|
|
(global-set-key (kbd "C-c d") 'slime-describe-symbol)
|
|
(global-set-key (kbd "C-c d") 'slime-describe-symbol)
|
|
(global-set-key (kbd "C-c M-r") 'slime-restart-inferior-lisp)
|
|
(global-set-key (kbd "C-c M-r") 'slime-restart-inferior-lisp)
|