mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 12:11:52 -07:00
3d65a6bf72
Essentially, whenever the tutorial actually has decent material on the
subject matter. The replacement is roughly done as follows:
- logHook → tutorial
- keybindings → tutorial, as this is thoroughly covered
- manageHook → tutorial + X.D.Extending, as the manageHook stuff the
tutorial talks about is a little bit of an afterthought.
- X.D.Extending (on its own) → tutorial + X.D.Extending
- layoutHook → tutorial + X.D.Extending, as the tutorial, while
talking about layouts, doesn't necessarily have a huge focus there.
- mouse bindings → leave this alone, as the tutorial does not at all
talk about them.
65 lines
1.8 KiB
Haskell
65 lines
1.8 KiB
Haskell
{- |
|
|
Module : XMonad.Prompt.Zsh
|
|
Description : Zsh-specific version of "XMonad.Prompt.Shell".
|
|
Copyright : (C) 2020 Zubin Duggal
|
|
License : BSD3
|
|
|
|
Maintainer : zubin.duggal@gmail.com
|
|
Stability : unstable
|
|
Portability : unportable
|
|
|
|
A version of "XMonad.Prompt.Shell" that lets you access the awesome power of Zsh
|
|
completions in your xmonad prompt
|
|
-}
|
|
|
|
module XMonad.Prompt.Zsh
|
|
( -- * Usage
|
|
-- $usage
|
|
Zsh (..)
|
|
, zshPrompt
|
|
-- * Utility functions
|
|
, getZshCompl
|
|
, stripZsh
|
|
) where
|
|
|
|
import XMonad
|
|
import XMonad.Prompt
|
|
import XMonad.Util.Run
|
|
|
|
{- $usage
|
|
1. Grab the @capture.zsh@ script to capture zsh completions from <https://github.com/Valodim/zsh-capture-completion>
|
|
2. In your @~\/.xmonad\/xmonad.hs@:
|
|
|
|
> import XMonad.Prompt
|
|
> import XMonad.Prompt.Zsh
|
|
|
|
3. In your keybindings add something like:
|
|
|
|
> , ((modm .|. controlMask, xK_x), zshPrompt def "/path/to/capture.zsh")
|
|
|
|
For detailed instruction on editing the key binding see
|
|
<https://xmonad.org/TUTORIAL.html#customizing-xmonad the tutorial>. -}
|
|
|
|
data Zsh = Zsh
|
|
|
|
instance XPrompt Zsh where
|
|
showXPrompt Zsh = "Run: "
|
|
completionToCommand _ = stripZsh
|
|
commandToComplete _ s = s
|
|
nextCompletion _ s cs = getNextCompletion s (map stripZsh cs)
|
|
|
|
zshPrompt :: XPConfig -> FilePath -> X ()
|
|
zshPrompt c capture = mkXPrompt Zsh c (getZshCompl capture) (\x -> safeSpawn "zsh" ["-c",x])
|
|
|
|
getZshCompl :: FilePath -> String -> IO [String]
|
|
getZshCompl capture s
|
|
| s == "" = return []
|
|
| otherwise = processCompls <$> runProcessWithInput capture [s] ""
|
|
where processCompls = map (\x -> skipLastWord s ++ filter (/= '\r') x) . lines
|
|
|
|
-- | Removes the argument description from the zsh completion
|
|
stripZsh :: String -> String
|
|
stripZsh "" = ""
|
|
stripZsh (' ':'-':'-':' ':_) = ""
|
|
stripZsh (x:xs) = x : stripZsh xs
|