aoc-cl/src/main.lisp

(defpackage aoc
  (:use :cl)
  (:export
   #:test-input))

(in-package :aoc)

(defun load-ql-dependencies ()
  ())


(defvar *aoc-url* "https://adventofcode.com")


(defvar *cookie-jar*
  (cl-cookie:make-cookie-jar
   :cookies (list
             (cl-cookie:make-cookie
              :name "session"
              :value (uiop:getenv "AOC_SESSION")
              :origin-host "adventofcode.com"
              :path "/"
              :domain ".adventofcode.com"
              :secure-p t))))

(setf *cookie-jar*
      (cl-cookie:make-cookie-jar
       :cookies (list
                 (cl-cookie:make-cookie
                  :name "session"
                  :value (uiop:getenv "AOC_SESSION")
                  :origin-host "adventofcode.com"
                  :path "/"
                  :domain ".adventofcode.com"
                  :secure-p t))))




(defun test-input (year day)
  (let ((url (format nil "~A/~D/day/~D/input" *aoc-url* year day)))
    (multiple-value-bind
          (body)
        (dex:get url :cookie-jar *cookie-jar* :verbose t)
      body)))