done

Signed-off-by: Tsung-Ju Lii <usefulalgorithm@gmail.com>

Author: usefulalgorithm

.github/scripts/pull_album_info/app/Main.hs

@@ -13,8 +13,7 @@ import           System.Environment    (getArgs, getProgName, lookupEnv)
 -- Third-party library imports
 import           Control.Lens          (Identity (runIdentity), (^?))
 import           Data.Aeson            (FromJSON (parseJSON), ToJSON,
-                                        Value (Object), decodeStrict, encode,
-                                        (.:))
+                                        Value (Object), decodeStrict, (.:))
 import           Data.Aeson.Lens       (AsNumber (_Integer), key, nth)
 import           Data.ByteString       (ByteString)
 import qualified Data.ByteString.Char8 as BS
@@ -28,6 +27,7 @@ import           System.FilePath       (takeDirectory)
 import           Text.Ginger           (IncludeResolver, SourcePos, Template,
                                         ToGVal (..), dict, easyRender,
                                         parseGinger)
+import Control.Exception (try, SomeException)
 
 -- Data type definitions
 data MainRelease = MainRelease {
@@ -123,25 +123,36 @@ getMainRelease releaseId = do
 nullResolver :: IncludeResolver Identity
 nullResolver = const $ return Nothing
 
--- | This is our template. Because 'parseGinger' wants a monad (as loading
--- includes would normally go through some sort of monadic API like 'IO'), we
--- use 'Identity' here.
 getTemplate :: String -> Template SourcePos
 getTemplate content = either (error . show) id . runIdentity $
   parseGinger nullResolver Nothing content
 
+templatePath :: IO String
+templatePath = do
+  progName <- getProgName
+  return $ takeDirectory progName ++ "/app/templates/post.md"
+
+runGenAlbumPost :: String -> String -> IO String
+runGenAlbumPost artistName albumName = do
+      -- Get the MainRelease of the album
+      release <- getMasterReleaseId artistName albumName
+             >>= getMainReleaseId
+             >>= getMainRelease
+      content <- templatePath >>= readFile
+      return $ T.unpack . easyRender release $ getTemplate content
+
 -- Main function
 main :: IO ()
 main = do
   args <- getArgs
   case args of
-    [artistName, albumName] -> do
-      release <- getMasterReleaseId artistName albumName
-             >>= getMainReleaseId
-             >>= getMainRelease
-      putStrLn $ BS.unpack $ BS.toStrict $ encode release
-      content <- getProgName >>= readFile . (++ "/app/templates/post.md") . takeDirectory
-      let template = getTemplate content
-      let output = T.unpack $ easyRender release template
-      putStrLn output
-    _ -> putStrLn "Usage: pull_album_info <artist_name> <album_name>"
+    [artistName, albumName, branchName] -> do
+      result <- try $ runGenAlbumPost artistName albumName :: IO (Either SomeException String)
+      post <- case result of
+        Left _ -> do
+          _ <- putStrLn "Cannot get album info from Discog, falling back to default post template"
+          templatePath >>= readFile
+        Right output -> return output
+      writeFile branchName post
+      putStrLn "done"
+    _ -> putStrLn "Usage: pull_album_info <artist_name> <album_name> <branch_name>"

.github/scripts/pull_album_info/app/templates/post.md

@@ -8,7 +8,7 @@ tags: {{year}}
 ![{{imageUrl}}]({{imageUrl}})
 
 <!--
-Whatever you write here will be the post.
+Write your post here!
 -->
 
 ---
@@ -17,8 +17,6 @@ Fav tracks:
 
 Score: /10
 
-Released: {{released}}
+Release date: {{released}}
 
 Labels: {{labels}}
-
-Bandcamp: []()

.github/workflows/create_album_post.yaml

@@ -0,0 +1,57 @@
+name: Create Album Post
+description: Creates a PR to add a new album post to the blog.
+
+on:
+  workflow_dispatch:
+    inputs:
+      album_title:
+        type: string
+        required: true
+        description: Title of the album.
+      artist_name:
+        type: string
+        required: true
+        description: Name of the artist.
+
+jobs:
+  create-branch-and-pr:
+    runs-on: ubuntu-latest
+
+    steps:
+      - name: Checkout repository
+        uses: actions/checkout@v4
+
+      - name: Setup Haskell
+        uses: haskell-actions/setup@v2.7.10
+        with:
+          cabal-version: 2.4
+          ghc-version: 9.4.8
+
+      - name: Pull album info
+        id: pull_album_info
+        run: |
+          BRANCH_NAME=$(echo "${{ github.event.inputs.album_title }}-${{ github.event.inputs.artist_name }}" | tr '[:upper:]' '[:lower:]' | tr -cd 'a-z0-9-')
+
+          # Build album template post
+          cd .github/scripts/pull_album_info
+          cabal build
+          cabal run pull-album-info ${{ github.event.inputs.artist_name }} ${{ github.event.inputs.album_title }} $BRANCH_NAME
+          mv $BRANCH_NAME ${{ github.workspace }}/drafts/$BRANCH_NAME
+
+          # Switch to bot account
+          git config --global user.name 'github-actions[bot]'
+          git config --global user.email 'github-actions[bot]@users.noreply.github.com'
+
+          # Set branch name to output
+          echo "branch_name=$branch_name" >> $GITHUB_OUTPUT
+
+      - name: Create Pull Request
+        id: create_pr
+        uses: peter-evans/create-pull-request@v7
+        with:
+          token: ${{ secrets.GITHUB_TOKEN }}
+          branch: ${{ steps.pull_album_info.outputs.branch_name }}
+          base: main
+          title: post/${{ steps.pull_album_info.outputs.branch_name }}
+          body-path: '${{ github.workspace }}/drafts/${{ steps.pull_album_info.outputs.branch_name }}'
+          labels: 'post'