<commit_before>-----------------------------------------------------------------------------
-- |
-- Module      :  XMonadContrib.XMonadPrompt
-- Copyright   :  (C) 2007 <NAME>
-- License     :  BSD3
-- 
-- Maintainer  :  <EMAIL>
-- Stability   :  unstable
-- Portability :  unportable
--
-- A prompt for running XMonad commands
--
-----------------------------------------------------------------------------

module XMonadContrib.XMonadPrompt (
                             -- * Usage
                             -- $usage
                             xmonadPrompt
                              ) where
{-
usage:
in Config.hs add:
> import XMonadContrib.XPrompt
> import XMonadContrib.XMonadPrompt

in you keybindings add:

>   , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultPromptConfig)

-}

import XMonad
import XMonadContrib.XPrompt
import XMonadContrib.Commands

data XMonad = XMonad

instance XPrompt XMonad where
    showXPrompt XMonad = "XMonad:   "

xmonadPrompt :: XPConfig -> X ()
xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand'<commit_msg>XMonadPrompt.hs: minor haddock corrections<commit_after>-----------------------------------------------------------------------------
-- |
-- Module      :  XMonadContrib.XMonadPrompt
-- Copyright   :  (C) 2007 <NAME>
-- License     :  BSD3
-- 
-- Maintainer  :  <EMAIL>
-- Stability   :  unstable
-- Portability :  unportable
--
-- A prompt for running XMonad commands
--
-----------------------------------------------------------------------------

module XMonadContrib.XMonadPrompt (
                             -- * Usage
                             -- $usage
                             xmonadPrompt
                              ) where

import XMonad
import XMonadContrib.XPrompt
import XMonadContrib.Commands (defaultCommands, runCommand')

-- $usage
--
-- in Config.hs add:
--
-- > import XMonadContrib.XPrompt
-- > import XMonadContrib.XMonadPrompt
--
-- in you keybindings add:
--
-- >   , ((modMask .|. controlMask, xK_x), xmonadPrompt defaultXPConfig)
--

data XMonad = XMonad

instance XPrompt XMonad where
    showXPrompt XMonad = "XMonad:   "

xmonadPrompt :: XPConfig -> X ()
xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand'
{'fraction_non_alphanumeric': 0.22251195132551066, 'fraction_numerical': 0.004345936549326379, 'mean_word_length': 1.4334038054968288, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 15, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4176663', 'n_tokens_mistral': 697, 'n_tokens_neox': 681, 'n_words': 150}