From 816215cf7cf1b7042463db4770e0e5f3dc20ca91 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 18 Jul 2018 10:14:23 +0200
Subject: [PATCH] pageActions sorted and augmented

---
 src/Foundation.hs | 96 ++++++++++++++++++++++++++---------------------
 1 file changed, 53 insertions(+), 43 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index 90fb562c2..84d81dde7 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -718,12 +718,52 @@ pageActions :: Route UniWorX -> [MenuTypes]
 {-
   Icons: https://fontawesome.com/icons?d=gallery
   Guideline: use icons without boxes/frames, only non-pro
+
+  Please keep sorted according to routes
 -}
-pageActions (CorrectionsR) =
+pageActions (HomeR) =
+  [
+--     NavbarAside $ MenuItem
+--       { menuItemLabel = "Benutzer"
+--       , menuItemIcon = Just "users"
+--       , menuItemRoute = UsersR
+--       , menuItemAccessCallback' = return True
+--       }
+--   ,
+    NavbarAside $ MenuItem
+      { menuItemLabel = "AdminDemo"
+      , menuItemIcon  = Just "screwdriver"
+      , menuItemRoute = AdminTestR
+      , menuItemAccessCallback' = return True
+      }
+  ]
+pageActions (ProfileR) =
   [ PageActionPrime $ MenuItem
-      { menuItemLabel = "Korrekturen hochladen"
-      , menuItemIcon = Nothing
-      , menuItemRoute = CorrectionsUploadR
+      { menuItemLabel = "Gespeicherte Daten anzeigen"
+      , menuItemIcon  = Just "book"
+      , menuItemRoute = ProfileDataR
+      , menuItemAccessCallback' = return True
+      }
+  ]
+pageActions TermShowR =
+  [ PageActionPrime $ MenuItem
+      { menuItemLabel = "Neues Semester anlegen"
+      , menuItemIcon  = Nothing
+      , menuItemRoute = TermEditR
+      , menuItemAccessCallback' = return True
+      }
+  ]
+pageActions (TermCourseListR tid) =
+  [ PageActionPrime $ MenuItem
+      { menuItemLabel = "Neuen Kurs anlegen"
+      , menuItemIcon  = Just "book"
+      , menuItemRoute = CourseNewR
+      , menuItemAccessCallback' = return True
+      }
+  , PageActionPrime $ MenuItem
+      { menuItemLabel = "Semster editieren"
+      , menuItemIcon  = Nothing
+      , menuItemRoute = TermEditExistR tid
       , menuItemAccessCallback' = return True
       }
   ]
@@ -824,55 +864,25 @@ pageActions (CSubmissionR tid csh shn cid SubShowR) =
             _ -> return False
       }
   ]
-pageActions TermShowR =
+pageActions (CSheetR tid csh shn SCorrR) =
   [ PageActionPrime $ MenuItem
-      { menuItemLabel = "Neues Semester anlegen"
-      , menuItemIcon  = Nothing
-      , menuItemRoute = TermEditR
+      { menuItemLabel = "Abgaben"
+      , menuItemIcon = Nothing
+      , menuItemRoute = CSheetR tid csh shn SSubsR
       , menuItemAccessCallback' = return True
       }
   ]
-pageActions (TermCourseListR tid) =
+pageActions (CorrectionsR) =
   [ PageActionPrime $ MenuItem
-      { menuItemLabel = "Neuen Kurs anlegen"
-      , menuItemIcon  = Just "book"
-      , menuItemRoute = CourseNewR
-      , menuItemAccessCallback' = return True
-      }
-  , PageActionPrime $ MenuItem
-      { menuItemLabel = "Semster editieren"
-      , menuItemIcon  = Nothing
-      , menuItemRoute = TermEditExistR tid
+      { menuItemLabel = "Korrekturen hochladen"
+      , menuItemIcon = Nothing
+      , menuItemRoute = CorrectionsUploadR
       , menuItemAccessCallback' = return True
       }
   ]
-pageActions (ProfileR) =
-  [ PageActionPrime $ MenuItem
-      { menuItemLabel = "Gespeicherte Daten anzeigen"
-      , menuItemIcon  = Just "book"
-      , menuItemRoute = ProfileDataR
-      , menuItemAccessCallback' = return True
-      }
-  ]
-pageActions (HomeR) =
-  [
---     NavbarAside $ MenuItem
---       { menuItemLabel = "Benutzer"
---       , menuItemIcon = Just "users"
---       , menuItemRoute = UsersR
---       , menuItemAccessCallback' = return True
---       }
---   ,
-    NavbarAside $ MenuItem
-      { menuItemLabel = "AdminDemo"
-      , menuItemIcon  = Just "screwdriver"
-      , menuItemRoute = AdminTestR
-      , menuItemAccessCallback' = return True
-      }
-  ]
-
 pageActions _ = []
 
+
 i18nHeading :: (MonadWidget m, RenderMessage site msg, HandlerSite m ~ site) => msg -> m ()
 i18nHeading msg = liftWidgetT $ toWidget =<< getMessageRender <*> pure msg