honeylisp/presentation/slides.fnl

(local util (require :lib.util))
(local lume (require :lib.lume))
(local {: parse} (util.require :presentation.engine))
(local core (require :core))
(local style (require :core.style))
(local TileEditView (require :editor.tileedit))
(local MapEditView (require :editor.mapedit))
(local PortraitEditView (require :editor.portraitedit))
(local FontEditView (require :editor.fontedit))
(local ScreenEditView (require :editor.screenedit))

(local h
  {:style true
   :font (renderer.font.load "presentation/font/PrintChar21.ttf" (* 64 SCALE))
   :color style.caret
   :justify :center
   :topPadding (* style.padding.y 2)
   :lowerPadding 64})
(local **
  {:style true
   :font (renderer.font.load "presentation/font/PRNumber3.ttf" (* 32 SCALE))
   :color style.text
   :justify :left
   :pause-after true})
(fn p [style] (lume.merge style {:pause-after true}))
(fn np [style] (lume.merge style {:pause-after false}))

(fn bgimg [filename] {:image filename :justify :center :overlay true :alpha 0.3 :topPadding 0})

(fn view-cleanup [view]
  (let [root core.root_view.root_node
        node (root:get_node_for_view view)]
    (when node (node:close_active_view root))))

(fn split-and-open [f ?split]
  (let [focused-view core.active_view
        focused-node (core.root_view:get_active_node)
        _ (when ?split (focused-node:split ?split))
        view (f)
        node (core.root_view:get_active_node)]
    (when (= (core.root_view.root_node:get_node_for_view view) nil) (node:add_view view))
    (when ?split (core.set_active_view focused-view)) ; don't switch focus
    #(view-cleanup view)))

(fn openview [f ?split] {:action #(split-and-open f ?split)})
(fn openfile [filename ?split]
  (openview #(core.root_view:open_doc (core.open_doc filename)) ?split))

(parse [
  [h "" "" ""
     "Honeylisp"
     "" "" ""
   (np **) "Jeremy Penner"
           "https://spindleyq.itch.io/"
           "https://blog.information-superhighway.net/"
           "https://bitbucket.org/SpindleyQ/honeylisp"
           "https://gamemaking.social/@SpindleyQ"
           "https://twitter.com/SpindleyQ"
   {:pause-after true}]
  [(bgimg "presentation/pics/pete286.jpeg")
   h "Some Background"
   ** "In 2019 I built a 16-bit MS-DOS game engine."
      "* Built on hardware"
      "* Using only period-appropriate software (Turbo C, NeoPaint)"
      "* Powered by Forth"
      "* Integrated custom tools"
      "* Interactive development via serial terminal"]
  [(bgimg "presentation/pics/ggj2020.jpeg")
   h "Neut Tower"
   ** "In 2020, I did the Global Game Jam on my 286."
      "Finished 'Shareware Episode 1' a couple of months later."]
  [h "The Idea"
   ** "What if I took a similar DIY approach with modern tooling?"
      "* I'd done Forth; what about Lisp?"
      "  https://fennel-lang.org/"
      "* How far can I push fast iterative development?"
      "* Could I integrate an editor?"
      "* How can I leverage emulation?"]
  [h "Step 1: Assembler"
     ** "Represent instructions using Fennel data literals"
      (openfile :asm/asm.fnl :right)
      "  [:lda 0xff]"
      "Represent labels with Fennel strings"
      "  :loop [:bne :loop]"
      "Lexical scope with nested blocks"
      "  [:block :loop (generate-loop-code) [:bne :loop]]"]
;   ;; DEMO before tech dive??
  [h "Wait WTF Is An Assembler"
   ** "It's just converting mnemonics to bytes, right?"
      {:image "presentation/pics/assembly-markup.png" :justify :center :pause-after true}
      "Whoooops, actually the hard part is converting labels to addresses"
      "Zero-page instructions are a different size, which messes up data layout!"
      "Initial pass is needed to gather all symbols to determine sizes"
      "What about data?"
      "  [:db 123] [:dw 12345] [:bytes \"HELLO WORLD\"] [:ref :hello]"
      "Must be able to line up bytes on page boundaries"
      "  [:align 0x100]"]
  [h "Step 2: Virtual Machine"
     {:image "presentation/pics/thinkhard.png" :justify :center}
   ** "Not super keen on writing a complicated compiler"
      "I'm already very comfortable with Forth"
      "Let's build a stack machine!"
      "\"Direct threaded\" inner interpreter"
      "\"Immediate words\" can be Fennel functions that generate code!"]
  [h "Extensible Assembler??"
   ** "How do you turn code into bytes?"
      "  [:vm 1 2 :+ :.]"
      "Branching?"
      "  (vm:if [:do-true-thing] [:do-false-thing])"
      "I can even do short-circuiting OR!"
      "  (vm:if-or [[:dup 1 :=] [:dup 3 :=]] [:do-true-thing] [:do-false-thing])"]
  [h "Step 3: Tooling And Workflow"
   ** "I want an environment that makes it easy to make graphical tools"
      "I'm SO tired of web tech"
      "Could LÖVE2D with an imgui work?"]
  [h "lite"
   ** "A small, highly-extensible text editor written in Lua"
      "Backend is SDL"
      "Could I rewrite it to run under LÖVE2D?"
      "  Yes! In a weekend!"]
  [h "Custom Editors"
   ** "14x16 tile editor"
      (openview #(TileEditView))
      "Font editor"
      (openview #(FontEditView))
      "Portrait editor"
      (openview #(PortraitEditView))
      "Map editor"
      (openview #(MapEditView))
      "Screen editor"
      (lume.merge (openview #(ScreenEditView :neuttower/title.screen)) {:pause-after true})]
])