module Yi.FuzzyOpen
( fuzzyOpen
) where
import Yi
import Yi.MiniBuffer
import Yi.Completion
import Yi.Utils()
import Control.Monad (replicateM, replicateM_, forM, void)
import Control.Monad.Base
import System.Directory (doesDirectoryExist, getDirectoryContents)
import System.FilePath ((</>))
import Data.List (intercalate)
fuzzyOpen :: YiM ()
fuzzyOpen = do
withEditor splitE
bufRef <- withEditor newTempBufferE
fileList <- liftBase $ getRecursiveContents "."
updateMatchList bufRef fileList
void $ withEditor $ spawnMinibufferE "" $ const $ localKeymap bufRef fileList
getRecursiveContents :: FilePath -> IO [FilePath]
getRecursiveContents topdir = do
names <- getDirectoryContents topdir
let properNames = filter (`notElem` [".", "..", ".git", ".svn"]) names
paths <- forM properNames $ \name -> do
let path = topdir </> name
isDirectory <- doesDirectoryExist path
if isDirectory
then getRecursiveContents path
else return [path]
return (concat paths)
localKeymap :: BufferRef -> [FilePath] -> Keymap
localKeymap bufRef fileList =
choice [spec KEnter ?>>! openInThisWindow bufRef
, ctrlCh 't' ?>>! openInNewTab bufRef
, ctrlCh 's' ?>>! openInSplit bufRef
, spec KEsc ?>>! replicateM 2 closeBufferAndWindowE
, ctrlCh 'h' ?>>! updatingB (deleteB Character Backward)
, spec KBS ?>>! updatingB (deleteB Character Backward)
, spec KDel ?>>! updatingB (deleteB Character Backward)
, ctrlCh 'a' ?>>! moveToSol
, ctrlCh 'e' ?>>! moveToEol
, spec KLeft ?>>! moveXorSol 1
, spec KRight ?>>! moveXorEol 1
, ctrlCh 'p' ?>>! moveSelectionUp bufRef
, spec KUp ?>>! moveSelectionUp bufRef
, ctrlCh 'n' ?>>! moveSelectionDown bufRef
, spec KDown ?>>! moveSelectionDown bufRef
, ctrlCh 'w' ?>>! updatingB (deleteB unitWord Backward)
, ctrlCh 'u' ?>>! updatingB (moveToSol >> deleteToEol)
, ctrlCh 'k' ?>>! updatingB deleteToEol
]
<|| (insertChar >>! update)
where update = updateMatchList bufRef fileList
updatingB bufAction = withBuffer bufAction >> update
showFileList :: [FilePath] -> String
showFileList = intercalate "\n" . map (" " ++)
updateMatchList :: BufferRef -> [FilePath] -> YiM ()
updateMatchList bufRef fileList = do
needle <- withBuffer elemsB
let filteredFiles = filter (subsequenceMatch needle) fileList
withEditor $ withGivenBuffer0 bufRef $ do
replaceBufferContent $ showFileList filteredFiles
moveTo 0
replaceCharB '*'
return ()
openInThisWindow :: BufferRef -> YiM ()
openInThisWindow = openRoutine (return ())
openInSplit :: BufferRef -> YiM ()
openInSplit = openRoutine splitE
openInNewTab :: BufferRef -> YiM ()
openInNewTab = openRoutine newTabE
openRoutine :: EditorM () -> BufferRef -> YiM ()
openRoutine preOpenAction bufRef = do
chosenFile <- fmap (drop 2) $ withEditor $ withGivenBuffer0 bufRef readLnB
withEditor $ do
replicateM_ 2 closeBufferAndWindowE
preOpenAction
void $ editFile chosenFile
insertChar :: Keymap
insertChar = textChar >>= write . insertB
moveSelectionUp :: BufferRef -> EditorM ()
moveSelectionUp bufRef = withGivenBuffer0 bufRef $ do
replaceCharB ' '
lineUp
replaceCharB '*'
moveSelectionDown :: BufferRef -> EditorM ()
moveSelectionDown bufRef = withGivenBuffer0 bufRef $ do
replaceCharB ' '
lineDown
replaceCharB '*'