48 lines
1.1 KiB
Haskell
Executable File
48 lines
1.1 KiB
Haskell
Executable File
#!/usr/bin/env nix-script
|
|
#!>haskell
|
|
#! shell | bup git
|
|
#! env | BUP_DIR
|
|
#! haskell | shell-conduit filepath
|
|
|
|
import Data.List (intersperse)
|
|
import Data.Conduit.Shell
|
|
import Data.Conduit.Shell.Segments (strings)
|
|
import Data.Conduit.Shell.Variadic (variadicProcess)
|
|
import System.FilePath
|
|
|
|
|
|
excluded :: [String]
|
|
excluded = intersperse "--exclude-rx"
|
|
[ "/home/rnhmjoj/game/"
|
|
, "/home/rnhmjoj/\\.cache/"
|
|
, "/mozilla/firefox/.+/.?lock"
|
|
, "/mozilla/firefox/.+/datareporting/"
|
|
, "/mozilla/firefox/.+/saved-telemetry-pings/"
|
|
, "/mozilla/firefox/.+/gmp/"
|
|
, "/unity3d/.+/.+/Unity/"
|
|
]
|
|
|
|
|
|
main :: IO ()
|
|
main = run (strings (bup "ls") >>= mapM_ backup)
|
|
|
|
|
|
findPath :: String -> Segment FilePath
|
|
findPath path = do
|
|
files <- strings (bup "ls" path)
|
|
if length files /= 1
|
|
then return ("/" </> final path)
|
|
else findPath (path </> head files)
|
|
where final = concat . drop 2 . splitPath
|
|
|
|
|
|
backup :: String -> Segment ()
|
|
backup name = do
|
|
path <- findPath (name </> "latest")
|
|
proc "bup" ("index" : path : "--exclude-rx" : excluded)
|
|
bup "save" "-n" name path
|
|
|
|
|
|
bup :: ProcessType r => String -> r
|
|
bup = variadicProcess "bup"
|