milkypostman

;;; pastels-on-dark-theme.el --- Pastels on Dark theme for Emacs 24

;; Author: Mats Persson
;; Maintainer: Shane Celis <shane (at) gnufoo (dot) org>
;; URL: http://gist.github.com/1906662
;; Version: 0.3
;; Keywords: theme, color

;;; Commentary:

milkypostman

> Donald Ephraim Curtis's Custom Quix Commands
> dcurtis-quix.txt
> May kill you.
> GitHub Gist: http://gist.github.com/
> Learn More: http://quixapp.com
> UPDATED: 2011-01-04_03:04


@Donald Curtis's Custom Quix Commands
@Some commands ripped from Merlin Mann

milkypostman

(defun shell-command-on-region-to-string (start end command)
  (save-window-excursion
    (with-output-to-string
      (shell-command-on-region start end command standard-output))))

milkypostman

(defmacro after (mode &rest body)
  "`eval-after-load' MODE evaluate BODY."
  (declare (indent defun))
  (let ((load-arg (cond
                   ((consp mode) mode)
                   ((symbolp mode) `(quote ,mode))
                   (t mode))))
    `(eval-after-load ,load-arg
       '(progn ,@body))))

milkypostman

;; ignore wiki packages
(defadvice package--add-to-archive-contents
  (around package-filter-wiki-packages (package archive) activate compile)
  (unless (string-match-p "\\[wiki\\]$" (package-desc-doc (cdr package)))
    ad-do-it))

milkypostman

#!/bin/bash

if [[ $# < 1 ]]; then
   echo "Requires an argument."
   exit 1
fi


if [[ ! -r $1 ]]; then
    echo "File not found: ${1}"

milkypostman

(defun to-string (object)
  "Convert OBJECT to a string."
  (cond
   ((symbolp object) (symbol-name object))
   ((stringp object) object)
   ((numberp object) (number-to-string object))
   (t (prin1-to-string object))))

(defadvice completing-read (around grizzl-advise-completing-read activate)
  "Wrapper that uss grizzl"

milkypostman

  (cl-loop for (source-file . dest-file) in files
           for info-path = (expand-file-name
                            (concat (file-name-sans-extension dest-file)
                                    ".info")
                            target-dir)
           if (string-match ".texi\\(nfo\\)?$" source-file)
           if (not (file-exists-p info-path))
           do (ignore-errors
                (pb/run-process
                 nil

milkypostman

(defadvice require (around require-advice activate)
  (message "require")
  (save-excursion
    (let (deactivate-mark)
      ad-do-it)))

milkypostman

(let ((prev 0)
      (cur)
      (str (concat (propertize "test" 'face 'mode-line) " -- " (propertize "rest" 'face 'default)))
      (out '(0)))
  (while (setq cur (next-single-property-change prev 'face str))
    (message (substring str prev cur))
    (setq prev cur)
    )
  (message (substring str prev)))