diff --git a/modules/lang/factor/config.el b/modules/lang/factor/config.el index 1b2bdf2ad..5af0c1b41 100644 --- a/modules/lang/factor/config.el +++ b/modules/lang/factor/config.el @@ -8,73 +8,72 @@ (set-repl-handler! 'factor-mode #'+factor/open-repl :persist t :send-region #'fuel-eval-region - :send-buffer #'fuel-run-file)) + :send-buffer #'fuel-run-file) + (set-lookup-handlers! 'factor-mode + :definition #'fuel-edit-word-at-point + :references #'fuel-show-callers + :documentation #'fuel-help) + (map! :map factor-mode-map + :localleader + "t" #'fuel-test-vocab + "F" #'fuel-run-file + "f" #'run-factor + "a" #'fuel-refresh-all + "L" #'fuel-load-usings + "u" #'fuel-vocab-usage + "U" #'fuel-vocab-uses + (:prefix ("c" . "change") + "w" #'fuel-edit-word-at-point + "d" #'fuel-edit-word-doc-at-point + "v" #'fuel-edit-vocabulary) + (:prefix ("e" . "eval") + "d" #'fuel-eval-definition + "R" #'fuel-eval-extended-region + "r" #'fuel-eval-region) + (:prefix ("h" . "help") + "p" #'fuel-apropos + "h" #'fuel-help + "b" #'fuel-help-display-bookmarks + "v" #'fuel-help-vocab + "w" #'fuel-show-file-words + "c" #'fuel-show-callees + "e" #'fuel-stack-effect-region + "s" #'fuel-stack-effect-sexp) + (:prefix ("s" . "scaffold") + "v" #'fuel-scaffold-vocab + "h" #'fuel-scaffold-help + "t" #'fuel-scaffold-tests) + (:prefix ("r" . "refactor") + "s" #'fuel-refactor-extract-sexp + "w" #'fuel-refactor-extract-region + "v" #'fuel-refactor-extract-vocab + "i" #'fuel-refactor-inline-word + "g" #'fuel-refactor-make-generic + "u" #'fuel-update-usings + "r" #'fuel-refactor-rename-word))) :config - (set-lookup-handlers! 'factor-mode - :definition #'fuel-edit-word-at-point - :references #'fuel-show-callers - :documentation #'fuel-help)) -(map! :after fuel-help - :map fuel-help-mode-map - :localleader - "e" #'fuel-help-edit - "d" #'fuel-help-delete-bookmark - "B" #'fuel-help-display-bookmarks - "n" #'fuel-help-next - "d" #'fuel-help-kill-page - "p" #'fuel-help-previous - "b" #'fuel-help-bookmark-page - "e" #'fuel-help-edit) + (map! :after fuel-help + :map fuel-help-mode-map + :localleader + "e" #'fuel-help-edit + "d" #'fuel-help-delete-bookmark + "B" #'fuel-help-display-bookmarks + "n" #'fuel-help-next + "d" #'fuel-help-kill-page + "p" #'fuel-help-previous + "b" #'fuel-help-bookmark-page + "e" #'fuel-help-edit) -(map! :after factor-mode - :map factor-mode-map - :localleader - "t" #'fuel-test-vocab - "F" #'fuel-run-file - "f" #'run-factor - "a" #'fuel-refresh-all - "L" #'fuel-load-usings - "u" #'fuel-vocab-usage - "U" #'fuel-vocab-uses - (:prefix ("c" . "change") - "w" #'fuel-edit-word-at-point - "d" #'fuel-edit-word-doc-at-point - "v" #'fuel-edit-vocabulary) - (:prefix ("e" . "eval") - "d" #'fuel-eval-definition - "R" #'fuel-eval-extended-region - "r" #'fuel-eval-region) - (:prefix ("h" . "help") - "p" #'fuel-apropos - "h" #'fuel-help - "b" #'fuel-help-display-bookmarks - "v" #'fuel-help-vocab - "w" #'fuel-show-file-words - "c" #'fuel-show-callees - "e" #'fuel-stack-effect-region - "s" #'fuel-stack-effect-sexp) - (:prefix ("s" . "scaffold") - "v" #'fuel-scaffold-vocab - "h" #'fuel-scaffold-help - "t" #'fuel-scaffold-tests) - (:prefix ("r" . "refactor") - "s" #'fuel-refactor-extract-sexp - "w" #'fuel-refactor-extract-region - "v" #'fuel-refactor-extract-vocab - "i" #'fuel-refactor-inline-word - "g" #'fuel-refactor-make-generic - "u" #'fuel-update-usings - "r" #'fuel-refactor-rename-word)) + (map! :after fuel-listener + :map fuel-listener-mode-map + :localleader + "b" #'fuel-switch-to-buffer + "w" #'fuel-switch-to-buffer-other-window + "f" #'fuel-switch-to-buffer-other-frame + "e" #'fuel-edit-vocabulary + "r" #'fuel-refresh-all + "i" #'fuel-stack-mode + "h" #'fuel-help + "s" #'fuel-scaffold-vocab)) -(map! :after fuel-listener - :map fuel-listener-mode-map - :localleader - "b" #'fuel-switch-to-buffer - "w" #'fuel-switch-to-buffer-other-window - "f" #'fuel-switch-to-buffer-other-frame - "e" #'fuel-edit-vocabulary - "r" #'fuel-refresh-all - "i" #'fuel-stack-mode - "h" #'fuel-help - "s" #'fuel-scaffold-vocab)