twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-09-02 04:03:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

XPrompt.hs: use a single blank

Browse Source 
Excessive blanks in prompts originate from here. Eliminate. :)
Rewrite `getLastWord' and `skipLastWord' in pointfree style.
This commit is contained in:
"Valery V. Vorotyntsev"
2007-10-22 19:23:10 +00:00
parent df33392d08
commit 9f0a2a66f9
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XPrompt.hs
View File

@@ -120,7 +120,7 @@ instance XPrompt XPType where
-- This is an example of a XPrompt instance definition: -- This is an example of a XPrompt instance definition:
-- --
-- > instance XPrompt Shell where -- > instance XPrompt Shell where
-- > showXPrompt Shell = "Run: " -- > showXPrompt Shell = "Run: "
class XPrompt t where class XPrompt t where
showXPrompt :: t -> String showXPrompt :: t -> String
@@ -667,14 +667,12 @@ splitInSubListsAt i x = f : splitInSubListsAt i rest
-- | Gets the last word of a string or the whole string if formed by -- | Gets the last word of a string or the whole string if formed by
-- only one word -- only one word
getLastWord :: String -> String getLastWord :: String -> String
getLastWord str = getLastWord = reverse . fst . breakAtSpace . reverse
reverse . fst . breakAtSpace . reverse $ str
-- | Skips the last word of the string, if the string is composed by -- | Skips the last word of the string, if the string is composed by
-- more then one word. Otherwise returns the string. -- more then one word. Otherwise returns the string.
skipLastWord :: String -> String skipLastWord :: String -> String
skipLastWord str = skipLastWord = reverse . snd . breakAtSpace . reverse
reverse . snd . breakAtSpace . reverse $ str
breakAtSpace :: String -> (String, String) breakAtSpace :: String -> (String, String)
breakAtSpace s breakAtSpace s