kanru

/**
 * @fileoverview Provides the custom function BUGZILLA_TITLE and
 * the helper functions that it uses.
 */

/**
 * Runs when the add-on is installed.
 */
function onInstall() {
  onOpen();

kanru

#!/bin/sh
set -x
DBUS_NAME="org.freedesktop.login1"
DBUS_PATH="/org/freedesktop/login1"
DBUS_INTERFACE="org.freedesktop.login1.Manager"
DBUS_SIGNAL="PrepareForSleep"

INHIBITOR_PID=

install_background_inhibitor() {

kanru

(defun eshell-last-argument (n)
  (let* ((input (substring-no-properties
                 (eshell-previous-input-string (1- n))))
         (parse (with-temp-buffer
                  (insert input)
                  (car (reverse (eshell-parse-arguments
                                 (point-min) (point-max)))))))
    (eval parse)))

(defun eshell-insert-last-word (n)

kanru

(defmacro deftestpackage (package-name for-package &optional (test-library-package-name :unit-test))
  "Define a new package PACKAGE-NAME used to test the package
  designated by FOR-PACKAGE.  The new package will import all symbols
  from FOR-PACKAGE and :USE the package designated by
  TEST-LIBRARY-PACKAGE-NAME which supposedly contains unit testing
  functions and macros."
  `(defpackage ,package-name
       (:use ,test-library-package-name ,@(mapcar #'package-name (package-use-list for-package)))
     (:import-from ,for-package
                   ,@(let (symbols)

kanru

#karma{color:rgba(0,0,0,0);background:url(http://omploader.org/vM2hoeQ/karma_hack.png) no-repeat;}