From 0210ff31a964a6f3fabcfcd49cb128a32efc32e4 Mon Sep 17 00:00:00 2001 From: anemofilia Date: Wed, 23 Aug 2023 15:51:17 -0300 Subject: [PATCH] chore: comment up unused setup.el stuff in emacs init.el --- files/emacs/init.el | 194 ++++++++++++++++++++++---------------------- 1 file changed, 97 insertions(+), 97 deletions(-) diff --git a/files/emacs/init.el b/files/emacs/init.el index a6b555a..59e51ba 100644 --- a/files/emacs/init.el +++ b/files/emacs/init.el @@ -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 "" - (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 "" +; (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.