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