module Emacs.Symbol where
import Prelude()
import Protolude
import Emacs.Core
import Data.IORef
allSymbols :: EmacsM [EmacsValue]
allSymbols = do
ref <- liftIO $ newIORef []
funcall1 "mapatoms" (accum ref)
liftIO $ readIORef ref
where
accum :: IORef [EmacsValue] -> EmacsValue -> IO ()
accum ref sym = modifyIORef ref (sym:)
getSymbolName :: Text -> EmacsM Text
getSymbolName name =
extractString =<< funcall1 "symbol-name" (Symbol name)
setValue :: ToEmacsValue a => Text -> a -> EmacsM EmacsValue
setValue name val =
funcall2 "set" (Symbol name) val
getValue :: Text -> EmacsM EmacsValue
getValue name =
funcall1 "symbol-value" (Symbol name)
isBounded :: Text -> EmacsM Bool
isBounded name =
isNotNil =<< funcall1 "boundp" (Symbol name)
getDefaultValue :: Text -> EmacsM EmacsValue
getDefaultValue name =
funcall1 "default-value" (Symbol name)
setDefaultValue :: ToEmacsValue a => Text -> a -> EmacsM EmacsValue
setDefaultValue name val =
funcall2 "set-default" (Symbol name) val
symbolProperty :: Text -> Text -> EmacsM (Maybe EmacsValue)
symbolProperty name property = do
ev <- funcall2 "get" (Symbol name) (Symbol property)
b <- isNotNil ev
return $ if b then Just ev else Nothing
setSymbolProperty
:: (ToEmacsValue v)
=> Text
-> Text
-> v
-> EmacsM EmacsValue
setSymbolProperty name property value =
funcall3 "put" (Symbol name) (Symbol property) value