twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

change XMonad.Prompt.AppendFile to use mkAbsolutePath

Browse Source
This commit is contained in:
brandon s allbery kf8nh
2022-08-20 12:01:42 -04:00
parent 64eb4e46ec
commit 2c5ea5f94a
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
CHANGES.md
View File

@@ -94,6 +94,11 @@
### Bug Fixes and Minor Changes ### Bug Fixes and Minor Changes
* `XMonad.Prompt.AppendFile`
- Use `XMonad.Prelude.mkAbsolutePath` to force names to be relative to the
home directory and support `~/` prefixes.
* `XMonad.Prompt.OrgMode` * `XMonad.Prompt.OrgMode`
- Fixes the date parsing issue such that entries with format of - Fixes the date parsing issue such that entries with format of
@@ -225,6 +230,8 @@
- Added a `Default` instance for `UrgencyConfig` and `DzenUrgencyHook`. - Added a `Default` instance for `UrgencyConfig` and `DzenUrgencyHook`.
[this PR]: https://github.com/xmonad/xmonad-contrib/pull/744
### Other changes ### Other changes
* Migrated the sample build scripts from the deprecated `xmonad-testing` repo to * Migrated the sample build scripts from the deprecated `xmonad-testing` repo to

3
XMonad/Prompt/AppendFile.hs
View File

@@ -30,6 +30,7 @@ module XMonad.Prompt.AppendFile (
import XMonad.Core import XMonad.Core
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prelude (mkAbsolutePath)
import System.IO import System.IO
@@ -91,4 +92,4 @@ appendFilePrompt' c trans fn = mkXPrompt (AppendFile fn)
-- | Append a string to a file. -- | Append a string to a file.
doAppend :: (String -> String) -> FilePath -> String -> X () doAppend :: (String -> String) -> FilePath -> String -> X ()
doAppend trans fn = io . withFile fn AppendMode . flip hPutStrLn . trans doAppend trans fn s = mkAbsolutePath fn >>= \f -> (io . withFile f AppendMode . flip hPutStrLn . trans) s