add all tags mode

purs/src/Component/TagCloud.purs

@@ -3,31 +3,25 @@ module Component.TagCloud where
 import Prelude hiding (div)
 
 import App (getTagCloud, updateTagCloudMode)
-import Data.Array (sortBy, drop, foldMap, fromFoldable)
+import Data.Array (sortBy)
-import Data.Foldable (for_, maximum, minimum)
+import Data.Foldable (maximum, minimum)
 import Data.Int (toNumber)
-import Data.Lens (Lens', lens, use, (%=), (.=))
+import Data.Lens (Lens', lens)
-import Data.Maybe (Maybe(..), fromMaybe, maybe)
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Monoid (guard)
-import Data.Ord (comparing)
+import Data.String (toLower) as S
-import Data.String (toLower, null, split) as S
+import Data.Tuple (fst, uncurry)
-import Data.String.Pattern (Pattern(..))
-import Data.Symbol (SProxy(..))
-import Data.Tuple (fst, snd, uncurry)
 import Effect.Aff (Aff)
-import Effect.Class (liftEffect)
+import Foreign.Object (toUnfoldable, empty, values) as F
-import Foreign.Object (toUnfoldable, toArrayWithKey, empty, values) as F
 import Globals (app')
 import Halogen (AttrName(..))
 import Halogen as H
-import Halogen.HTML (HTML, a, attr, br_, button, div, form, input, label, p, span, text, textarea)
+import Halogen.HTML (HTML, a, attr, button, div, text)
-import Halogen.HTML as HH
+import Halogen.HTML.Events (onClick)
-import Halogen.HTML.Events (onChecked, onClick, onSubmit, onValueChange)
+import Halogen.HTML.Properties (ButtonType(..), href, title, type_)
-import Halogen.HTML.Properties (ButtonType(..), InputType(..), checked, for, href, id_, name, rows, title, type_, value)
+import Math (log)
-import Math (log, pow, sqrt)
+import Model (TagCloud, TagCloudModeF(..), isExpanded, setExpanded, tagCloudModeFromF)
-import Model (TagCloud, TagCloudMode, TagCloudModeF(..), tagCloudModeFromF, isExpanded, setExpanded, isSameMode, showMode)
+import Util (class_, fromNullableStr, whenH)
-import Util (_loc, class_, fromNullableStr, ifElseH, whenH)
-import Web.Event.Event (Event, preventDefault)
 
 data TAction
   = TInitialize
@@ -68,7 +62,12 @@ tagcloudcomponent m' =
                , title "show a cloud of your most-used tags"
                , onClick \_ -> Just (TChangeMode modetop)
                ] [text "Top Tags"]
-      , button [ type_ ButtonButton, class_ ("pa1 f7 link hover-blue ml2 " <> guard (mode == modelb2) " b") 
+      , button [ type_ ButtonButton, class_ ("pa1 f7 link hover-blue ml2 " <> guard (mode == modelb1) " b") 
+               , title "show all tags"
+               , onClick \_ -> Just (TChangeMode modelb1)
+               ] [text "all"] 
+      , text "‧"
+      , button [ type_ ButtonButton, class_ ("pa1 f7 link hover-blue" <> guard (mode == modelb2) " b") 
                , title "show tags with at least 2 bookmarks"
                , onClick \_ -> Just (TChangeMode modelb2)
                ] [text "2"]
@@ -101,6 +100,7 @@ tagcloudcomponent m' =
     ]
     where
       modetop = TagCloudModeTop (isExpanded mode) 200
+      modelb1 = TagCloudModeLowerBound (isExpanded mode) 1
       modelb2 = TagCloudModeLowerBound (isExpanded mode) 2
       modelb5 = TagCloudModeLowerBound (isExpanded mode) 5
       modelb10 = TagCloudModeLowerBound (isExpanded mode) 10
@@ -126,7 +126,7 @@ tagcloudcomponent m' =
       opacity = rescale (log <<< (1.0 + _)) (toNumber v) (toNumber n) (toNumber m) 0.6 1.0
 
   rescale :: (Number -> Number) -> Number -> Number -> Number -> Number -> Number -> Number
-  rescale f v n m l h = (f (v - n) / f (m - n)) * (h - l) + l
+  rescale f v n m l h = (if m - n < 0.01 then 1.0 else (f (v - n) / f (m - n))) * (h - l) + l
 
   fetchTagCloud :: TagCloudModeF -> H.HalogenM TState TAction () o Aff Unit
   fetchTagCloud mode' = do

purs/src/Model.purs

@@ -1,15 +1,13 @@
 module Model where
 
-import Control.Monad
-import Foreign
-import Prelude
-
 import Control.Monad.Except (runExcept)
 import Data.Array (intercalate, singleton)
-import Data.Either (Either, hush)
+import Data.Either (hush)
-import Data.Maybe (Maybe, fromMaybe)
+import Data.Maybe (fromMaybe)
 import Data.Nullable (Nullable)
+import Foreign (Foreign, readInt, readString, unsafeToForeign)
 import Foreign.Object (Object)
+import Prelude (class Eq, pure, ($), (<$>))
 import Simple.JSON as J
 
 type BookmarkId = Int
@@ -112,15 +110,15 @@ setExpanded (TagCloudModeLowerBound e i) e' = TagCloudModeLowerBound e' i
 setExpanded (TagCloudModeRelated e i) e' = TagCloudModeRelated e' i
 setExpanded TagCloudModeNone _ = TagCloudModeNone
 
-isSameMode :: TagCloudModeF -> TagCloudModeF -> Boolean
-isSameMode (TagCloudModeTop _ _) (TagCloudModeTop _ _) = true
-isSameMode (TagCloudModeLowerBound _ _) (TagCloudModeLowerBound _ _) = true
-isSameMode (TagCloudModeRelated _ _) (TagCloudModeRelated _ _) = true
-isSameMode TagCloudModeNone TagCloudModeNone = true
-isSameMode _ _ = false
-
 showMode :: TagCloudModeF -> String
 showMode (TagCloudModeTop _ _)  = "top"
 showMode (TagCloudModeLowerBound _ _)  = "lowerBound"
 showMode (TagCloudModeRelated _ _)  = "related"
 showMode TagCloudModeNone = ""
+
+-- isSameMode :: TagCloudModeF -> TagCloudModeF -> Boolean
+-- isSameMode (TagCloudModeTop _ _) (TagCloudModeTop _ _) = true
+-- isSameMode (TagCloudModeLowerBound _ _) (TagCloudModeLowerBound _ _) = true
+-- isSameMode (TagCloudModeRelated _ _) (TagCloudModeRelated _ _) = true
+-- isSameMode TagCloudModeNone TagCloudModeNone = true
+-- isSameMode _ _ = false