Tabview fixed

src/Authorview.purs

@@ -3,31 +3,23 @@ module Authorview where
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
+import Data.Array (fold)
+import DocView as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
-import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
+import React.DOM (h3, text)
+import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
 
 
 
 
-type State = String
+type State = D.State
 
 
 initialState :: State
-initialState = ""
-
-data Action = NoOp
-
-
-performAction :: forall eff props. PerformAction ( console :: CONSOLE
-                                                 , ajax    :: AJAX
-                                                 , dom     :: DOM
-                                                 | eff
-                                                 ) State props Action
-performAction NoOp _ _ = void do
-  modifyState id
-
+initialState = D.tdata
 
+type Action = D.Action
 
 
 authorSpec :: forall props eff . Spec ( console :: CONSOLE
@@ -35,8 +27,11 @@ authorSpec :: forall props eff . Spec ( console :: CONSOLE
                                         , dom     :: DOM
                                         | eff
                                         ) State props Action
-authorSpec = simpleSpec performAction render
+authorSpec = simpleSpec defaultPerformAction render
   where
     render :: Render State props Action
     render dispatch _ state _ =
-      []
+       [ h3 [] [text "AuthorView"]]
+
+authorspec' :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
+authorspec' = fold [authorSpec, D.layoutDocview]

src/DocView.purs

@@ -106,26 +106,7 @@ layoutDocview = simpleSpec performAction render
         [ div [className "row"]
           [
            div [className "col-md-12"]
-            [ -- nav []
-              -- [ div [className "nav nav-tabs", _id "nav-tab",role "tablist"]
-              --   [
-              --     a [ className "nav-item nav-link active"
-              --       , _id "nav-home-tab"
-              --       , _data {toggle : "tab"}
-              --       , href "#nav-home"
-              --       , role "tab"
-              --       , aria {controls : "nav-home"}
-              --       , aria {selected:true}] [ text "Documents"]
-
-              --   , a [className "nav-item nav-link",_id "nav-profile-tab",  _data {toggle : "tab"},href "#nav-profile",role "tab",aria {controls : "nav-profile"},aria {selected:true}] [ text "Sources"]
-
-              --   ,a [className "nav-item nav-link",_id "nav-contact-tab",  _data {toggle : "tab"},href "#nav-contact",role "tab",aria {controls : "nav-contact"},aria {selected:true}] [ text "Authors"]
-              --   ,a [className "nav-item nav-link",_id "nav-contact-tab",  _data {toggle : "tab"},href "#nav-contact",role "tab",aria {controls : "nav-contact"},aria {selected:true}] [ text "Terms"]
-              --   ,a [className "nav-item nav-link",_id "nav-contact-tab",  _data {toggle : "tab"},href "#nav-contact",role "tab",aria {controls : "nav-contact"},aria {selected:true}] [ text "(+)"]
-
-              --   ]
-              -- ]
-             p''
+            [ p''
             , h3 [] [text "Chart Title"]
             , histogram
             , p''
@@ -175,9 +156,6 @@ performAction LoadData _ _ = void do
          }
 
 
--- performAction (ToggleFolder i) _ _ = void (cotransform (\(TableData td) -> TableData $ td {tree = toggleNode i td.tree}))
-
-
 changePageSize :: PageSizes -> CorpusTableData -> CorpusTableData
 changePageSize ps (TableData td) =
   TableData $ td { pageSize      = ps

src/Sourceview.purs

@@ -3,30 +3,20 @@ module Sourceview where
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
+import Data.Array (fold)
+import DocView as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
-import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
+import React.DOM (h3, text)
+import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
 
-
-type State = String
-
-
-initialState :: State
-initialState = ""
-
-data Action = NoOp
-
-
-performAction :: forall eff props. PerformAction ( console :: CONSOLE
-                                                 , ajax    :: AJAX
-                                                 , dom     :: DOM
-                                                 | eff
-                                                 ) State props Action
-performAction NoOp _ _ = void do
-  modifyState id
+type State = D.State
 
 
+initialState :: D.State
+initialState = D.tdata
 
+type Action = D.Action
 
 
 sourceSpec :: forall props eff . Spec ( console :: CONSOLE
@@ -34,8 +24,11 @@ sourceSpec :: forall props eff . Spec ( console :: CONSOLE
                                         , dom     :: DOM
                                         | eff
                                         ) State props Action
-sourceSpec = simpleSpec performAction render
+sourceSpec = simpleSpec defaultPerformAction render
   where
     render :: Render State props Action
     render dispatch _ state _ =
-      []
+      [ h3 [] [text "Source view"]]
+
+sourcespec' :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
+sourcespec' = fold [sourceSpec, D.layoutDocview]

src/Tabview.purs

@@ -70,7 +70,7 @@ _authorAction = prism AuthorviewA \ action ->
     _-> Left action
 
 authorPageSpec :: forall eff props. Spec (dom :: DOM, console::CONSOLE, ajax :: AJAX | eff) State  props Action
-authorPageSpec = focus _authorlens _authorAction AV.authorSpec
+authorPageSpec = focus _authorlens _authorAction AV.authorspec'
 
 
 _sourcelens :: Lens' State SV.State
@@ -85,7 +85,7 @@ _sourceAction = prism SourceviewA \ action ->
 
 
 sourcePageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
-sourcePageSpec = focus _sourcelens _sourceAction SV.sourceSpec
+sourcePageSpec = focus _sourcelens _sourceAction SV.sourcespec'
 
 
 _termslens :: Lens' State TV.State
@@ -100,7 +100,7 @@ _termsAction = prism TermsviewA \ action ->
 
 
 termsPageSpec :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
-termsPageSpec = focus _termslens _termsAction TV.termsSpec
+termsPageSpec = focus _termslens _termsAction TV.termSpec'
 
 
 _tablens :: Lens' State Tab.State

src/Termsview.purs

@@ -4,31 +4,22 @@ module Termsview where
 
 import Control.Monad.Eff.Console (CONSOLE)
 import DOM (DOM)
+import Data.Array (fold)
+import DocView as D
 import Network.HTTP.Affjax (AJAX)
 import Prelude hiding (div)
-import Thermite (PerformAction, Render, Spec, modifyState, simpleSpec)
+import React.DOM (h3, text)
+import Thermite (PerformAction, Render, Spec, defaultPerformAction, modifyState, simpleSpec)
 
 
 
+type State = D.State
 
-type State = String
-
-
-initialState :: State
-initialState = ""
-
-data Action = NoOp
-
-
-performAction :: forall eff props. PerformAction ( console :: CONSOLE
-                                                 , ajax    :: AJAX
-                                                 , dom     :: DOM
-                                                 | eff
-                                                 ) State props Action
-performAction NoOp _ _ = void do
-  modifyState id
 
+initialState :: D.State
+initialState = D.tdata
 
+type Action = D.Action
 
 
 termsSpec :: forall props eff . Spec ( console :: CONSOLE
@@ -36,8 +27,11 @@ termsSpec :: forall props eff . Spec ( console :: CONSOLE
                                         , dom     :: DOM
                                         | eff
                                         ) State props Action
-termsSpec = simpleSpec performAction render
+termsSpec = simpleSpec defaultPerformAction render
   where
     render :: Render State props Action
     render dispatch _ state _ =
-      []
+      [ h3 [] [text "Terms view"]]
+
+termSpec' :: forall eff props. Spec (dom :: DOM, console :: CONSOLE, ajax :: AJAX | eff) State props Action
+termSpec' = fold [termsSpec, D.layoutDocview]