twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Action search autocomplete based on whole line

Browse Source 
The previous version autocompleted based on words, but when searching from web
sites, it makes more sense to autocomplete based on the entire search.
This commit is contained in:
Mats Rauhala 2011-05-04 21:52:01 +00:00
parent 29cad0672e
commit 8056bb5c2c
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/Search.hs
View File

@ -61,7 +61,7 @@ import Data.Char (isAlphaNum, isAscii)
import Data.List (isPrefixOf) import Data.List (isPrefixOf)
import Text.Printf import Text.Printf
import XMonad (X(), MonadIO, liftIO) import XMonad (X(), MonadIO, liftIO)
import XMonad.Prompt (XPrompt(showXPrompt), mkXPrompt, XPConfig(), historyCompletionP) import XMonad.Prompt (XPrompt(showXPrompt, nextCompletion, commandToComplete), mkXPrompt, XPConfig(), historyCompletionP, getNextCompletion)
import XMonad.Prompt.Shell (getBrowser) import XMonad.Prompt.Shell (getBrowser)
import XMonad.Util.Run (safeSpawn) import XMonad.Util.Run (safeSpawn)
import XMonad.Util.XSelection (getSelection) import XMonad.Util.XSelection (getSelection)
@ -199,6 +199,8 @@ Happy searching! -}
data Search = Search Name data Search = Search Name
instance XPrompt Search where instance XPrompt Search where
showXPrompt (Search name)= "Search [" ++ name ++ "]: " showXPrompt (Search name)= "Search [" ++ name ++ "]: "
nextCompletion _ = getNextCompletion
commandToComplete _ c = c
-- | Escape the search string so search engines understand it. Only -- | Escape the search string so search engines understand it. Only
-- digits and ASCII letters are not encoded. All non ASCII characters -- digits and ASCII letters are not encoded. All non ASCII characters