amzyang

// createshortcut.js -- ++pentadactyl
// @Author:      eric.zou ([email protected])
// @License:     GPL (see http://www.gnu.org/licenses/gpl.txt)
// @Created:     Tue 29 Nov 2011 01:24:05 PM CST
// @Last Change: Tue 29 Nov 2011 02:23:36 PM CST
// @Revision:    41
// @Description:
// @Usage:
// @TODO:
// @CHANGES:

bradfitz

#!/usr/bin/perl
#
# Brad's el-ghetto do-our-storage-stacks-lie?-script
#

sub usage {
    die <<'END';
Usage: diskchecker.pl -s <server[:port]> verify <file>
       diskchecker.pl -s <server[:port]> create <file> <size_in_MB>
       diskchecker.pl -l [port]

x4lldux

;; Smart beginning of the line
(defun x4-smarter-beginning-of-line ()
  "Move point to beginning-of-line or first non-whitespace character or first non-whitespace after a comment sign."
  (interactive "^")
  (let (
        (oldpos (point))
        (indentpos (progn
                     (back-to-indentation)
                     (point)
                     )

chrp

#!/usr/bin/env ruby 
# encoding: utf-8

# first part, get temperature
temp_str = `aticonfig --adapter=0 --od-gettemperature`
temp = temp_str.scan(/Sensor 0: Temperature - (\d+\.\d+) C/)[0][0].to_i

# determine fan speed
thresholds = [ 40, 60, 70, 80, 85 ] 
speeds =     [ 10, 25, 30, 35, 50 ]

chaitanyagupta

Reader Macros in Common Lisp

This post also appears on lisper.in.

Reader macros are perhaps not as famous as ordinary macros. While macros are a great way to create your own DSL, reader macros provide even greater flexibility by allowing you to create entirely new syntax on top of Lisp.

Paul Graham explains them very well in [On Lisp][] (Chapter 17, Read-Macros):

The three big moments in a Lisp expression's life are read-time, compile-time, and runtime. Functions are in control at runtime. Macros give us a chance to perform transformations on programs at compile-time. ...read-macros... do their work at read-time.

sprig

(defun kk/run-with-no-helm (orig-func &rest args)
  "Run a function without helm completion."
  (if (boundp 'helm-mode)
      (let ((orig-helm-mode helm-mode))
	(unwind-protect
	    (progn
	      (helm-mode 0)
	      (apply orig-func args)
	      )
	  (helm-mode (if orig-helm-mode 1 0))))

alphapapa

(defun python-mode-outline-hook ()
  (setq outline-level 'python-outline-level)

  (setq outline-regexp
	(rx (or
	     ;; Commented outline heading
	     (group
	      (* space)	 ; 0 or more spaces
	      (one-or-more (syntax comment-start))
	      (one-or-more space)

alphapapa

(defun my/python-mode-outline-hook ()
  (setq outline-level 'my/python-outline-level)

  (setq outline-regexp
	(rx (or
	     ;; Commented outline heading
	     (group
	      (* space)	 ; 0 or more spaces
	      (one-or-more (syntax comment-start))
	      (one-or-more space)

dannguyen

Use wget to mirror a single page and its visible dependencies (images, styles)

Graphic via State of Florida CFO Vendor Payment Search (flair.myfloridacfo.com)

This is a quick command I use to snapshot webpages that have a fun image I want to keep for my own collection of WTFViz. Why not just right-click and save the image? Oftentimes, the webpage in which the image is embedded contains necessary context, such as captions and links to important documentation just incase you forget what exactly that fun graphic was trying to explain.

alphapapa

#!/usr/bin/env python

import datetime, json, sys

def formatEntry(entry):
    return "%s (%s) (%s)" % (entry['title'].encode('utf8')
                                 if entry.has_key('title') else "<untitled>",
                             entry['url'].encode('utf8'),
                             datetime.datetime.fromtimestamp(
                                   int(tab['lastAccessed']) / 1000).strftime('%Y-%m-%d %H:%M:%S'))