src/Internal/PassMenu.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Internal.PassMenu where

import XMonad
import XMonad.Util.Run
import Control.Monad

runPassMenu :: X ()
runPassMenu = void $
  safeSpawn "passmenu" [
    "-p", "Password ", 
    "-l", "12",
    "-dim", "0.4",
    "-sb", "#f54245",
    "-nf", "#f54245" ]