April 2020 - xmonad - Haskell.org

How to trigger Xmonad.Prompt.AddFile on recurrent times?
by Alejandro Garcia 24 Apr '20

24 Apr '20

Hello In order to help with my personal productivity. I want to register what I'm doing every 15 minutes or so. And using Xmonad.Prompt.AddFile is very easy. Currently I launch it with a key combination and I can start writing what I'm doing in this moment. However, no I would like to automatically launch AddFile every 15 minutes... Ideally from cron (which I know) or maybe xmonad has a way to do it itself? -- Alejandro García F. (elviejo) Too brief? Here's why! http://emailcharter.org EOM – End Of Message. The whole message is in the subject don't need to open it. NNTR – No Need To Respond. Help cut down on all those “cool” and “thanks” emails. SINGLE SUBJECT. Send one email for one topic, this makes replies easy.. CLEAR CALL TO ACTION: Ask for some specific result very clearly.

5 4

why spawn (and safeSpawn, etc) use encodeString?
by Platon Pronko 17 Apr '20

17 Apr '20

Hi! I noticed that spawn mangled my unicode characters - instead of my unicode character the called program recieved garbage. Looking deeper I found out that spawn pre-processes the string with `encodeString` function. `encodeString` first converts [Char] into [Word8], and then converts each individual Word8 back into Char. Since unicode Char will be converted into multiple Word8, the resulting string would be quite different. Example: Prelude> import Codec.Binary.UTF8.String Prelude Codec.Binary.UTF8.String> encodeString "Ø" "\195\152" Prelude Codec.Binary.UTF8.String> putStrLn "Ø" Ø Prelude Codec.Binary.UTF8.String> putStrLn $ encodeString "Ø" ÃPrelude Codec.Binary.UTF8.String> Is there a reason why xmonad uses `encodeString` here? I implemented a copy of the function that doesn't use `encodeString`, seems to work okay: safeSpawnUnicode :: MonadIO m => FilePath -> [String] -> m () safeSpawnUnicode prog args = io $ void $ forkProcess $ do uninstallSignalHandlers _ <- createSession executeFile prog True args Nothing Best regards, Platon Pronko

3 3

A proper way to make XMonad.Actions.WindowMenu configurable?
by Michal J. 05 Apr '20

05 Apr '20

Hello friendly folks, I'm a relative newb to both xmonad and Haskell, and for a while I wrestled with a seemingly simple task -- to make XMonad.Actions.WindowMenu (from xmonad-contrib) configurable. Essentially I wanted to go from: windowMenu :: X () windowMenu = ... to: windowMenu :: ??? -> X () windowMenu actions = ... so I can customize the actions that pop up. So I can bind different menus to different key combos. Now, I documented some of my struggles at Stack Overflow: https://stackoverflow.com/q/61001342/1177128 and eventually came up with a solution (with help from others!): https://stackoverflow.com/a/61013887/1177128 But given that grepping the xmonad and xmonad-contrib sources for ":: XConf ->" returns exactly 1 result (spoiler: `runX` in `Core.hs`), I'm pretty sure I'm holding it wrong: ```haskell defaultActions :: XConf -> [(String, X ())] defaultActions = do tags <- asks (workspaces . config) return ([ ("Cancel menu", return ()) , ("Close" , kill) , ("Maximize" , withFocused $ \w -> sendMessage $ maximizeRestore w) , ("Minimize" , withFocused $ \w -> minimizeWindow w) ] ++ [ ("Move to " ++ tag, windows $ W.shift tag) | tag <- tags ]) windowMenu' :: (XConf -> [(String, X ())]) -> X () windowMenu' actions = withFocused $ \w -> do acts <- asks actions Rectangle x y wh ht <- getSize w Rectangle sx sy swh sht <- gets $ screenRect . W.screenDetail . W.current . windowset let originFractX = (fi x - fi sx + fi wh / 2) / fi swh originFractY = (fi y - fi sy + fi ht / 2) / fi sht gsConfig = (buildDefaultGSConfig colorizer) { gs_originFractX = originFractX , gs_originFractY = originFractY } runSelectedAction gsConfig acts -- now it composes well, and I can pass in my own `actions` to `windowMenu` windowMenu = windowMenu' defaultActions ``` Can anyone well versed in the idiosyncrasies of Haskell and XMonad please point out what would be the proper -- nay, canonical -- solution if it were done by someone who actually knows what they're doing? It'd be greatly appreciated. :-) Cheers, Michal PS: If the refactor seems like I really have no clue what's going on... well... I don't. And if you have a pointer to some text I should read to understand all this better, I'm all ears.

2 2