- Add SLY package with custom keybindings and ibuffer groups Replace - removed power commands with consolidated `my-desktop-init` Add - Emacs key simulation for EXWM windows Enable mouse drag-and-drop - for Dired Disable display-time on Linux/Android Rebind window - resize to C-M-arrow keys
58 lines
1.1 KiB
EmacsLisp
58 lines
1.1 KiB
EmacsLisp
;;; init.el --- init.el -*- lexical-binding: t -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;;; Code:
|
|
|
|
;; hs-minor-mode
|
|
(add-hook 'prog-mode-hook 'hs-minor-mode)
|
|
|
|
;; flycheck
|
|
(use-package flycheck)
|
|
|
|
(use-package flycheck-guile
|
|
:hook
|
|
(scheme-mode . (lambda ()
|
|
(require 'flycheck-guile))))
|
|
|
|
;; consult-flycheck
|
|
(use-package consult-flycheck)
|
|
|
|
;; tree-sitter
|
|
(use-package treesit-auto
|
|
:config
|
|
(setq treesit-auto-install 'prompt)
|
|
(global-treesit-auto-mode)
|
|
(setq treesit-font-lock-level 4))
|
|
|
|
;; scheme
|
|
(use-package geiser
|
|
:config
|
|
(with-eval-after-load 'geiser
|
|
(setq geiser-default-implementation 'guile)))
|
|
|
|
(use-package geiser-guile)
|
|
|
|
;; common-lisp
|
|
(use-package sly
|
|
:config
|
|
(setq sly-lisp-implementations nil))
|
|
|
|
;; markdown
|
|
(use-package markdown-mode
|
|
:bind
|
|
(:map markdown-mode-map
|
|
("C-c C-e" . markdown-do))
|
|
:hook
|
|
(markdown-mode . toggle-truncate-lines)
|
|
:init
|
|
(setq markdown-command "multimarkdown")
|
|
(when (>= emacs-major-version 31)
|
|
(add-to-list 'major-mode-remap-alist
|
|
'(markdown-mode . markdown-ts-mode))
|
|
(add-hook 'markdown-ts-mode-hook #'toggle-truncate-lines)))
|
|
|
|
(provide 'init-prog)
|
|
|
|
;;; init-prog.el ends here
|