Initial commit

This commit is contained in:
Griffin Smith 2018-03-29 18:10:07 -04:00
commit d88fb3194f
27 changed files with 2752 additions and 0 deletions

View file

@ -0,0 +1,21 @@
# -*- mode: snippet -*-
# name: test-module
# key: test
# --
{-# LANGUAGE ApplicativeDo #-}
--------------------------------------------------------------------------------
module ${1:`(if (not buffer-file-name) "Module"
(let ((name (file-name-sans-extension (buffer-file-name)))
(case-fold-search nil))
(if (cl-search "test/" name)
(replace-regexp-in-string "/" "."
(replace-regexp-in-string "^\/[^A-Z]*" ""
(car (last (split-string name "src")))))
(file-name-nondirectory name))))`} where
--------------------------------------------------------------------------------
import Test.Prelude
import qualified Hedgehog.Gen as Gen
import qualified Hedgehog.Range as Range
--------------------------------------------------------------------------------
import ${1:$(s-chop-suffix "Test" yas-text)}
--------------------------------------------------------------------------------