{-# LANGUAGE OverloadedStrings #-}

module Language.Foveran.Util.Emacs where

import System.Exit
import Text.PrettyPrint (render)
import Data.SExpr (pprint)
import Language.Foveran.Editor.EmacsMode
import Language.Foveran.Lexing.Spec (compileLexicalSpecification)
import Language.Foveran.Parsing.Token ()
import Language.Foveran.Parsing.LexicalSpec (lexicalSpec)

genEmacsMode :: IO a
genEmacsMode = do
  generateEmacsMode lexicalSpec "foveran" "\\\\.fv\\\\'"
  exitSuccess

# LANGUAGE OverloadedStrings #

module Language.Foveran.Util.Emacs where

import System.Exit
import Text.PrettyPrint (render)
import Data.SExpr (pprint)
import Language.Foveran.Editor.EmacsMode
import Language.Foveran.Lexing.Spec (compileLexicalSpecification)
import Language.Foveran.Parsing.Token ()
import Language.Foveran.Parsing.LexicalSpec (lexicalSpec)

genEmacsMode :: IO a
genEmacsMode = do
  generateEmacsMode lexicalSpec "foveran" "\\\\.fv\\\\'"
  exitSuccess
