sjl

(defn personality-stddev
  [faved mehed hated mean]
  (let [points (concat (take faved (cycle [1]))
                       (take mehed (cycle [0.5]))
                       (take hated (cycle [0])))
        squared (map #(expt (- % mean) 2) points)]
  (sqrt (/ (apply + squared) (count squared)))))

sjl

(defn personality
  [faved mehed hated]
  (let [score (personality-score faved mehed hated)]
    { :score score
      :stddev (personality-stddev faved mehed hated score)
      :total (+ faved mehed hated) }))

sjl

(let [faved (brains.db/user-site-faved-count uid)
      mehed (brains.db/user-mehed-count uid)
      hated (brains.db/user-hated-count uid)] ...)

sjl

(defn personality-score
  [faved mehed hated]
  (/ (+ faved (* mehed 0.5)) (+ faved mehed hated)))

sjl

{ :score AVERAGE-RATING
  :stddev STANDARD-DEVIATION
  :total TOTAL-RATINGS }

sjl

(defn db-personality-user
  [uid]
  (let [faved (brains.db/user-site-faved-count uid)
        mehed (brains.db/user-mehed-count uid)
        hated (brains.db/user-hated-count uid)]
    (assoc (personality faved mehed hated)
           :uid uid)))

(defn db-personality-users
  []

sjl

  <list>
    <item>
      <name>Use the correct goddamed shift keys.</name>
      <identifier>private.fucking_shift_keys_how_do_they_work</identifier>

      <autogen>--KeyToKey-- KeyCode::Q, ModifierFlag::SHIFT_L, KeyCode::VK_NONE</autogen>
      <autogen>--KeyToKey-- KeyCode::W, ModifierFlag::SHIFT_L, KeyCode::VK_NONE</autogen>
      <autogen>--KeyToKey-- KeyCode::E, ModifierFlag::SHIFT_L, KeyCode::VK_NONE</autogen>
      <autogen>--KeyToKey-- KeyCode::R, ModifierFlag::SHIFT_L, KeyCode::VK_NONE</autogen>
      <autogen>--KeyToKey-- KeyCode::T, ModifierFlag::SHIFT_L, KeyCode::VK_NONE</autogen>

sjl

\sR - Open a REPL
\et - Eval current toplevel form
\ef - Eval current file
\lw - Look up documentation for current word
C-X C-O - Autocomplete current word smartly

sjl

    Firefox
       |
       V
  OS X Laptop               port 4565 on OS X               Linux VM
Nginx on port 80 -------> is forwarded to 80 on ------> Nginx on port 80
                                 the VM                        |
                                                               V
                                                         Gunicorn server

sjl

import sys, os

old_file = sys.argv[1].rsplit('.', 2)[0]
if os.path.exists(old_file):
    os.system('osascript -e \'tell app "Finder" '
               + 'to move the POSIX file "'
               + os.path.abspath(old_file) + '" to trash\'')