Compatibility with Octopress site.

Don't break urls. 1. New Route function which generates routes compatible with old blog. 2. Renamed posts folder to blog.
2017-01-31 15:52:21 +01:00 · 2017-01-31 15:52:21 +01:00 · 3a30fb8a07
commit 3a30fb8a07
parent f1bf5b6c0d
49 changed files with 25 additions and 4 deletions
--- a/posts/2011-03-21-long-time.markdown
+++ b/posts/2011-03-21-long-time.markdown
--- a/posts/2011-03-24-school-memories.markdown
+++ b/posts/2011-03-24-school-memories.markdown
--- a/posts/2011-03-26-earth-hour-official-video.markdown
+++ b/posts/2011-03-26-earth-hour-official-video.markdown
--- a/posts/2011-03-26-firefox.markdown
+++ b/posts/2011-03-26-firefox.markdown
--- a/posts/2011-04-01-compski-night-firends-and-fun.markdown
+++ b/posts/2011-04-01-compski-night-firends-and-fun.markdown
--- a/posts/2011-04-03-happy-birthday-colin.markdown
+++ b/posts/2011-04-03-happy-birthday-colin.markdown
--- a/posts/2011-04-05-sharing-the-posterous-way.markdown
+++ b/posts/2011-04-05-sharing-the-posterous-way.markdown
--- a/posts/2011-04-19-bed-of-roses.markdown
+++ b/posts/2011-04-19-bed-of-roses.markdown
--- a/posts/2011-04-20-happy.markdown
+++ b/posts/2011-04-20-happy.markdown
--- a/posts/2011-04-28-adept.markdown
+++ b/posts/2011-04-28-adept.markdown
--- a/posts/2011-05-02-the-story-of-linux.markdown
+++ b/posts/2011-05-02-the-story-of-linux.markdown
--- a/posts/2011-05-07-gsoc-2011-i-am-in.markdown
+++ b/posts/2011-05-07-gsoc-2011-i-am-in.markdown
--- a/posts/2011-05-14-welcome-to-acm-courtesy-of-google.markdown
+++ b/posts/2011-05-14-welcome-to-acm-courtesy-of-google.markdown
--- a/posts/2011-05-28-hmm-vacation-work-time.markdown
+++ b/posts/2011-05-28-hmm-vacation-work-time.markdown
--- a/posts/2011-06-04-distributed-computing.markdown
+++ b/posts/2011-06-04-distributed-computing.markdown
--- a/posts/2011-06-05-random-reverbations.markdown
+++ b/posts/2011-06-05-random-reverbations.markdown
--- a/posts/2011-07-19-birthday-food-for-thought.markdown
+++ b/posts/2011-07-19-birthday-food-for-thought.markdown
--- a/posts/2011-08-23-sigsegv.markdown
+++ b/posts/2011-08-23-sigsegv.markdown
--- a/posts/2011-08-30-what-you-do-when-you-get-a-free-day.markdown
+++ b/posts/2011-08-30-what-you-do-when-you-get-a-free-day.markdown
--- a/posts/2011-09-10-good-to-be-back.markdown
+++ b/posts/2011-09-10-good-to-be-back.markdown
--- a/posts/2011-09-11-nothing-else-matters.markdown
+++ b/posts/2011-09-11-nothing-else-matters.markdown
--- a/posts/2011-09-16-crazy.markdown
+++ b/posts/2011-09-16-crazy.markdown
--- a/posts/2011-10-11-ffmepg-nokia-7210-video-clips.markdown
+++ b/posts/2011-10-11-ffmepg-nokia-7210-video-clips.markdown
--- a/posts/2011-10-11-latex-on-the-go.markdown
+++ b/posts/2011-10-11-latex-on-the-go.markdown
--- a/posts/2011-10-28-falling-slowly.markdown
+++ b/posts/2011-10-28-falling-slowly.markdown
--- a/posts/2012-01-09-arrow-keys-input-in-python.markdown
+++ b/posts/2012-01-09-arrow-keys-input-in-python.markdown
--- a/posts/2012-03-18-progress-bar-in-mercurial-pushpull.markdown
+++ b/posts/2012-03-18-progress-bar-in-mercurial-pushpull.markdown
--- a/posts/2012-03-29-thamarassery-mountain-pass-wayanad.markdown
+++ b/posts/2012-03-29-thamarassery-mountain-pass-wayanad.markdown
--- a/posts/2012-11-21-netbsd-chronicles.markdown
+++ b/posts/2012-11-21-netbsd-chronicles.markdown
--- a/posts/2012-11-24-my-perfect-terminal.markdown
+++ b/posts/2012-11-24-my-perfect-terminal.markdown
--- a/posts/2012-12-06-rooting-a-nexus-7.markdown
+++ b/posts/2012-12-06-rooting-a-nexus-7.markdown
--- a/posts/2012-12-12-name-your-servers.markdown
+++ b/posts/2012-12-12-name-your-servers.markdown
--- a/posts/2013-01-01-a-thank-you-note.markdown
+++ b/posts/2013-01-01-a-thank-you-note.markdown
--- a/posts/2013-05-03-new-home.markdown
+++ b/posts/2013-05-03-new-home.markdown
--- a/posts/2013-05-28-getting-started-with-rtems-on-archlinux.markdown
+++ b/posts/2013-05-28-getting-started-with-rtems-on-archlinux.markdown
--- a/posts/2013-05-28-summer-of-code-2013.markdown
+++ b/posts/2013-05-28-summer-of-code-2013.markdown
--- a/posts/2013-06-23-debugging-rtems-with-gdb.markdown
+++ b/posts/2013-06-23-debugging-rtems-with-gdb.markdown
--- a/posts/2014-08-16-automatic-log-in-for-act-broadband.markdown
+++ b/posts/2014-08-16-automatic-log-in-for-act-broadband.markdown
--- a/posts/2015-02-21-syslog-on-mac-os-x-cheat-sheet.markdown
+++ b/posts/2015-02-21-syslog-on-mac-os-x-cheat-sheet.markdown
--- a/posts/2015-03-28-state-of-terminal-2015-edition.markdown
+++ b/posts/2015-03-28-state-of-terminal-2015-edition.markdown
--- a/posts/2015-03-29-notes-on-cgo.markdown
+++ b/posts/2015-03-29-notes-on-cgo.markdown
--- a/posts/2015-06-30-static-site-generators.markdown
+++ b/posts/2015-06-30-static-site-generators.markdown
--- a/posts/2015-08-22-recursion.markdown
+++ b/posts/2015-08-22-recursion.markdown
--- a/posts/2015-12-01-a-random-rant.markdown
+++ b/posts/2015-12-01-a-random-rant.markdown
--- a/posts/2015-12-28-swanthathralokam.markdown
+++ b/posts/2015-12-28-swanthathralokam.markdown
--- a/posts/2016-01-14-golang-shorthand-operator-allows-accidental-shadowing-of-variable.markdown
+++ b/posts/2016-01-14-golang-shorthand-operator-allows-accidental-shadowing-of-variable.markdown
--- a/posts/2016-03-31-finding-a-programming-job.markdown
+++ b/posts/2016-03-31-finding-a-programming-job.markdown
--- a/blogng.cabal
+++ b/blogng.cabal
@ -7,5 +7,7 @@ executable site
  main-is:          site.hs
  build-depends:    base == 4.*
                  , hakyll == 4.9.*
+                  , filepath >= 1.4
+                  , regex-compat
  ghc-options:      -threaded
  default-language: Haskell2010
--- a/site.hs
+++ b/site.hs
@ -2,6 +2,10 @@
 {-# LANGUAGE OverloadedStrings #-}
 import           Data.Monoid (mappend)
 import           Hakyll
+import           Hakyll.Core.Identifier (toFilePath)
+import           System.FilePath
+import           Text.Regex (splitRegex, mkRegex)
+


 --------------------------------------------------------------------------------
@ -21,8 +25,8 @@ main = hakyll $ do
            >>= loadAndApplyTemplate "templates/default.html" defaultContext
            >>= relativizeUrls

-    match "posts/*" $ do
-        route $ setExtension "html"
+    match "blog/*" $ do
+        route $  octopressRoute
        compile $ pandocCompiler
            >>= loadAndApplyTemplate "templates/post.html"    postCtx
            >>= loadAndApplyTemplate "templates/default.html" postCtx
@ -31,7 +35,7 @@ main = hakyll $ do
    create ["archive.html"] $ do
        route idRoute
        compile $ do
-            posts <- recentFirst =<< loadAll "posts/*"
+            posts <- recentFirst =<< loadAll "blog/*"
            let archiveCtx =
                    listField "posts" postCtx (return posts) `mappend`
                    constField "title" "Archives"            `mappend`
@ -46,7 +50,7 @@ main = hakyll $ do
    match "index.html" $ do
        route idRoute
        compile $ do
-            posts <- recentFirst =<< loadAll "posts/*"
+            posts <- recentFirst =<< loadAll "blog/*"
            let indexCtx =
                    listField "posts" postCtx (return posts) `mappend`
                    constField "title" "Home"                `mappend`
@ -65,3 +69,18 @@ postCtx :: Context String
 postCtx =
    dateField "date" "%B %e, %Y" `mappend`
    defaultContext
+
+-- octopress compatible routes
+octopressRoute :: Routes
+octopressRoute = customRoute $ octoMangaling
+
+octoMangaling :: Identifier -> FilePath
+octoMangaling pathId = base </> year </> month </> day </> post </> "index.html"
+  where
+    p = toFilePath pathId
+    base = takeDirectory p
+    seps = splitRegex (mkRegex "-") $ takeBaseName p
+    year:month:day:xs = seps
+    post = tail $ foldl (\a b -> a ++ "-" ++ b) "" xs
+
+