milkypostman

;;; badwolf-theme.el --- Emacs 24 theme with a dark background.

;; Copyright (C) 2014 , d@milkbox.net

;; Author: d@milkbox.net
;; 
;; Version: 0.1
;; Package-Requires: ((emacs "24"))
;; Created with emacs-theme-generator, https://github.com/mswift42/theme-creator.

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)))

milkypostman

(defun save-region-or-current-line (arg)
  (interactive "P")
  (if (region-active-p)
      (kill-ring-save (region-beginning) (region-end))
    (copy-line arg)))

milkypostman

#!/usr/bin/env python

import os
import py_compile
import shutil
import stat
import sys
import zipfile