DarcsRev widget in default layout footer
This commit is contained in:
parent
e67f05c0ad
commit
2eb89cf460
4 changed files with 8 additions and 9 deletions
|
@ -32,7 +32,7 @@ import Data.Text as T (pack, intercalate)
|
|||
|
||||
import Text.Jasmine.Local (discardm)
|
||||
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
|
||||
-- keep settings and values requiring initialization before your application
|
||||
|
|
|
@ -36,9 +36,4 @@ $#
|
|||
$# <script>
|
||||
$# document.documentElement.className = document.documentElement.className.replace(/\bno-js\b/,'js');
|
||||
<body>
|
||||
<div class="container">
|
||||
<header>
|
||||
<div id="main" role="main">
|
||||
^{pageBody pc}
|
||||
$# <footer>
|
||||
$# #{appCopyright $ appSettings master}
|
||||
^{pageBody pc}
|
||||
|
|
|
@ -27,3 +27,6 @@ $maybe msg <- mmsg
|
|||
<div #message>#{msg}
|
||||
|
||||
^{widget}
|
||||
|
||||
<footer>
|
||||
^{revisionW}
|
||||
|
|
|
@ -12,7 +12,7 @@ $# 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}
|
||||
#{sharer}/#{repo} #
|
||||
|
||||
$maybe rev <- mrev
|
||||
$case rev
|
||||
|
@ -22,6 +22,7 @@ $maybe rev <- mrev
|
|||
#{cgTitle t} + #{n} patches (#{T.take 10 $ cgHash p} #{cgTimeFmt p})
|
||||
$of RevPatch p
|
||||
#{T.take 10 $ cgHash p} #{cgTimeFmt p}
|
||||
(total: #{changes} patches)
|
||||
|
||||
\ (total: #{changes} patches)
|
||||
$nothing
|
||||
(unknown revision)
|
||||
|
|
Loading…
Reference in a new issue