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

カテゴリ機能が一部腐っていました、 「▲」 と 「▼」 の位置入れ替えボタンです。 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」へマッチするので、カテゴリの一覧はそのまま動かずと言うことでした、勢いで書いたので、汚さはお許しください。

一覧表示へカテゴリ表示

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

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

公開側へのカテゴリ出力

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

sitemap.xmlへカテゴリURL出力

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

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

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

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

魴鮄のブログ