dcolascione

(require 'cl)

(defun qtmstr-lisp-newline ()
  (when (save-excursion
          (save-restriction
            (narrow-to-region (point-min) (point))
            (beginning-of-line)
            (looking-at "^\\( *;+ *\\)")))
    (let ((prefix (match-string 1)))
      (delete-horizontal-space)

dcolascione

#!/bin/bash
# This script runs on login and on device hotplug and configures
# various bits of my Lenovo laptop.  It automatically detects whether
# the machine is docked.

# Profiles:
# -1 = None
# 0 = legacy behavior: if thresh is 0, polynomial,
#     otherwise, simple.
# 1 = device-dependent