カテゴリ管理機能のバグ修正しました

カテゴリ機能が一部腐っていました、 「▲」「▼」 の位置入れ替えボタンです。 onClickイベントを張り付かせて安心していたところ、動いていませんでした。

原因はここです

「あとでやればいいや」という考えはいけません、忘れます、ここです、Elmのコードです

  • jssrc/category/src/Category.elm抜粋
...
swapCate : SwapSw -> Cate -> List Cate -> List Cate
swapCate sw c cs =
    case cs of
        c0::c1::xs ->
            if c.unCatePid /= c0.unCatePid then
                ({ c0 | unCateList = ctonc (swapCate sw c (nctoc c0.unCateList))}
                  :: { c1 | unCateList = ctonc (swapCate sw c (nctoc c1.unCateList))}
                  :: swapCate sw c xs)
            else
                case sw of
                    SwapUp ->
                        if c1.unCateId == c.unCateId then
                            c1::c0::xs
                        else
                            c0::(swapCate sw c (c1::xs))
                    SwapDown ->
                        if c0.unCateId == c.unCateId then
                            c1::c0::xs
                        else
                            c0::(swapCate sw c (c1::xs))
        c0::[] ->
            if c.unCatePid /= c0.unCatePid then
                ({ c0 | unCateList = ctonc (swapCate sw c (nctoc c0.unCateList))}::[])
            else
                [c0]
        _ -> cs
...

入れ替えるために2つ要素が必要なので、「c0::c1::xs」 この書き方だと最低3つの要素が必要でした、なので、ちょうど2つの場合にパターンマッチせず、「_ -> cs」 へマッチするので、カテゴリの一覧はそのまま動かずと言うことでした、勢いで書いたので、汚さはお許しください。

一覧表示へカテゴリ表示

反省の意を込めて少し修正しました、その1

一覧でカテゴリを設定してある記事やフリーページが分かるようカテゴリを表示しました。

公開側へのカテゴリ出力

反省の意を込めて少し修正しました、その2

sitemap.xmlへカテゴリURL出力

反省の意を込めて少し修正しました、その3

https://blog.karky7.com/sitemap.xml で出力されるURLにカテゴリのURLも出力出きるようにしました、カテゴリに記事や フリーページが1つも登録されていない場合、出力されません(はずです、でなければまた反省です)。

BBQにいけなかった週末を利用して、3つの反省点を改善しました、今週末は、肉を浜で焼きたいと思っております。

Posted on 2021-08-18 18:30:58

はじめまして

静岡の極東の浜辺で何かをやっている人間です、基本的に季節を問わずBBQとオフロードをバイクで走るのがが大好きです、暇があれば何かを焼いているか走っています。どこかの浜で焼いている姿をみたら、gentooの話もで飲みながらしましょう...

Posted

Amazon

tags

日本酒池 広井酒店 やがら やっぱた 刺身 丸干し 東京マラソン fpm php82 servant thread spawn Rust Oracle Linux 8 microcode firmware linux openzfs zfs gitea 麒麟 真野鶴 金鶴 日本酒 docker oracle pod podman cli virtualbox VirtualBox epub mobi calibre mask lens ワンライナー php redmine Linux Oracle Map OMap omap map BBQ カテゴリ管理 カテゴリ timestamp date oracle database string 麦焼酎 ダービー process 磨き蒸留 広井酒店、日本酒 芋焼酎 焼酎 ゆるキャン 広井酒店、日本酒池 spring framework java persistent spring session session spring hdbc-odbc persistent-odbc odbc day utctime スィート レマンの森 elm初期化 elm バイク xlr80 esqueleto database xl2tpd strongswan vpn l2tp ipsec 正月 ゲーム grub nginx systemctl portage 豚骨 圧力鍋 yesod-auth-hashdb yesod-auth yesod