russmatney

# .github/workflows/build_and_deploy_to_itch.yml
name: Build and Deploy for WebGL ItchIo

on:
  workflow_dispatch: {}
  push:
    branches:
      - deploy

jobs:

russmatney

{:paths ["bb"]
 :tasks
 {:requires ([moon-phases])

  post-moon-phase
  (moon-phases/fetch-and-post-moon-phase
    {:rapid-api/key       (System/getenv "RAPIDAPI_KEY")
     :discord/webhook-url (or (first *command-line-args*)
                              (System/getenv "DISCORD_WEBHOOK_URL"))})}}

russmatney

class GroupFilter:
    """
    The work here is largely cherry-picked from this unmerged django-filters PR:
    https://github.com/carltongibson/django-filter/pull/1167/files
    """

    def __init__(self, filter_names):
        self.filter_names = filter_names

    def set_parent(self, parent):

russmatney

;;; ~/dotfiles/emacs/.doom.d/+css-classes-backend.el -*- lexical-binding: t; -*-

(require 'cl-lib)
(require 's)

(defmacro comment (&rest _)
  "Comment out one or more s-expressions."
  nil)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

russmatney

main :: IO ()
main = do
  print "Running 'viewExamples'"
  viewExamples

  print "Running 'composedViewExamples'"
  composedViewExamples

  print "Running 'previewExamples'"
  previewExamples

russmatney

hasn'tExample :: IO ()
hasn'tExample = do
  let bob = User (UserName "bob") 42 Nothing HM.empty
  print "Hasn't bob gold in his inventory?"
  print $ hasn't (inventory . ix "gold") bob
  -- True
  -- As in, "Yes, he doesn't."

russmatney

hasGotchaIx :: IO ()
hasGotchaIx = do
  let bob = User (UserName "bob") 42 Nothing HM.empty
  print "Has bob gold in his inventory?"
  print $ has (inventory . ix "gold") bob
  -- False

  let richBob = User (UserName "bob") 42 Nothing
                  $ HM.fromList [("gold", Item 10 10)]
  print "Has bob gold in his inventory?"

russmatney

hasGotcha :: IO ()
hasGotcha = do
  let bob = User (UserName "bob") 42 Nothing HM.empty

  print "Has bob gold in his inventory?"
  print $ has (inventory . at "gold") bob
  -- True

russmatney

toListOfExamples :: IO ()
toListOfExamples = do
  let tory = HM.fromList [ ("gold", Item 99 10)
                          , ("silver", Item 10 9)
                          ]
      bob = User (UserName "bob") 42 Nothing tory

  print "A list of Bob's items"
  print $ bob ^.. inventory . folded
  -- [Item {_itemValue = 10, _itemWeight = 9},Item {_itemValue = 99, _itemWeight = 10}]

russmatney

atIxNonExamples :: IO ()
atIxNonExamples = do
  let bob = User (UserName "bob") 42 Nothing HM.empty
      -- if you were doing this for-real, you would impl and use Data.Default
      defaultGoldItem = Item 0 0

  print "Return the value of Bob's gold, whether he has it or not."
  print $ bob ^. inventory . at "gold" . non defaultGoldItem . value
  -- 0
  print $ bob ^? inventory . at "gold" . _Just . value