Revision widget using Development.DarcsRev

This commit is contained in:
fr33domlover 2016-05-18 08:10:32 +00:00
parent 1b1e4b978d
commit e67f05c0ad
4 changed files with 50 additions and 1 deletions

View file

@ -16,18 +16,40 @@
-- | Various custom widgets. -- | Various custom widgets.
module Vervis.Widget module Vervis.Widget
( breadcrumbsW ( breadcrumbsW
, revisionW
) )
where where
import Prelude import Prelude
import Data.Text (Text)
import Data.Time.Calendar (toGregorian)
import Data.Time.Clock (UTCTime (..))
import Formatting (sformat, (%), int, left)
import Yesod.Core (YesodBreadcrumbs, breadcrumbs) import Yesod.Core (YesodBreadcrumbs, breadcrumbs)
import Yesod.Core.Widget import Yesod.Core.Widget
import qualified Data.Text as T (take)
import Data.Revision.Local
import Development.DarcsRev (darcsTotalPatches, darcsRevision)
import Vervis.Settings (widgetFile) import Vervis.Settings (widgetFile)
import Vervis.Style import Vervis.Style
breadcrumbsW :: YesodBreadcrumbs site => WidgetT site IO () breadcrumbsW :: YesodBreadcrumbs site => WidgetT site IO ()
breadcrumbsW = do breadcrumbsW = do
(current, bcs) <- handlerToWidget breadcrumbs (current, bcs) <- handlerToWidget breadcrumbs
$(widgetFile "breadcrumbs") $(widgetFile "widget/breadcrumbs")
revisionW :: WidgetT site IO ()
revisionW =
let fmtTime t =
let (y, m, d) = toGregorian $ utctDay t
padded = left 2 '0'
in sformat (int % "-" % padded % "-" % padded) y m d
cgTimeFmt = fmtTime . cgTime
mrev = $darcsRevision
sharer = "fr33domlover" :: Text
repo = "vervis" :: Text
changes = $darcsTotalPatches :: Int
in $(widgetFile "widget/revision")

View file

@ -0,0 +1,27 @@
$# This file is part of Vervis.
$#
$# Written in 2016 by fr33domlover <fr33domlover@riseup.net>.
$#
$# ♡ Copying is an act of love. Please copy, reuse and share.
$#
$# The author(s) have dedicated all copyright and related and neighboring
$# rights to this software to the public domain worldwide. This software is
$# distributed without any warranty.
$#
$# You should have received a copy of the CC0 Public Domain Dedication along
$# with this software. If not, see
$# <http://creativecommons.org/publicdomain/zero/1.0/>.
#{sharer}/#{repo}
$maybe rev <- mrev
$case rev
$of RevTag t
#{cgTitle t} #{cgTimeFmt t}
$of RevTagPlus t n p
#{cgTitle t} + #{n} patches (#{T.take 10 $ cgHash p} #{cgTimeFmt p})
$of RevPatch p
#{T.take 10 $ cgHash p} #{cgTimeFmt p}
(total: #{changes} patches)
$nothing
(unknown revision)