;;; packages.el --- sml Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
;; Author: Keith Simmons <keith@the-simmons.net>
;; URL: https://github.com/syl20bnr/spacemacs
;; This file is not part of GNU Emacs.
;;; License: GPLv3
(setq sml-packages
'(
sml-mode
ob-sml
smartparens
))
(defun sml/init-sml-mode ()
(use-package sml-mode
:mode ("\\.\\(sml\\|sig\\)\\'" . sml-mode)
:defer t
:commands run-sml
:init (spacemacs/register-repl 'sml-mode 'run-sml "sml")
:config
(progn
(defun spacemacs/sml-prog-proc-send-buffer-and-focus ()
"Send buffer to REPL and switch to it in `insert state'."
(interactive)
(sml-prog-proc-send-buffer t)
(evil-insert-state))
(defun spacemacs/sml-prog-proc-send-region-and-focus (start end)
"Send region to REPL and switch to it in `insert state'."
(interactive "r")
(sml-prog-proc-send-region start end t)
(defun spacemacs/sml-send-function-and-focus ()
"Send function at point to REPL and switch to it in `insert state'."
(sml-send-function t)
(spacemacs/set-leader-keys-for-major-mode 'sml-mode
;; REPL
"'" 'run-sml
"sb" 'sml-prog-proc-send-buffer
"sB" 'spacemacs/sml-prog-proc-send-buffer-and-focus
"sf" 'sml-send-function
"sF" 'spacemacs/sml-send-function-and-focus
"si" 'run-sml
"sr" 'sml-prog-proc-send-region
"sR" 'spacemacs/sml-prog-proc-send-region-and-focus
"ss" 'run-sml)
(define-key sml-mode-map (kbd "RET") 'reindent-then-newline-and-indent)
(define-key sml-mode-map (kbd "M-SPC") 'sml-electric-space)
(define-key sml-mode-map (kbd "|") 'sml-electric-pipe))))
(defun sml/post-init-smartparens ()
(with-eval-after-load 'smartparens
;; don't auto-close apostrophes (type 'a = foo) and backticks (`Foo)
(sp-local-pair 'sml-mode "'" nil :actions nil)
(sp-local-pair 'sml-mode "`" nil :actions nil)))
(defun sml/pre-init-ob-sml ()
(spacemacs|use-package-add-hook org
:post-config
(use-package ob-sml
:init (add-to-list 'org-babel-load-languages '(sml . t)))))
(defun sml/init-ob-sml ())