termField stub created, needs to be moved to common utils
This commit is contained in:
SJost
parent
1d8e10566e
commit
fcec208936
3
models
3
models
@ -1,6 +1,7 @@
|
|||||||
User
|
User
|
||||||
plugin Text
|
plugin Text
|
||||||
ident Text
|
ident Text
|
||||||
|
matrikelnummer Text
|
||||||
UniqueAuthentication plugin ident
|
UniqueAuthentication plugin ident
|
||||||
Term json
|
Term json
|
||||||
name TermIdentifier
|
name TermIdentifier
|
||||||
@ -27,6 +28,8 @@ DegreeCourse json
|
|||||||
Course json
|
Course json
|
||||||
name Text
|
name Text
|
||||||
shorthand Text
|
shorthand Text
|
||||||
|
description Textarea
|
||||||
|
linkexternal Text
|
||||||
owner UserId
|
owner UserId
|
||||||
schoolId SchoolId
|
schoolId SchoolId
|
||||||
termId TermId -- TermId ist jetzt Text als Typ
|
termId TermId -- TermId ist jetzt Text als Typ
|
||||||
|
|||||||
@ -245,6 +245,7 @@ instance YesodAuth UniWorX where
|
|||||||
Nothing -> Authenticated <$> insert User
|
Nothing -> Authenticated <$> insert User
|
||||||
{ userPlugin = credsPlugin
|
{ userPlugin = credsPlugin
|
||||||
, userIdent = credsIdent
|
, userIdent = credsIdent
|
||||||
|
, userMatrikelnummer = "DummyMatrikel"
|
||||||
}
|
}
|
||||||
|
|
||||||
-- You can add other plugins like Google Email, email or OAuth here
|
-- You can add other plugins like Google Email, email or OAuth here
|
||||||
|
|||||||
@ -1,36 +1,64 @@
|
|||||||
{-# LANGUAGE NoImplicitPrelude #-}
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||||||
{-# LANGUAGE OverloadedStrings #-}
|
{-# LANGUAGE OverloadedStrings #-}
|
||||||
{-# LANGUAGE TemplateHaskell #-}
|
{-# LANGUAGE TemplateHaskell #-}
|
||||||
|
{-# LANGUAGE QuasiQuotes #-}
|
||||||
{-# LANGUAGE MultiParamTypeClasses #-}
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
||||||
{-# LANGUAGE TypeFamilies #-}
|
{-# LANGUAGE TypeFamilies #-}
|
||||||
module Handler.Assist where
|
module Handler.Assist where
|
||||||
|
|
||||||
import Import
|
import Import
|
||||||
|
import qualified Data.Text as T
|
||||||
import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3)
|
import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3)
|
||||||
-- import Text.Julius (RawJS (..))
|
-- import Text.Julius (RawJS (..))
|
||||||
|
|
||||||
data NewCourseForm = NewCourseForm
|
data NewCourseForm = NewCourseForm
|
||||||
{ ncf_name :: Text
|
{ ncf_user :: UserId
|
||||||
, ncf_short :: Text
|
, ncf_term :: TermIdentifier
|
||||||
, ncf_capacity :: Maybe Int
|
, ncf_name :: Text
|
||||||
}
|
, ncf_short :: Text
|
||||||
|
, ncf_description :: Textarea
|
||||||
|
, ncf_homepage :: Maybe Text
|
||||||
|
, ncf_html :: Html
|
||||||
|
, ncf_capacity :: Maybe Int
|
||||||
|
}
|
||||||
-- Handler for Assistants
|
-- Handler for Assistants
|
||||||
|
|
||||||
|
getShowCourseR :: CourseId -> Handler Html
|
||||||
|
getShowCourseR courseId = do
|
||||||
|
defaultLayout $ do
|
||||||
|
[whamlet|
|
||||||
|
TODO unfinished
|
||||||
|
|]
|
||||||
|
|
||||||
getNewCourseR :: Handler Html
|
getNewCourseR :: Handler Html
|
||||||
getNewCourseR = do
|
getNewCourseR = do
|
||||||
(formWidget, formEnctype) <- generateFormPost newCourseForm
|
aid <- requireAuthId
|
||||||
|
(formWidget, formEnctype) <- generateFormPost $ newCourseForm aid
|
||||||
defaultLayout $ do
|
defaultLayout $ do
|
||||||
setTitle "Neuen Kurs anlegen"
|
setTitle "Neuen Kurs anlegen"
|
||||||
|
[whamlet|
|
||||||
|
User: #{show aid}
|
||||||
|
|]
|
||||||
$(widgetFile "newcourse")
|
$(widgetFile "newcourse")
|
||||||
|
|
||||||
postNewCourseR :: Handler Html
|
postNewCourseR :: Handler Html
|
||||||
postNewCourseR = do
|
postNewCourseR = do
|
||||||
((result, formWidget), formEnctype) <- runFormPost newCourseForm
|
aid <- requireAuthId
|
||||||
|
((result, formWidget), formEnctype) <- runFormPost $ newCourseForm aid
|
||||||
case result of
|
case result of
|
||||||
FormSuccess res -> do
|
FormSuccess res -> defaultLayout $ do
|
||||||
setMessage "Got something!"
|
setMessage "Got something!"
|
||||||
redirect NewCourseR
|
$(widgetFile "newcourse")
|
||||||
_ -> redirect NewCourseR
|
FormMissing -> defaultLayout $ do
|
||||||
|
setMessage "Keine Daten erhalten."
|
||||||
|
$(widgetFile "newcourse")
|
||||||
|
FormFailure errorMsgs -> defaultLayout $ do
|
||||||
|
setMessage [shamlet| <span .error>Fehler:
|
||||||
|
<ul>
|
||||||
|
$forall errmsg <- errorMsgs
|
||||||
|
<li> #{errmsg}
|
||||||
|
|]
|
||||||
|
$(widgetFile "newcourse")
|
||||||
|
|
||||||
{-
|
{-
|
||||||
defaultLayout $ do
|
defaultLayout $ do
|
||||||
@ -41,11 +69,20 @@ postNewCourseR = do
|
|||||||
-}
|
-}
|
||||||
|
|
||||||
|
|
||||||
|
-- TODO: Move elsewhere
|
||||||
|
termField :: Field (HandlerT UniWorX IO) TermIdentifier
|
||||||
|
termField = checkMMap (return . termFromText) termToText textField
|
||||||
|
|
||||||
newCourseForm :: Form NewCourseForm
|
newCourseForm :: UserId -> Form NewCourseForm
|
||||||
newCourseForm = renderBootstrap3 BootstrapBasicForm $ NewCourseForm
|
newCourseForm uid = renderBootstrap3 BootstrapBasicForm $ NewCourseForm
|
||||||
<$> areq textField (set "Name des Kurses") Nothing
|
<$> pure uid
|
||||||
|
<*> areq termField (set "Semester") Nothing
|
||||||
|
-- <*> areq textField (set "Semester") Nothing
|
||||||
|
<*> areq textField (set "Name des Kurses") Nothing
|
||||||
<*> areq textField (set "Kurs Kürzel (3-4 Zeichen)") Nothing
|
<*> areq textField (set "Kurs Kürzel (3-4 Zeichen)") Nothing
|
||||||
|
<*> areq textareaField (set "Beschreibung des Kurses") Nothing
|
||||||
|
<*> aopt urlField (set "Externe Kurshomepage") Nothing
|
||||||
|
<*> areq htmlField (set "Beschreibung in HTML") Nothing
|
||||||
<*> aopt intField (set "Maximale Teilnehmer") Nothing
|
<*> aopt intField (set "Maximale Teilnehmer") Nothing
|
||||||
-- Add attributes like the placeholder and CSS classes.
|
-- Add attributes like the placeholder and CSS classes.
|
||||||
where set txt = FieldSettings
|
where set txt = FieldSettings
|
||||||
|
|||||||
@ -92,3 +92,9 @@ instance ToJSON TermIdentifier where
|
|||||||
|
|
||||||
instance FromJSON TermIdentifier where
|
instance FromJSON TermIdentifier where
|
||||||
parseJSON = withText "Term" $ either (fail . Text.unpack) return . termFromText
|
parseJSON = withText "Term" $ either (fail . Text.unpack) return . termFromText
|
||||||
|
|
||||||
|
{- Must be defined in a later module:
|
||||||
|
termField :: Field (HandlerT UniWorX IO) TermIdentifier
|
||||||
|
termField = checkMMap (return . termFromText) termToText textField
|
||||||
|
-- TODO: this is too simple and inconvenient, use selector and year picker
|
||||||
|
-}
|
||||||
|
|||||||
@ -3,6 +3,18 @@
|
|||||||
{
|
{
|
||||||
"selected_items":
|
"selected_items":
|
||||||
[
|
[
|
||||||
|
[
|
||||||
|
"get",
|
||||||
|
"getShowCourseR"
|
||||||
|
],
|
||||||
|
[
|
||||||
|
"err",
|
||||||
|
"errorMsgs"
|
||||||
|
],
|
||||||
|
[
|
||||||
|
"set",
|
||||||
|
"setMessage"
|
||||||
|
]
|
||||||
]
|
]
|
||||||
},
|
},
|
||||||
"buffers":
|
"buffers":
|
||||||
@ -11,7 +23,7 @@
|
|||||||
"file": "src/Application.hs",
|
"file": "src/Application.hs",
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 7191,
|
"buffer_size": 7271,
|
||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
@ -19,7 +31,8 @@
|
|||||||
"file": "src/Foundation.hs",
|
"file": "src/Foundation.hs",
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 10198,
|
"buffer_size": 11626,
|
||||||
|
"encoding": "UTF-8",
|
||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
@ -35,7 +48,19 @@
|
|||||||
"file": "src/Model.hs",
|
"file": "src/Model.hs",
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 781,
|
"buffer_size": 886,
|
||||||
|
"line_ending": "Unix"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"contents": "{-# LANGUAGE RecordWildCards #-}\n{-# LANGUAGE PatternGuards #-}\n{-# LANGUAGE TemplateHaskell #-}\n{-# LANGUAGE NoImplicitPrelude #-}\n{-# LANGUAGE OverloadedStrings #-}\n{-# LANGUAGE DeriveGeneric, DeriveDataTypeable #-}\nmodule Model.Types where\n\nimport ClassyPrelude\n\nimport Database.Persist.TH\nimport Database.Persist.Class\nimport Database.Persist.Sql\n\nimport Web.HttpApiData\n\nimport Data.Text (Text)\nimport qualified Data.Text as Text\n\nimport Text.Read (readMaybe)\n\n-- import Data.CaseInsensitive (CI)\nimport qualified Data.CaseInsensitive as CI\n\nimport Yesod.Core.Dispatch (PathPiece(..))\nimport Data.Aeson (FromJSON(..), ToJSON(..), withText, Value(..))\n\nimport GHC.Generics (Generic)\nimport Data.Typeable (Typeable)\n\n\ndata SheetType = Regular | Bonus | Extra \n deriving (Show, Read, Eq, Ord, Enum, Bounded) \nderivePersistField \"SheetType\"\n\ndata ExamStatus = Attended | NoShow | Voided\n deriving (Show, Read, Eq, Ord, Enum, Bounded) \nderivePersistField \"ExamStatus\"\n\n\ndata Season = Summer | Winter\n deriving (Show, Read, Eq, Ord, Enum, Bounded, Generic, Typeable)\n\nseasonToChar :: Season -> Char\nseasonToChar Summer = 'S'\nseasonToChar Winter = 'W'\n\nseasonFromChar :: Char -> Either Text Season\nseasonFromChar c\n | c ~= 'S' = Right Summer\n | c ~= 'W' = Right Winter\n | otherwise = Left $ \"Invalid season character: ‘\" <> tshow c <> \"’\"\n where\n (~=) = (==) `on` CI.mk\n\ndata TermIdentifier = TermIdentifier\n { year :: Integer -- ^ Using 'Integer' to model years is consistent with 'Data.Time.Calendar'\n , season :: Season\n } deriving (Show, Read, Eq, Ord, Generic, Typeable)\n\ntermToText :: TermIdentifier -> Text\ntermToText TermIdentifier{..} = Text.pack $ seasonToChar season : show year\n\ntermFromText :: Text -> Either Text TermIdentifier\ntermFromText t\n | (s:ys) <- Text.unpack t\n , Just year <- readMaybe ys\n , Right season <- seasonFromChar s\n = Right TermIdentifier{..}\n | otherwise = Left $ \"Invalid TermIdentifier: “\" <> t <> \"”\"\n\ninstance PersistField TermIdentifier where\n toPersistValue = PersistText . termToText\n fromPersistValue (PersistText t) = termFromText t\n fromPersistValue x = Left $ \"Expected TermIdentifier, received: \" <> tshow x\n\ninstance PersistFieldSql TermIdentifier where\n sqlType _ = SqlString\n\ninstance ToHttpApiData TermIdentifier where\n toUrlPiece = termToText\n\ninstance FromHttpApiData TermIdentifier where\n parseUrlPiece = termFromText\n\ninstance PathPiece TermIdentifier where\n fromPathPiece = either (const Nothing) Just . termFromText\n toPathPiece = termToText\n\ninstance ToJSON TermIdentifier where\n toJSON = String . termToText\n\ninstance FromJSON TermIdentifier where\n parseJSON = withText \"Term\" $ either (fail . Text.unpack) return . termFromText\n\ninstance Class Data where\n func = \n",
|
||||||
|
"file": "src/Model/Types.hs",
|
||||||
|
"file_size": 2724,
|
||||||
|
"file_write_time": 131516115030281923,
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 2753,
|
||||||
|
"encoding": "UTF-8",
|
||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
@ -47,19 +72,11 @@
|
|||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
{
|
|
||||||
"file": "src/Handler/Comment.hs",
|
|
||||||
"settings":
|
|
||||||
{
|
|
||||||
"buffer_size": 661,
|
|
||||||
"line_ending": "Unix"
|
|
||||||
}
|
|
||||||
},
|
|
||||||
{
|
{
|
||||||
"file": "src/Handler/Common.hs",
|
"file": "src/Handler/Common.hs",
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 777,
|
"buffer_size": 781,
|
||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
@ -71,6 +88,24 @@
|
|||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
},
|
},
|
||||||
|
{
|
||||||
|
"file": "src/Handler/Assist.hs",
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 2858,
|
||||||
|
"encoding": "UTF-8",
|
||||||
|
"line_ending": "Unix"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"file": "templates/newcourse.hamlet",
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 606,
|
||||||
|
"encoding": "UTF-8",
|
||||||
|
"line_ending": "Unix"
|
||||||
|
}
|
||||||
|
},
|
||||||
{
|
{
|
||||||
"file": "src/Handler/Profile.hs",
|
"file": "src/Handler/Profile.hs",
|
||||||
"settings":
|
"settings":
|
||||||
@ -78,6 +113,23 @@
|
|||||||
"buffer_size": 411,
|
"buffer_size": 411,
|
||||||
"line_ending": "Unix"
|
"line_ending": "Unix"
|
||||||
}
|
}
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"file": "models",
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 4388,
|
||||||
|
"encoding": "UTF-8",
|
||||||
|
"line_ending": "Unix"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"file": "stack.yaml",
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 2233,
|
||||||
|
"line_ending": "Unix"
|
||||||
|
}
|
||||||
}
|
}
|
||||||
],
|
],
|
||||||
"build_system": "",
|
"build_system": "",
|
||||||
@ -87,7 +139,7 @@
|
|||||||
"build_varint": "",
|
"build_varint": "",
|
||||||
"command_palette":
|
"command_palette":
|
||||||
{
|
{
|
||||||
"height": 523.0,
|
"height": 121.0,
|
||||||
"last_filter": "",
|
"last_filter": "",
|
||||||
"selected_items":
|
"selected_items":
|
||||||
[
|
[
|
||||||
@ -96,9 +148,11 @@
|
|||||||
},
|
},
|
||||||
"console":
|
"console":
|
||||||
{
|
{
|
||||||
"height": 0.0,
|
"height": 192.0,
|
||||||
"history":
|
"history":
|
||||||
[
|
[
|
||||||
|
"help",
|
||||||
|
"ll"
|
||||||
]
|
]
|
||||||
},
|
},
|
||||||
"distraction_free":
|
"distraction_free":
|
||||||
@ -112,16 +166,18 @@
|
|||||||
},
|
},
|
||||||
"file_history":
|
"file_history":
|
||||||
[
|
[
|
||||||
|
"/home/jost/programming/Haskell/Yesod/uniworx/src/Handler/Comment.hs"
|
||||||
],
|
],
|
||||||
"find":
|
"find":
|
||||||
{
|
{
|
||||||
"height": 31.0
|
"height": 52.0
|
||||||
},
|
},
|
||||||
"find_in_files":
|
"find_in_files":
|
||||||
{
|
{
|
||||||
"height": 0.0,
|
"height": 128.0,
|
||||||
"where_history":
|
"where_history":
|
||||||
[
|
[
|
||||||
|
""
|
||||||
]
|
]
|
||||||
},
|
},
|
||||||
"find_state":
|
"find_state":
|
||||||
@ -129,6 +185,12 @@
|
|||||||
"case_sensitive": false,
|
"case_sensitive": false,
|
||||||
"find_history":
|
"find_history":
|
||||||
[
|
[
|
||||||
|
"Html",
|
||||||
|
"setMessage",
|
||||||
|
"Text",
|
||||||
|
"Integer",
|
||||||
|
"matrikel",
|
||||||
|
"AuthId",
|
||||||
"FileInfo",
|
"FileInfo",
|
||||||
"fileInfo"
|
"fileInfo"
|
||||||
],
|
],
|
||||||
@ -148,7 +210,7 @@
|
|||||||
"groups":
|
"groups":
|
||||||
[
|
[
|
||||||
{
|
{
|
||||||
"selected": 7,
|
"selected": 8,
|
||||||
"sheets":
|
"sheets":
|
||||||
[
|
[
|
||||||
{
|
{
|
||||||
@ -157,7 +219,7 @@
|
|||||||
"semi_transient": false,
|
"semi_transient": false,
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 7191,
|
"buffer_size": 7271,
|
||||||
"regions":
|
"regions":
|
||||||
{
|
{
|
||||||
},
|
},
|
||||||
@ -178,7 +240,7 @@
|
|||||||
"translation.y": 0.0,
|
"translation.y": 0.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 8,
|
"stack_index": 12,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
@ -187,15 +249,15 @@
|
|||||||
"semi_transient": false,
|
"semi_transient": false,
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 10198,
|
"buffer_size": 11626,
|
||||||
"regions":
|
"regions":
|
||||||
{
|
{
|
||||||
},
|
},
|
||||||
"selection":
|
"selection":
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
0,
|
9330,
|
||||||
0
|
9330
|
||||||
]
|
]
|
||||||
],
|
],
|
||||||
"settings":
|
"settings":
|
||||||
@ -205,10 +267,10 @@
|
|||||||
"translate_tabs_to_spaces": true
|
"translate_tabs_to_spaces": true
|
||||||
},
|
},
|
||||||
"translation.x": 0.0,
|
"translation.x": 0.0,
|
||||||
"translation.y": 0.0,
|
"translation.y": 5125.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 7,
|
"stack_index": 6,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
@ -236,7 +298,7 @@
|
|||||||
"translation.y": 0.0,
|
"translation.y": 0.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 6,
|
"stack_index": 5,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
@ -245,7 +307,7 @@
|
|||||||
"semi_transient": false,
|
"semi_transient": false,
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 781,
|
"buffer_size": 886,
|
||||||
"regions":
|
"regions":
|
||||||
{
|
{
|
||||||
},
|
},
|
||||||
@ -264,11 +326,41 @@
|
|||||||
"translation.y": 0.0,
|
"translation.y": 0.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 5,
|
"stack_index": 2,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"buffer": 4,
|
"buffer": 4,
|
||||||
|
"file": "src/Model/Types.hs",
|
||||||
|
"semi_transient": false,
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 2753,
|
||||||
|
"regions":
|
||||||
|
{
|
||||||
|
},
|
||||||
|
"selection":
|
||||||
|
[
|
||||||
|
[
|
||||||
|
2726,
|
||||||
|
2731
|
||||||
|
]
|
||||||
|
],
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"syntax": "Packages/Haskell/Haskell.sublime-syntax",
|
||||||
|
"tab_size": 2,
|
||||||
|
"translate_tabs_to_spaces": true
|
||||||
|
},
|
||||||
|
"translation.x": 0.0,
|
||||||
|
"translation.y": 1380.0,
|
||||||
|
"zoom_level": 1.0
|
||||||
|
},
|
||||||
|
"stack_index": 1,
|
||||||
|
"type": "text"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"buffer": 5,
|
||||||
"file": "src/Settings.hs",
|
"file": "src/Settings.hs",
|
||||||
"semi_transient": false,
|
"semi_transient": false,
|
||||||
"settings":
|
"settings":
|
||||||
@ -294,35 +386,7 @@
|
|||||||
"translation.y": 0.0,
|
"translation.y": 0.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 4,
|
"stack_index": 11,
|
||||||
"type": "text"
|
|
||||||
},
|
|
||||||
{
|
|
||||||
"buffer": 5,
|
|
||||||
"file": "src/Handler/Comment.hs",
|
|
||||||
"semi_transient": false,
|
|
||||||
"settings":
|
|
||||||
{
|
|
||||||
"buffer_size": 661,
|
|
||||||
"regions":
|
|
||||||
{
|
|
||||||
},
|
|
||||||
"selection":
|
|
||||||
[
|
|
||||||
[
|
|
||||||
0,
|
|
||||||
0
|
|
||||||
]
|
|
||||||
],
|
|
||||||
"settings":
|
|
||||||
{
|
|
||||||
"syntax": "Packages/Haskell/Haskell.sublime-syntax"
|
|
||||||
},
|
|
||||||
"translation.x": 0.0,
|
|
||||||
"translation.y": 0.0,
|
|
||||||
"zoom_level": 1.0
|
|
||||||
},
|
|
||||||
"stack_index": 3,
|
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
@ -331,7 +395,7 @@
|
|||||||
"semi_transient": false,
|
"semi_transient": false,
|
||||||
"settings":
|
"settings":
|
||||||
{
|
{
|
||||||
"buffer_size": 777,
|
"buffer_size": 781,
|
||||||
"regions":
|
"regions":
|
||||||
{
|
{
|
||||||
},
|
},
|
||||||
@ -350,7 +414,7 @@
|
|||||||
"translation.y": 0.0,
|
"translation.y": 0.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 2,
|
"stack_index": 10,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
@ -366,8 +430,8 @@
|
|||||||
"selection":
|
"selection":
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
818,
|
404,
|
||||||
818
|
404
|
||||||
]
|
]
|
||||||
],
|
],
|
||||||
"settings":
|
"settings":
|
||||||
@ -380,11 +444,71 @@
|
|||||||
"translation.y": 138.0,
|
"translation.y": 138.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 0,
|
"stack_index": 7,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"buffer": 8,
|
"buffer": 8,
|
||||||
|
"file": "src/Handler/Assist.hs",
|
||||||
|
"semi_transient": false,
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 2858,
|
||||||
|
"regions":
|
||||||
|
{
|
||||||
|
},
|
||||||
|
"selection":
|
||||||
|
[
|
||||||
|
[
|
||||||
|
454,
|
||||||
|
454
|
||||||
|
]
|
||||||
|
],
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"syntax": "Packages/Haskell/Haskell.sublime-syntax",
|
||||||
|
"tab_size": 4,
|
||||||
|
"translate_tabs_to_spaces": true
|
||||||
|
},
|
||||||
|
"translation.x": 0.0,
|
||||||
|
"translation.y": 0.0,
|
||||||
|
"zoom_level": 1.0
|
||||||
|
},
|
||||||
|
"stack_index": 0,
|
||||||
|
"type": "text"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"buffer": 9,
|
||||||
|
"file": "templates/newcourse.hamlet",
|
||||||
|
"semi_transient": false,
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 606,
|
||||||
|
"regions":
|
||||||
|
{
|
||||||
|
},
|
||||||
|
"selection":
|
||||||
|
[
|
||||||
|
[
|
||||||
|
0,
|
||||||
|
0
|
||||||
|
]
|
||||||
|
],
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"syntax": "Packages/Text/Plain text.tmLanguage",
|
||||||
|
"tab_size": 4,
|
||||||
|
"translate_tabs_to_spaces": true
|
||||||
|
},
|
||||||
|
"translation.x": 0.0,
|
||||||
|
"translation.y": 0.0,
|
||||||
|
"zoom_level": 1.0
|
||||||
|
},
|
||||||
|
"stack_index": 4,
|
||||||
|
"type": "text"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"buffer": 10,
|
||||||
"file": "src/Handler/Profile.hs",
|
"file": "src/Handler/Profile.hs",
|
||||||
"semi_transient": false,
|
"semi_transient": false,
|
||||||
"settings":
|
"settings":
|
||||||
@ -396,8 +520,8 @@
|
|||||||
"selection":
|
"selection":
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
411,
|
213,
|
||||||
411
|
213
|
||||||
]
|
]
|
||||||
],
|
],
|
||||||
"settings":
|
"settings":
|
||||||
@ -408,7 +532,65 @@
|
|||||||
"translation.y": 0.0,
|
"translation.y": 0.0,
|
||||||
"zoom_level": 1.0
|
"zoom_level": 1.0
|
||||||
},
|
},
|
||||||
"stack_index": 1,
|
"stack_index": 8,
|
||||||
|
"type": "text"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"buffer": 11,
|
||||||
|
"file": "models",
|
||||||
|
"semi_transient": false,
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 4388,
|
||||||
|
"regions":
|
||||||
|
{
|
||||||
|
},
|
||||||
|
"selection":
|
||||||
|
[
|
||||||
|
[
|
||||||
|
747,
|
||||||
|
747
|
||||||
|
]
|
||||||
|
],
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"syntax": "Packages/Text/Plain text.tmLanguage",
|
||||||
|
"tab_size": 2,
|
||||||
|
"translate_tabs_to_spaces": true
|
||||||
|
},
|
||||||
|
"translation.x": 0.0,
|
||||||
|
"translation.y": 138.0,
|
||||||
|
"zoom_level": 1.0
|
||||||
|
},
|
||||||
|
"stack_index": 3,
|
||||||
|
"type": "text"
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"buffer": 12,
|
||||||
|
"file": "stack.yaml",
|
||||||
|
"semi_transient": false,
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"buffer_size": 2233,
|
||||||
|
"regions":
|
||||||
|
{
|
||||||
|
},
|
||||||
|
"selection":
|
||||||
|
[
|
||||||
|
[
|
||||||
|
663,
|
||||||
|
663
|
||||||
|
]
|
||||||
|
],
|
||||||
|
"settings":
|
||||||
|
{
|
||||||
|
"syntax": "Packages/YAML/YAML.sublime-syntax"
|
||||||
|
},
|
||||||
|
"translation.x": 0.0,
|
||||||
|
"translation.y": 0.0,
|
||||||
|
"zoom_level": 1.0
|
||||||
|
},
|
||||||
|
"stack_index": 9,
|
||||||
"type": "text"
|
"type": "text"
|
||||||
}
|
}
|
||||||
]
|
]
|
||||||
@ -416,7 +598,7 @@
|
|||||||
],
|
],
|
||||||
"incremental_find":
|
"incremental_find":
|
||||||
{
|
{
|
||||||
"height": 31.0
|
"height": 33.0
|
||||||
},
|
},
|
||||||
"input":
|
"input":
|
||||||
{
|
{
|
||||||
@ -453,7 +635,7 @@
|
|||||||
"project": "uniworx.sublime-project",
|
"project": "uniworx.sublime-project",
|
||||||
"replace":
|
"replace":
|
||||||
{
|
{
|
||||||
"height": 58.0
|
"height": 61.0
|
||||||
},
|
},
|
||||||
"save_all_on_build": true,
|
"save_all_on_build": true,
|
||||||
"select_file":
|
"select_file":
|
||||||
@ -464,7 +646,23 @@
|
|||||||
[
|
[
|
||||||
[
|
[
|
||||||
"",
|
"",
|
||||||
"~/programming/Haskell/Yesod/uniworx/src/Handler/Home.hs"
|
"~/programming/Haskell/Yesod/uniworx/src/Handler/Assist.hs"
|
||||||
|
],
|
||||||
|
[
|
||||||
|
"mo",
|
||||||
|
"~/programming/Haskell/Yesod/uniworx/models"
|
||||||
|
],
|
||||||
|
[
|
||||||
|
"a",
|
||||||
|
"~/programming/Haskell/Yesod/uniworx/src/Handler/Assist.hs"
|
||||||
|
],
|
||||||
|
[
|
||||||
|
"f",
|
||||||
|
"~/programming/Haskell/Yesod/uniworx/src/Foundation.hs"
|
||||||
|
],
|
||||||
|
[
|
||||||
|
"m",
|
||||||
|
"~/programming/Haskell/Yesod/uniworx/models"
|
||||||
]
|
]
|
||||||
],
|
],
|
||||||
"width": 0.0
|
"width": 0.0
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user