差分

このページの2つのバージョン間の差分を表示します。

--- elm:time [2019/05/04] – adash333
+++ elm:time [2019/06/21] (現在) – [Elmでアナログ時計] adash333
@@ 行 1: / 行 1: @@
 ====== Elmでtime ======
 https://qiita.com/ababup1192/items/803bd2e66461c70bf7e7
 @ababup1192
 年01月06日に更新
@@ 行 11: / 行 8: @@
+http://i-doctor.sakura.ne.jp/font/?p=37690
+ElmとFirebaseでチャットアプリを写経してみる（１）実行してみる
+年5月10日
-月はTime.Monthとしてカスタムタイプで定義されているため、表示できない！
+http://i-doctor.sakura.ne.jp/font/?p=38884
+ElmとFirebaseでチャットアプリを写経してみる（２）複数ファイルを1個のファイルにする
+年6月13日2019年6月16日
-かなり面倒だが、自分で関数を作らないといけない。
+===== Elmでアナログ時計 =====
-→あった！感謝！
+https://ellie-app.com/5StJCN9GCb9a1
+{{:elm:pasted:20190621-135559.png}}
-https://github.com/ababup1192/elm-firebase-chat/blob/master/src/Main.elm
+[[https://ellie-app.com/37gYpCSxQHGa1|IntroductionToElmのサンプルコード]]と[[https://yoheikoga.github.io/2016/11/17/elm-analog-clock-time-now/|Elmで現在時刻を表示するアナログ時計2016-11-17]]をコピペしました。
-<code>
-import Time exposing (Month(..), Posix, Weekday(..), Zone)
+https://qiita.com/KYhei/items/2f469d7254b3d06bd054
--- ---------------------------
--- TIME Util
--- ---------------------------
-toDate : Zone -> Posix -> String
-toDate zone time =
-    let
-        padZero2 =
-            String.padLeft 2 '0'
-        month =
-            Time.toMonth zone time |> toMonthNumber
-        day =
+===== elmでtime関連リンク =====
-            Time.toDay zone time |> String.fromInt
-        year =
+https://qiita.com/miyamo_madoka/items/ae83fe3a43eac432434e
-            Time.toYear zone time |> String.fromInt
+@miyamo_madoka
+年04月16日に更新
+Elmで日付を扱う0.19編
-        hour =
+上記によると、日本語のサイトなら、以下の方法で十分かも、、、
-            Time.toHour zone time |> String.fromInt |> padZero2
-        minutes =
-            Time.toMinute zone time |> String.fromInt |> padZero2
-        week =
+https://package.elm-lang.org/packages/justinmimbs/timezone-data/latest/
-            Time.toWeekday zone time |> toJapaneseWeekday
-    in
-    year ++ "年" ++ month ++ "月" ++ day ++ "日 " ++ hour ++ ":" ++ minutes ++ " " ++ week ++ "曜日"
+<code>
+elm install justinmimbs/timezone-data
+</code>
-toMonthNumber : Time.Month -> String
+してから、
-toMonthNumber month =
+<code>
-    case month of
+import Time
-        Jan ->
+import TimeZone exposing (asia__tokyo)
-            "1"
-        Feb ->
+zone : Time.Zone
-            "2"
+zone =
+    asia__tokyo()
+</code>
-        Mar ->
-            "3"
-        Apr ->
-            "4"
-        May ->
-            "5"
-        Jun ->
-            "6"
-        Jul ->
-            "7"
-        Aug ->
-            "8"
-        Sep ->
+===== elmで月monthを表示 =====
-            "9"
-        Oct ->
-            "10"
-        Nov ->
+月はTime.Monthとしてカスタムタイプで定義されているため、表示できない！
-            "11"
-        Dec ->
+かなり面倒だが、自分で関数を作らないといけない。
-            "12"
+→あった！感謝！
-toJapaneseWeekday : Weekday -> String
+https://github.com/ababup1192/elm-firebase-chat/blob/master/src/Main.elm
-toJapaneseWeekday weekday =
-    case weekday of
-        Mon ->
-            "月"
-        Tue ->
-            "火"
-        Wed ->
-            "水"
-        Thu ->
-            "木"
-        Fri ->
-            "金"
-        Sat ->
-            "土"
-        Sun ->
-            "日"
-</code>
+<html>
+<script src="https://gist.github.com/adash333/feee772ea316b98df5037652a619a258.js"></script>
+</html>