forge/Vervis
1
0
Fork 0
Code Pull requests Activity

DarcsRev widget in default layout footer

Browse source
This commit is contained in:
fr33domlover 2016-05-18 08:35:13 +00:00
parent e67f05c0ad
commit 2eb89cf460
4 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Foundation.hs
View file

@ -32,7 +32,7 @@ import Data.Text as T (pack, intercalate)
import Text.Jasmine.Local (discardm) import Text.Jasmine.Local (discardm)
import Vervis.Import.NoFoundation hiding (last) import Vervis.Import.NoFoundation hiding (last)
import Vervis.Widget (breadcrumbsW) import Vervis.Widget (breadcrumbsW, revisionW)
-- | The foundation datatype for your application. This can be a good place to -- | The foundation datatype for your application. This can be a good place to
-- keep settings and values requiring initialization before your application -- keep settings and values requiring initialization before your application

7
templates/default-layout-wrapper.hamlet
View file

@ -36,9 +36,4 @@ $#
$# <script> $# <script>
$# document.documentElement.className = document.documentElement.className.replace(/\bno-js\b/,'js'); $# document.documentElement.className = document.documentElement.className.replace(/\bno-js\b/,'js');
<body> <body>
<div class="container"> ^{pageBody pc}
<header>
<div id="main" role="main">
^{pageBody pc}
$# <footer>
$# #{appCopyright $ appSettings master}

3
templates/default-layout.hamlet
View file

@ -27,3 +27,6 @@ $maybe msg <- mmsg
<div #message>#{msg} <div #message>#{msg}
^{widget} ^{widget}
<footer>
^{revisionW}

5
templates/widget/revision.hamlet
View file

@ -12,7 +12,7 @@ $# You should have received a copy of the CC0 Public Domain Dedication along
$# with this software. If not, see $# with this software. If not, see
$# <http://creativecommons.org/publicdomain/zero/1.0/>. $# <http://creativecommons.org/publicdomain/zero/1.0/>.
#{sharer}/#{repo} #{sharer}/#{repo} #
$maybe rev <- mrev $maybe rev <- mrev
$case rev $case rev
@ -22,6 +22,7 @@ $maybe rev <- mrev
#{cgTitle t} + #{n} patches (#{T.take 10 $ cgHash p} #{cgTimeFmt p}) #{cgTitle t} + #{n} patches (#{T.take 10 $ cgHash p} #{cgTimeFmt p})
$of RevPatch p $of RevPatch p
#{T.take 10 $ cgHash p} #{cgTimeFmt p} #{T.take 10 $ cgHash p} #{cgTimeFmt p}
(total: #{changes} patches)
\ (total: #{changes} patches)
$nothing $nothing
(unknown revision) (unknown revision)