95 lines
2.7 KiB
EmacsLisp
95 lines
2.7 KiB
EmacsLisp
;;; packages.el --- Factor Layer packages File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2021 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: timor <timor.dd@googlemail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(defconst factor-packages
|
|
'(
|
|
;; Assume that factor is installed, and emacs lisp files are correctly
|
|
;; located in site-lisp
|
|
(fuel :location site)
|
|
yasnippet
|
|
))
|
|
|
|
;; for some reason, the following does not work
|
|
(defun factor/post-init-yasnippet ()
|
|
(add-to-list 'yas-snippet-dirs (expand-file-name
|
|
"snippets"
|
|
(configuration-layer/get-layer-local-dir
|
|
'factor))
|
|
t)
|
|
(spacemacs/add-to-hooks 'spacemacs/load-yasnippet '(factor-mode-hook fuel-mode-hook)))
|
|
|
|
(defun factor/init-fuel ()
|
|
(use-package factor-mode
|
|
:commands factor-mode run-factor fuel-mode
|
|
:mode ("factor\\'" . factor-mode)
|
|
:init
|
|
(progn
|
|
(spacemacs/register-repl 'fuel-mode 'run-factor))
|
|
:config
|
|
(progn
|
|
(require 'fuel-mode)
|
|
(mapc (lambda (x)
|
|
(spacemacs/declare-prefix-for-mode 'factor-mode (car x) (cdr x)))
|
|
'(("mh" . "help")
|
|
("me" . "eval")
|
|
("mc" . "compile")
|
|
("mg" . "nav")
|
|
("ms" . "repl")
|
|
("mS" . "scaffold")))
|
|
(spacemacs/set-leader-keys-for-major-mode 'factor-mode
|
|
"'" 'run-factor
|
|
|
|
"cc" 'fuel-run-file
|
|
|
|
"ef" 'fuel-eval-definition
|
|
"er" 'fuel-eval-region
|
|
"eR" 'fuel-eval-extended-region
|
|
|
|
"gg" 'fuel-edit-word-at-point
|
|
"ga" 'factor-visit-other-file
|
|
|
|
"ta" 'fuel-test-vocab
|
|
|
|
"rs" 'fuel-refactor-extract-sexp
|
|
"rr" 'fuel-refactor-extract-region
|
|
"rv" 'fuel-refactor-extract-vocab
|
|
"ri" 'fuel-refactor-inline-word
|
|
"rw" 'fuel-refactor-rename-word
|
|
"ra" 'fuel-refactor-extract-article
|
|
"rg" 'fuel-refactor-make-generic
|
|
"ru" 'fuel-update-usings
|
|
|
|
"ss" 'run-factor
|
|
|
|
"hh" 'fuel-help
|
|
"he" 'factor//fuel-stack-effect
|
|
"hp" 'fuel-apropos
|
|
"hv" 'fuel-show-file-words
|
|
"h<" 'fuel-show-callers
|
|
"h>" 'fuel-show-callees
|
|
|
|
"Sv" 'fuel-scaffold-vocab
|
|
"Sh" 'fuel-scaffold-help
|
|
)
|
|
|
|
(spacemacs/set-leader-keys-for-major-mode 'fuel-listener-mode
|
|
"v" 'fuel-edit-vocabulary
|
|
"r" 'fuel-refresh-all
|
|
"Ts" 'fuel-stack-mode
|
|
"h" 'fuel-help
|
|
"Sv" 'fuel-scaffold-vocab
|
|
)
|
|
|
|
(evilified-state-evilify fuel-help-mode fuel-help-mode-map)
|
|
(dolist (mode '(fuel-debug-uses-mode fuel-debug-mode))
|
|
(evil-set-initial-state mode 'insert))))
|
|
)
|