elderica

#!/bin/bash

### Usage:
### $ env RESOLUTION=UHD NDAYSAGO=1 COUNT=10 MARKET=ja-JP SAVETO=$HOME/Bing sh download_bing_wallpaper.sh

set -euo pipefail

RESOLUTION=${RESOLUTION:-1920x1080} # Possible values: 1920x1080, 1366x768, UHD

NDAYSAGO=${NDAYSAGO:-0}

elderica

#!/bin/bash

set -eu

API_URL='http://www.bing.com/HPImageArchive.aspx'
OUTPUT_FILE="$HOME/bing-photo-of-the-day.jpg"
URL=$(curl -sSLG -d 'format=js' -d "mkt=ja-JP" -d "idx=0" -d "n=1" "${API_URL}" | jq -r '.images[].url')
FULL_URL=$(printf 'https://www.bing.com%s' "${URL}")
curl -sSLo "${OUTPUT_FILE}" "${FULL_URL}"

elderica

<?PHP echo "Hello THM"; ?>

elderica

# code taken from https://www.cliki.net/rlwrap
sbcl --script <<EOF
(let (symbols)
  (do-all-symbols (sym)
    (let ((package (symbol-package sym)))
      (cond
        ((not (fboundp sym)))
        ((or (eql #.(find-package :cl) package)
             (eql #.(find-package :cl-user) package))
         (pushnew (symbol-name sym) symbols))

elderica

(in-package :common-lisp-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :array-operations)
  (ql:quickload :trivial-garbage)
  (ql:quickload :rove))
(defpackage :dezero-naive.steps.step19
  (:use :common-lisp)
  (:shadow :exp)
  (:export
   :backward

elderica

(in-package :common-lisp-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :array-operations)
  (ql:quickload :trivial-garbage)
  (ql:quickload :rove))

(defpackage :dezero-naive.steps.step18
  (:use :common-lisp)
  (:shadow :exp)

elderica

(in-package :common-lisp-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :array-operations)
  (ql:quickload :trivial-garbage)
  (ql:quickload :rove))

(defpackage :dezero-naive.steps.step17
  (:use :common-lisp)
  (:shadow :exp)

elderica

(in-package :common-lisp-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :array-operations)
  (ql:quickload :rove))

(defpackage :dezero-naive.steps.step16
  (:use :common-lisp)
  (:shadow :exp)
  (:export

elderica

(in-package :common-lisp-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :array-operations)
  (ql:quickload :rove))

(defpackage :dezero-naive.steps.step14
  (:use :common-lisp)
  (:shadow :exp)
  (:export

elderica

(in-package :common-lisp-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :array-operations)
  (ql:quickload :rove))

(defpackage :dezero-naive.steps.step13
  (:use :common-lisp)
  (:shadow :exp)
  (:export