aufrank

* OK Dovecot ready.
4 NOOP
4 OK NOOP completed.
3 LOGIN "USERNAME" "PASSWORD"
5 NOOP
5 OK NOOP completed.
6 NOOP
6 OK NOOP completed.
7 LOGOUT
* BYE Logging out

aufrank

Initializing the registry
Reading ~/.gnus.registry.eld...done
Using ascii tree layout with unicode chars.
Reading /Users/USERNAME/.newsrc.eld...
Reading ~/.gnus.registry.eld...done
Reading active file from news.gmane.org via nntp...
Reading active file from dc via nnimap...
Opening nnimap server on dc...
imap: Connecting to localhost...
Waiting for response from localhost...done

aufrank

Debugger entered--Lisp error: (error "Buffer *Group* has no process")
  process-send-string(nil "6 LOGIN \"USERNAME\" \"PASSWORD\"
\n")
  imap-send-command-1("6 LOGIN \"USERNAME\" \"PASSWORD\"")
  imap-send-command("LOGIN \"USERNAME\" \"PASSWORD\"" nil)
  imap-send-command-wait("LOGIN \"USERNAME\" \"PASSWORD\"")
  #[(user passwd) "BYTECODE" [user passwd status imap-error imap-send-command-wait "LOGIN \"" imap-quote-specials "\" \"" "\"" OK t nil] 7]("USERNAME" "PASSWORD")
  imap-interactive-login(#<buffer  *nnimap* > #[(user passwd) "BYTECODE" [user passwd status imap-error imap-send-command-wait "LOGIN \"" imap-quote-specials "\" \"" "\"" OK t nil] 7])
  imap-login-auth(#<buffer  *nnimap* >)
  imap-authenticate(nil nil " *nnimap* ")
  nnimap-open-connection("")

aufrank

## from http://tr.im/hH5A
logsumexp <- function (x) {
  y = max(x)
  y + log(sum(exp(x - y)))
}

softmax <- function (x) {
  exp(x - logsumexp(x))
}

aufrank

# add in your .bashrc
# http://henrik.nyh.se/2008/12/git-dirty-prompt
# http://www.simplisticcomplexity.com/2008/03/13/show-your-git-branch-name-in-your-prompt/
# http://blog.cyberion.net/2009/01/improved-bash-prompt-for-git-usage.html
#   username@Machine ~/dev/dir[master]$   # clean working directory
#   username@Machine ~/dev/dir[master⚡]$  # dirty working directory
#
# I've made the following ajustements:
#   - Use of plumbing, that should be faster than git status porcelain.
#   - Don't show my repo as dirty if it has files unknown from the index (I always have).

aufrank

# shows things that might be invisibly messing up a script, like DOS
# line endings
cat -vet file

aufrank

(defun epom-insinuate-todochiku ()
  "Use the notification functions from todochiku.el."
  (mapc (lambda (args)
          (let ((hook (car args))
                (message (nth 1 args))
                (icon (nth 2 args))
                (old-function (nth 3 args)))
            (epom-add-todochiku-hook hook message icon)
            (epom-remove-hook hook old-function)))
        '((epom-start-pom-hook

aufrank

#!/bin/sh

# The job of git-flush is to recompactify your repository to be as small
# as possible, by dropping all reflogs, stashes, and other cruft that may
# be bloating your pack files.

git for-each-ref --format="%(refname)" refs/original/ | \
  xargs -n 1 git update-ref -d

git reflog expire --expire=0 --all

aufrank

 '(ido-auto-merge-work-directories-length 0)
 '(ido-cannot-complete-command (quote ido-exit-minibuffer))
 '(ido-decorations (quote ("{" "}" "," ",..." "[" "]" " [No match]" " [Matched]" " [Not readable]" " [Too big]" " [Confirm]")))
 '(ido-enable-flex-matching t)
 '(ido-ignore-files (quote ("\\`CVS/" "\\`#" "\\`.#" "\\`\\.\\./" "\\`\\./" "\\`\\.DS_Store" "\\`\\.localized")))
 '(ido-mode (quote both) nil (ido))
 '(ido-use-filename-at-point nil)
 '(ido-use-virtual-buffers t)

aufrank

(defun mark-line (&optional arg)
  (interactive "p")
  (beginning-of-line)
  (let ((here (point)))
    (dotimes (i arg)
      (end-of-line))
    (set-mark (point))
    (goto-char here)))

(defun mark-sentence (&optional arg)