Add shake build script

Author: meck

.gitignore

@@ -2,3 +2,4 @@
 *~
 Hoogle.alfredworkflow
 workflow_skeleton/alfred-hoogle
+.shake/

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Change log
 
+0.1.1
+=====
+
+* Add shake build system.
+
 0.1.0
 =====
 

README.md

@@ -47,5 +47,5 @@ Some settings are available as workflow variables in Alfred:
 
 ### Building
 1. Ensure `stack` is installed
-2. Run `./buildworkflow.sh` this makes `Hoggle.alfredworkflow`
+2. Run `./build.hs` script, this makes `Hoggle.alfredworkflow`
 3. Open it with Alfred

alfred-hoogle.cabal

@@ -1,6 +1,6 @@
 cabal-version:       1.24
 name:                alfred-hoogle
-version:             0.1.0
+version:             0.1.1
 description:         Hoogle from Alfred
 synopsis:            Hoogle from Alfred
 
@@ -44,6 +44,7 @@ executable alfred-hoogle
                      , binary
                      , silently
                      , directory
+                     , shake
 
 
   default-language:    Haskell2010

build.hs

@@ -0,0 +1,72 @@
+#!/usr/bin/env stack
+{- stack
+  --resolver nightly-2019-02-04
+  --install-ghc
+  runghc
+  --package shake
+  --package text
+-}
+
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Data.Char                  (isSpace)
+import           Data.List                  (dropWhileEnd)
+import           Data.Maybe                 (catMaybes)
+import           Data.Text                  (Text)
+import qualified Data.Text                  as T
+import qualified Data.Text.IO               as TIO
+import           Development.Shake
+import           Development.Shake.FilePath
+
+workflowFile :: FilePath
+workflowFile = "Hoogle.alfredworkflow"
+
+executableFile :: FilePath
+executableFile = "alfred-hoogle"
+
+main :: IO ()
+main =
+    shakeArgs shakeOptions
+        $ action
+        $ withTempDir
+        $ \tempDir -> do
+
+              -- Build the executable and copy to temp directory
+              stackBuild
+              binaryFp <- binaryPath
+              copyFile' binaryFp $ tempDir </> executableFile
+
+              -- Copy the plist to temp dir and set the version number
+              copyFile' ("workflow_skeleton" </> "info.plist")
+                        (tempDir </> "info.plist")
+              ver <- cabalVer
+              liftIO $ setPlistVersion ver $ tempDir </> "info.plist"
+
+              -- Compress the skeleton directory
+              command_ []
+                       "zip"
+                       ["-r", "-X", "-j", workflowFile, "workflow_skeleton"]
+
+              -- Add the executable and updated plist file to the archive
+              command_ [] "zip" ["-r", "-X", "-j", workflowFile, tempDir]
+
+
+stackBuild :: Action ()
+stackBuild = command_ [] "stack" ["build"]
+
+binaryPath :: Action FilePath
+binaryPath = do
+    Stdout localbin <- command [] "stack" ["path", "--local-install-root"]
+    return $ dropWhileEnd isSpace localbin </> "bin" </> executableFile
+
+cabalVer :: Action Text
+cabalVer = do
+    Stdout ver <- command [] "stack" ["ls", "dependencies"]
+    return $ defVer $ catMaybes $ T.stripPrefix "alfred-hoogle " <$> T.lines (T.pack ver)
+      where defVer []    = "0.0.0"
+            defVer (x:_) = x
+
+setPlistVersion :: Text -> FilePath -> IO ()
+setPlistVersion ver fp = do
+    f <- TIO.readFile fp
+    TIO.writeFile fp $ T.replace "VERSIONPLACEHOLDER" ver f

buildworkflow.sh

@@ -528,8 +528,8 @@ Keyword is editable</string>
 		<string>15</string>
 	</dict>
 	<key>version</key>
-	<string>0.1.0</string>
+	<string>VERSIONPLACEHOLDER</string>
 	<key>webaddress</key>
-	<string></string>
+	<string>https://github.com/meck/alfred-hoogle</string>
 </dict>
 </plist>