jwinder

(defun mine-set-font-size (size)
  (interactive "sSize: ")
  (let ((font (concat "Monaco " size)))
    (set-frame-parameter (selected-frame) 'font font)
    (add-to-list 'default-frame-alist (cons 'font font))))

jwinder

(defun ssh-copy-id (username host)
  (interactive "sUsername: \nsHost: ")
  (shell-command (format "ssh-copy-id %s@%s" username host)))

jwinder

;; Create non-existent directories containing a new file before saving
(add-hook 'before-save-hook
          (lambda ()
            (when buffer-file-name
              (let ((dir (file-name-directory buffer-file-name)))
                (when (and (not (file-exists-p dir))
                           (y-or-n-p (format "Directory %s does not exist. Create it?" dir)))
                  (make-directory dir t))))))

jwinder

16:04 <rubbish> java.lang.BrainStackOverflowException: Grip 1.3
16:04 <rubbish>         at cerebal.cortex (CerebalCortex.java:923)
16:04 <rubbish>         at ventral.stream (Procssing.java:6)
16:04 <rubbish>         at visual.perception (Perception.java:2094)
16:04 <rubbish>         at eyes.face (Eyes.java:1240)
16:04 <rubbish>         at 5.senses (Senses.java:231)

jwinder

import XMonad
import XMonad.Util.Run
import XMonad.Util.EZConfig
import XMonad.Actions.CycleWS
import XMonad.Actions.SpawnOn
import Data.Monoid
--import qualified Data.Map as M
--import Control.Monad
--import Control.Comonad
--import System.Environment

jwinder

package eip

trait Functor[F[_]] {
  def fmap[A, B](f: A => B): F[A] => F[B]
}

trait Pointed[F[_]] {
  def point[A](entity: => A): F[A]
}