opciones - Haskell(haskeline) palabra completa

multiplicar haskell

Question

Haskeline hace que sea muy fácil obtener la funcionalidad de completar la pestaña del nombre de archivo:

module Main where
import System.Console.Haskeline
import System.Environment
mySettings :: Settings IO
mySettings = defaultSettings {historyFile = Just "myhist"}
main :: IO ()
main = do
args <- getArgs
let inputFunc = getInputLine
runInputT mySettings $ withInterrupt $ loop inputFunc 0
where
loop inputFunc n = do
minput <- handleInterrupt (return (Just "Caught interrupted"))
$ inputFunc (show n ++ ":")
case minput of
Nothing -> return ()
Just s -> do
outputStrLn ("line " ++ show n ++ ":" ++ s)
loop inputFunc (n+1)

También proporciona funciones como completeWord y completeQuotedWord, que deberían poder utilizarse de la misma manera que se utiliza completeFilename para realizar la funcionalidad anterior.
(En otras palabras, tener tabulación completa basada en una lista de palabras (por ejemplo, nombres de funciones), en lugar de basarse en el contenido de una carpeta)

¿Puede alguien proporcionar un ejemplo de trabajo, o un código de trabajo, de esto?

Las recomendaciones para funciones de otros paquetes (como HCL) también son útiles.

Answer 1

¿Es este el tipo de cosa que buscas?

import Data.List
wordList = [ "Apple", "Pear", "Peach", "Grape", "Grapefruit", "Slime Mold"]
searchFunc :: String -> [Completion]
searchFunc str = map simpleCompletion $ filter (str `isPrefixOf`) wordList
mySettings :: Settings IO
mySettings = Settings { historyFile = Just "myhist"
, complete = completeWord Nothing " /t" $ return . searchFunc
, autoAddHistory = True
}

Reemplace la definición de mySettings en su fragmento con eso y debería funcionar.