asciipip

asciipip

;;;; Needs the iterate package.

(defmacro maybep (&body body)
  "Give this a series of forms.  It will return the result of the first one that
  yields T or NIL.  Any other result will cause the next form to be evaluated.
  Short-circuits like IF or COND."
  (labels ((maybep-expand (forms)
             (if (endp forms)
                 `(error "All evaluated forms yielded MAYBE.")
                 `(let ((result ,(car forms)))

asciipip

This defines a rule that allows for a "sunrise" style alarm. Basically, you trigger it by setting the Alarm_Trigger item to a value that defines parameters for the alarm:

• duration gives the length of the alarm in minutes
• light gives the minimum and maximum brightness values over the course of the alarm, e.g. light=0,75.
• temp gives the range of color temperatures over the course of the alarm, e.g. temp=2700,5000

Add dimmers to the Alarm_Dimmers group. Add Number items for color temperature to the Alarm_Temps group. Any switches in the Alarm_Switches group will be turned on at the end of the alarm.

The Alarm_Running item serves as a UI element to halt a running alarm. Just turn it OFF while the alarm is running,

asciipip

#!/usr/bin/python

import random
import string

UNAMBIGUOUS_LETTERS = list(set(string.ascii_lowercase) - set('ilou'))

def randid_worker(params):
    """PARAMS is a collection of (SET, COUNT) pairs.  The function returns
    a collection of COUNT_0 + COUNT_1 + ... COUNT_n items, drawn from the

asciipip

#!/usr/bin/python

import random
import string

UNAMBIGUOUS_LETTERS = list(set(string.ascii_lowercase) - set('ilou'))

def randid():
    """Creates a random ID space with three modified
    base32 characters and one number in random order for

asciipip

#!/usr/bin/python

# Author: Phil! Gold <phil_g@pobox.com>
# License: CC0 Waiver http://creativecommons.org/publicdomain/zero/1.0/

import time
from Adafruit_I2C import Adafruit_I2C

class _MPL115A2_Register:

asciipip

#!/bin/sh

# Extent of the rendering database; tiles outside this are pointless.
latlon="lon=-125.0841,-66.9251 lat=24.2520,49.3845"

for map in cutouts; do
    # rerender everything that's expired.
    for z in `seq 2 16`; do
        prio=$(calc 70 - $z)
        tirex-batch -f 'exists;older(/var/lib/tirex/tiles/planet-import-complete)' -p $prio $latlon map=$map z=$z