use absolute time
This commit is contained in:
parent
33eaa42628
commit
a617c695c8
|
@ -7,15 +7,14 @@ import Component.Markdown as Markdown
|
||||||
import Data.Array (drop, foldMap)
|
import Data.Array (drop, foldMap)
|
||||||
import Data.Const (Const)
|
import Data.Const (Const)
|
||||||
import Data.Lens (Lens', lens, use, (%=), (.=))
|
import Data.Lens (Lens', lens, use, (%=), (.=))
|
||||||
import Data.Maybe (Maybe(..), fromMaybe, isJust, maybe)
|
import Data.Maybe (Maybe(..), fromMaybe, isJust)
|
||||||
import Data.Monoid (guard)
|
import Data.Monoid (guard)
|
||||||
import Data.Nullable (toMaybe)
|
import Data.Nullable (toMaybe)
|
||||||
import Data.String (null, split, take) as S
|
import Data.String (null, split, take) as S
|
||||||
import Data.String.Pattern (Pattern(..))
|
import Data.String.Pattern (Pattern(..))
|
||||||
import Data.Symbol (SProxy(..))
|
import Data.Symbol (SProxy(..))
|
||||||
import Data.Tuple (fst, snd)
|
|
||||||
import Effect.Aff (Aff)
|
import Effect.Aff (Aff)
|
||||||
import Globals (app', mmoment8601)
|
import Globals (app')
|
||||||
import Halogen as H
|
import Halogen as H
|
||||||
import Halogen.HTML (HTML, a, br_, button, div, div_, form, input, label, span, text, textarea)
|
import Halogen.HTML (HTML, a, br_, button, div, div_, form, input, label, span, text, textarea)
|
||||||
import Halogen.HTML as HH
|
import Halogen.HTML as HH
|
||||||
|
@ -124,8 +123,8 @@ bmark b' =
|
||||||
[ text tag ])
|
[ text tag ])
|
||||||
(S.split (Pattern " ") bm.tags)
|
(S.split (Pattern " ") bm.tags)
|
||||||
|
|
||||||
, a [ class_ "link f7 dib gray w4", title (maybe bm.time snd mmoment) , href (linkToFilterSingle bm.slug) ]
|
, a [ class_ "link f7 dib gray w4", href (linkToFilterSingle bm.slug) ]
|
||||||
[ text (maybe " " fst mmoment) ]
|
[ text shtime ]
|
||||||
|
|
||||||
-- links
|
-- links
|
||||||
, whenH app.dat.isowner $ \_ ->
|
, whenH app.dat.isowner $ \_ ->
|
||||||
|
@ -194,7 +193,7 @@ bmark b' =
|
||||||
editField f = Just <<< BEditField <<< f
|
editField f = Just <<< BEditField <<< f
|
||||||
linkToFilterSingle slug = fromNullableStr app.userR <> "/b:" <> slug
|
linkToFilterSingle slug = fromNullableStr app.userR <> "/b:" <> slug
|
||||||
linkToFilterTag tag = fromNullableStr app.userR <> "/t:" <> tag
|
linkToFilterTag tag = fromNullableStr app.userR <> "/t:" <> tag
|
||||||
mmoment = mmoment8601 bm.time
|
shtime = S.take 16 bm.time
|
||||||
toTextarea input =
|
toTextarea input =
|
||||||
S.split (Pattern "\n") input
|
S.split (Pattern "\n") input
|
||||||
# foldMap (\x -> [br_, text x])
|
# foldMap (\x -> [br_, text x])
|
||||||
|
|
|
@ -5,7 +5,8 @@ import Prelude
|
||||||
import Data.Foldable (for_)
|
import Data.Foldable (for_)
|
||||||
import Data.Maybe (Maybe(..))
|
import Data.Maybe (Maybe(..))
|
||||||
import Effect (Effect)
|
import Effect (Effect)
|
||||||
import Effect.Aff (Aff)
|
import Effect.Aff (Aff, forkAff, makeAff)
|
||||||
|
import Effect.Class (liftEffect)
|
||||||
import Globals (RawHTML(..))
|
import Globals (RawHTML(..))
|
||||||
import Halogen as H
|
import Halogen as H
|
||||||
import Halogen.HTML as HH
|
import Halogen.HTML as HH
|
||||||
|
@ -52,7 +53,9 @@ mkComponent toRawHTML =
|
||||||
mel <- H.getHTMLElementRef elRef
|
mel <- H.getHTMLElementRef elRef
|
||||||
for_ mel \el -> do
|
for_ mel \el -> do
|
||||||
{ inputval } <- H.get
|
{ inputval } <- H.get
|
||||||
H.liftEffect (unsafeSetInnerHTML el (toRawHTML inputval))
|
H.liftAff $ forkAff $ makeAff \cb -> do
|
||||||
|
liftEffect $ unsafeSetInnerHTML el (toRawHTML inputval)
|
||||||
|
mempty
|
||||||
pure unit
|
pure unit
|
||||||
|
|
||||||
Receive inputval -> do
|
Receive inputval -> do
|
||||||
|
|
|
@ -6,5 +6,6 @@ marked.setOptions({
|
||||||
});
|
});
|
||||||
|
|
||||||
exports.markedImpl = function(str) {
|
exports.markedImpl = function(str) {
|
||||||
|
if (!str) return "";
|
||||||
return marked(str);
|
return marked(str);
|
||||||
};
|
};
|
||||||
|
|
2
static/js/app.min.js
vendored
2
static/js/app.min.js
vendored
File diff suppressed because one or more lines are too long
Binary file not shown.
File diff suppressed because one or more lines are too long
Binary file not shown.
Loading…
Reference in a new issue