cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

chore: comment up unused setup.el stuff in emacs init.el

pull/1/head
anemofilia 2023-08-23 15:51:17 -03:00
parent deb82a8d8b
commit 0210ff31a9
No known key found for this signature in database
GPG Key ID: 5A8F3D62C87A2B33
1 changed files with 97 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

194
files/emacs/init.el
View File

@ -111,103 +111,103 @@
;; EMMS ;; EMMS
(setq emms-player-list '(emms-player-mpv)) (setq emms-player-list '(emms-player-mpv))
(require 'setup) ;(require 'setup)
(setup-define :pkg ;(setup-define :pkg
(lambda (feature-or-package) ; (lambda (feature-or-package)
`(unless (locate-file ,(symbol-name feature-or-package) ; `(unless (locate-file ,(symbol-name feature-or-package)
load-path ; load-path
(get-load-suffixes)) ; (get-load-suffixes))
(:package ',feature-or-package))) ; (:package ',feature-or-package)))
:documentation "Install PACKAGE if it is not available locally. ; :documentation "Install PACKAGE if it is not available locally.
This macro can be used as NAME, and it will replace itself with ;This macro can be used as NAME, and it will replace itself with
the first PACKAGE." ;the first PACKAGE."
:repeatable t ; :repeatable t
:shorthand #'cadr) ; :shorthand #'cadr)
;
(setup-define :disabled ;(setup-define :disabled
(lambda () `,(setup-quit)) ; (lambda () `,(setup-quit))
:documentation "Always stop evaluating the body.") ; :documentation "Always stop evaluating the body.")
;
(setup-define :load-after ;(setup-define :load-after
(lambda (features &rest body) ; (lambda (features &rest body)
(let ((body `(progn ; (let ((body `(progn
(require ',(setup-get 'feature)) ; (require ',(setup-get 'feature))
,@body))) ; ,@body)))
(dolist (feature (if (listp features) ; (dolist (feature (if (listp features)
(nreverse features) ; (nreverse features)
(list features))) ; (list features)))
(setq body `(with-eval-after-load ',feature ,body))) ; (setq body `(with-eval-after-load ',feature ,body)))
body)) ; body))
:documentation "Load the current feature after FEATURES." ; :documentation "Load the current feature after FEATURES."
:indent 1) ; :indent 1)
;
(setup-define :file-match ;(setup-define :file-match
(lambda (regexp) ; (lambda (regexp)
`(add-to-list 'auto-mode-alist (cons ,regexp ',(setup-get 'mode)))) ; `(add-to-list 'auto-mode-alist (cons ,regexp ',(setup-get 'mode))))
:documentation "Associate the current mode with files that match REGEXP." ; :documentation "Associate the current mode with files that match REGEXP."
:debug '(form) ; :debug '(form)
:repeatable t) ; :repeatable t)
;
(setup-define :leader ;(setup-define :leader
(lambda (&rest args) ; (lambda (&rest args)
`(with-eval-after-load 'general ; `(with-eval-after-load 'general
(general-define-key ,@args ; (general-define-key ,@args
:states 'normal ; :states 'normal
:keymaps 'override ; :keymaps 'override
:prefix "SPC" ; :prefix "SPC"
:global-prefix "C-SPC"))) ; :global-prefix "C-SPC")))
:documentation "Define a leader keybind" ; :documentation "Define a leader keybind"
:debug '(form) ; :debug '(form)
:indent 0) ; :indent 0)
;
(setup-define :local-leader ;(setup-define :local-leader
(lambda (&rest args) ; (lambda (&rest args)
`(with-eval-after-load 'general ; `(with-eval-after-load 'general
(let ((map ',(setup-get 'map))) ; (let ((map ',(setup-get 'map)))
(general-define-key ,@args ; (general-define-key ,@args
:states 'normal ; :states 'normal
:keymaps map ; :keymaps map
:prefix "SPC m" ; :prefix "SPC m"
:global-prefix "C-SPC m")))) ; :global-prefix "C-SPC m"))))
:documentation "Define a local leader keybind" ; :documentation "Define a local leader keybind"
:debug '(form) ; :debug '(form)
:indent 0) ; :indent 0)
;
(setup-define :ignore-buffers ;(setup-define :ignore-buffers
(lambda (&rest buffers) ; (lambda (&rest buffers)
`(setq ignored-buffers (append ignored-buffers ',buffers))) ; `(setq ignored-buffers (append ignored-buffers ',buffers)))
:documentation "Ignore buffers") ; :documentation "Ignore buffers")
;
(setup-define :display-rule ;(setup-define :display-rule
(lambda (condition &rest actions) ; (lambda (condition &rest actions)
`(add-to-list 'display-buffer-alist '(,condition . ,actions))) ; `(add-to-list 'display-buffer-alist '(,condition . ,actions)))
:documentation "Add to display buffer alist") ; :documentation "Add to display buffer alist")
;
(setup (:pkg kakoune) ;(setup (:pkg kakoune)
(:option ryo-modal-cursor-type 'box ; (:option ryo-modal-cursor-type 'box
ryo-modal-cursor-color "#8581E0") ; ryo-modal-cursor-color "#8581E0")
(:global "<escape>" ; (:global "<escape>"
(lambda () ; (lambda ()
(interactive) ; (interactive)
(if (minibufferp) ; (if (minibufferp)
(keyboard-escape-quit) ; (keyboard-escape-quit)
(ryo-modal-mode)))) ; (ryo-modal-mode))))
(kakoune-setup-keybinds) ; (kakoune-setup-keybinds)
(ryo-modal-keys ; (ryo-modal-keys
("M-s" mc/split-region))) ; ("M-s" mc/split-region)))
: ;:
;; Use a real file manager ;;; Use a real file manager
(setup (:pkg dirvish) ;(setup (:pkg dirvish)
(:hook hl-line-mode) ; (:hook hl-line-mode)
(:option dirvish-attributes nil ; (:option dirvish-attributes nil
dirvish-listing-switches '(--group-directories-first --classify)) ; dirvish-listing-switches '(--group-directories-first --classify))
;'(vc-state subtree-state all-the-icons collapse git-msg file-time file-size)) ; ;'(vc-state subtree-state all-the-icons collapse git-msg file-time file-size))
(dirvish-override-dired-mode)) ; (dirvish-override-dired-mode))
;
(setup (:pkg org-bullets org-present org-roam org-modern)) ;(setup (:pkg org-bullets org-present org-roam org-modern))
(setup (:pkg elfeed elfeed-org)) ;(setup (:pkg elfeed elfeed-org))
(setup (:pkg geiser geiser-guile macrostep-geiser)) ;(setup (:pkg geiser geiser-guile macrostep-geiser))
(setup (:pkg cape corfu corfu-doc consult-lsp vertico orderless)) ;(setup (:pkg cape corfu corfu-doc consult-lsp vertico orderless))
(custom-set-variables (custom-set-variables
;; custom-set-variables was added by Custom. ;; custom-set-variables was added by Custom.