差分

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

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