From ebe0ee184cdbf591516907e9f4947467d709ad65 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Mon, 16 Feb 2015 15:03:48 +0000
Subject: [PATCH] web: remove unused /journal/entries view

---
 hledger-web/Handler/JournalEntriesR.hs | 64 --------------------------
 hledger-web/config/routes              |  1 -
 hledger-web/hledger-web.cabal          |  1 -
 3 files changed, 66 deletions(-)
 delete mode 100644 hledger-web/Handler/JournalEntriesR.hs

diff --git a/hledger-web/Handler/JournalEntriesR.hs b/hledger-web/Handler/JournalEntriesR.hs
deleted file mode 100644
index 7a064270e..000000000
--- a/hledger-web/Handler/JournalEntriesR.hs
+++ /dev/null
@@ -1,64 +0,0 @@
--- | /journal/entries handlers.
-
-module Handler.JournalEntriesR where
-
-import Import
-
-import Handler.Common
-import Handler.Post
-import Handler.Utils
-
-import Hledger.Data
-import Hledger.Query
-import Hledger.Reports
-import Hledger.Cli.Options
-import Hledger.Web.Options
-
-
--- | The journal entries view, with sidebar.
-getJournalEntriesR :: Handler Html
-getJournalEntriesR = do
-  vd@VD{..} <- getViewData
-  staticRootUrl <- (staticRoot . settings) <$> getYesod
-  let
-      sidecontent = sidebar vd
-      title = "Journal entries" ++ if m /= Any then ", filtered" else "" :: String
-      maincontent = entriesReportAsHtml opts vd $ entriesReport (reportopts_ $ cliopts_ opts) Any $ filterJournalTransactions m j
-  defaultLayout $ do
-      setTitle "hledger-web journal"
-      toWidget [hamlet|
-^{topbar vd}
-<div#content>
- <div#sidebar>
-  ^{sidecontent}
- <div#main.journal>
-  <div#maincontent>
-   ^{searchform vd}
-   <h2#contenttitle>#{title}
-   ^{maincontent}
-  ^{addform staticRootUrl vd}
-  ^{editform vd}
-  ^{importform}
-|]
-
-postJournalEntriesR :: Handler Html
-postJournalEntriesR = handlePost
-
--- | Render an "EntriesReport" as html for the journal entries view.
-entriesReportAsHtml :: WebOpts -> ViewData -> EntriesReport -> HtmlUrl AppRoute
-entriesReportAsHtml _ vd items = [hamlet|
-<table.entriesreport>
- $forall i <- numbered items
-  ^{itemAsHtml vd i}
- |]
- where
-   itemAsHtml :: ViewData -> (Int, EntriesReportItem) -> HtmlUrl AppRoute
-   itemAsHtml _ (n, t) = [hamlet|
-<tr.item.#{evenodd}>
- <td.transaction>
-  <pre>#{txn}
- |]
-     where
-       evenodd = if even n then "even" else "odd" :: String
-       txn = trimnl $ showTransaction t where trimnl = reverse . dropWhile (=='\n') . reverse
-
diff --git a/hledger-web/config/routes b/hledger-web/config/routes
index 2735217c9..8ebccb011 100644
--- a/hledger-web/config/routes
+++ b/hledger-web/config/routes
@@ -5,7 +5,6 @@
 /journal         JournalR        GET POST
 /register        RegisterR       GET POST
 /sidebar         SidebarR        GET
--- /journal/entries JournalEntriesR GET POST
 -- /journal/edit    JournalEditR    GET POST
 --
 -- /accounts        AccountsR       GET
diff --git a/hledger-web/hledger-web.cabal b/hledger-web/hledger-web.cabal
index 94c72d70f..ba0c10ff5 100644
--- a/hledger-web/hledger-web.cabal
+++ b/hledger-web/hledger-web.cabal
@@ -143,7 +143,6 @@ library
                      Settings.Development
                      Handler.Common
                      Handler.JournalEditR
-                     Handler.JournalEntriesR
                      Handler.JournalR
                      Handler.Post
                      Handler.RegisterR