nptools-0.1: archive.hs

import System.Environment
import HSH
import Data.Time.Clock
import Data.Time.Calendar
main :: IO ()
main = do args <- getArgs
          (year, _, _) <- (toGregorian . utctDay) `fmap` getCurrentTime
          run $ ("refile", ["+archive-"++show year, "-src", "+inbox"] ++ args)