@@ -26,6 +26,18 @@

   (define-key evil-normal-state-map " o" 'slime-selector)

   (define-key evil-insert-state-map (kbd "TAB") 'company-complete))

+;;;;; INDENTATION SETUP  {{{

+(progn

+  (setq-default indent-tabs-mode nil

+                tab-width 2)

+  (defvaralias 'c-basic-offset 'tab-width)

+  (defvaralias 'sh-basic-offset 'tab-width)

+  (defvaralias 'js2-basic-offset 'tab-width)

+  (defvaralias 'sgml-basic-offset 'tab-width)

+  (defvaralias 'cperl-indent-level 'tab-width))

+

+;;;;; }}}

+

 ;;;;; SLIME SETUP {{{

 (progn ;slime isn't loaded via use-package because quicklisp-helper keeps it uptodate

   (load (expand-file-name "~/quicklisp/slime-helper.el"))

@@ -273,7 +285,7 @@

 (use-package evil-nerd-commenter

   :ensure t

   :config

-  (evilnc-default-hotkeys))

+  (evilnc-default-hotkeys t))

 (use-package evil-leader

   :ensure t)

@@ -523,7 +535,7 @@

  '(global-linum-mode t)

  '(haskell-mode-hook

    (quote

-    (capitalized-words-mode haskell-decl-scan-mode haskell-indentation-mode highlight-uses-mode imenu-add-menubar-index interactive-haskell-mode)) t)

+    (capitalized-words-mode haskell-decl-scan-mode haskell-indentation-mode highlight-uses-mode imenu-add-menubar-index interactive-haskell-mode)))

  '(helm-ls-git-fuzzy-match t)

  '(jdee-server-dir "~/.emacs.d/jdee-server/")

  '(jira-url "https://atomampd.atlassian.net/rpc/xmlrpc")

@@ -536,7 +548,7 @@

     ("#CC9393" "#DFAF8F" "#F0DFAF" "#7F9F7F" "#BFEBBF" "#93E0E3" "#94BFF3" "#DC8CC3")))

  '(package-selected-packages

    (quote

-    (geiser pollen-mode js2-refactor npm-mode helm-dash aggressive-indent company-tern tern srefactor ac-slime znc helm-ag ag helm-projectile notmuch zenburn-theme zeal-at-point use-package tabbar slime-company rainbow-delimiters projectile mvn jdee intero helm evil-visual-mark-mode evil-vimish-fold evil-paredit evil-numbers ensime eldoc-eval editorconfig color-theme ansible alect-themes ac-js2)))

+    (deft geiser pollen-mode js2-refactor npm-mode helm-dash aggressive-indent company-tern tern srefactor ac-slime znc helm-ag ag helm-projectile notmuch zenburn-theme zeal-at-point use-package tabbar slime-company rainbow-delimiters projectile mvn jdee intero helm evil-visual-mark-mode evil-vimish-fold evil-paredit evil-numbers ensime eldoc-eval editorconfig color-theme ansible alect-themes ac-js2)))

  '(pe/omit-gitignore t)

  '(safe-local-variable-values

    (quote

new file mode 100644

@@ -0,0 +1,526 @@

+;;;; Copyright (C) 2013 Paulo Madeira

+;;;;

+;;;; This Source Code Form is subject to the terms of the Mozilla Public

+;;;; License, v. 2.0. If a copy of the MPL was not distributed with this

+;;;; file, You can obtain one at http://mozilla.org/MPL/2.0/.

+

+;;; Interface

+

+(cl:in-package #:cl-user)

+

+

+(defpackage #:editor-color-theme

+  (:use #:cl)

+  (:export #:*current-colors*

+           #:all-color-themes

+           #:color-theme-args

+           #:color-theme

+           #:define-color-theme

+           #:remove-color-theme

+           ))

+

+(in-package #:editor-color-theme)

+

+

+;;; Configuration

+

+;; Default foreground and background colors

+(defconstant +default-foreground-color+ :black)

+(defconstant +default-background-color+ :white)

+

+(defvar *current-colors* (make-hash-table))

+

+;;; Implementation

+

+(defvar *all-color-themes* (make-hash-table :test 'string=))

+

+(defvar *editor-face-names*

+  '(:region

+    :show-point-face

+    :interactive-input-face

+    :highlight

+    :non-focus-complete-face

+    :font-lock-function-name-face

+    :font-lock-comment-face

+    :font-lock-type-face

+    :font-lock-variable-name-face

+    :font-lock-string-face

+    :font-lock-keyword-face

+    :font-lock-builtin-face

+    :compiler-note-highlight

+    :compiler-warning-highlight

+    :compiler-error-highlight

+    :incremental-search-face

+    :incremental-search-other-matches-face

+    ))

+

+

+

+(defclass editor-panes-theme ()

+  ((editor-panes :initform nil :accessor editor-panes)

+   (buffers-panes :initform nil :accessor buffers-panes)

+   (editor-background :initform +default-background-color+ :accessor bg) 

+   (editor-foreground :initform +default-foreground-color+ :accessor fg)

+   (buffers-background :initform +default-background-color+ :accessor buffers-bg)

+   (buffers-foreground :initform +default-foreground-color+ :accessor buffers-fg)

+   (buffers-selected-foreground :initform +default-foreground-color+ :accessor buffers-selected-fg)))

+

+(defclass listener-panes-theme ()

+  ((listener-panes :initform nil :accessor listener-panes)

+   (listener-foreground :initform +default-foreground-color+ :accessor bg)

+   (listener-background :initform +default-background-color+ :accessor fg)))

+

+

+(defclass general-panes-theme ()

+  ((output-panes :initform nil :accessor output-panes)

+   (output-foreground :initform +default-foreground-color+ :accessor output-fg)

+   (output-background :initform +default-background-color+ :accessor output-bg)))

+

+(defvar *editor-tool* (make-instance 'editor-panes-theme))

+(defvar *listener-tool* (make-instance 'listener-panes-theme))

+(defvar *all-tools* (make-instance 'general-panes-theme))

+

+(defun all-color-themes ()

+  (maphash #'(lambda (key value)

+               (declare (ignore value))

+               key)

+           *all-color-themes*))

+

+(defun color-theme-data (theme-name)

+  (multiple-value-bind (data found?)

+      (gethash theme-name *all-color-themes*)

+    (if found?

+        data

+        (error "No color theme named ~s found." theme-name))))

+

+(defun color-theme-super-theme-names (theme-name)

+  (first (color-theme-data theme-name)))

+

+(defun color-theme-args (theme-name)

+  (rest (color-theme-data theme-name)))

+

+

+(defun buffers-color-function (lp symbol state)

+  (declare (ignore lp))

+  (cond ((eq state :normal)

+         (buffers-fg *editor-tool*))

+        ((eq state :selected)

+         (buffers-selected-fg *editor-tool*))))

+        

+(defun update-pane-colors (pane foreground background)

+  (setf (capi:simple-pane-foreground pane) foreground)

+  (setf (capi:simple-pane-background pane) background)

+

+  (when (and (typep pane 'capi:editor-pane)

+             (editor::buffer-font-lock-mode-p (capi:editor-pane-buffer pane)))

+      (gp:invalidate-rectangle pane)))

+

+

+(defgeneric clear-colors (tool)

+  (:documentation "Clear colors for tool keeping other data untouched"))

+

+(defgeneric update (tool)

+  (:documentation "Update tool's colors"))

+

+

+(defmethod clear-colors ((self editor-panes-theme))

+  (with-slots (editor-background editor-foreground) self

+    (setf editor-background +default-background-color+)

+    (setf editor-foreground +default-foreground-color+)))

+

+(defmethod clear-colors ((self listener-panes-theme))

+  (with-slots (listener-background listener-foreground) self

+    (setf listener-background +default-background-color+)

+    (setf listener-foreground +default-foreground-color+)))

+

+(defmethod clear-colors ((self general-panes-theme))

+  (with-slots (output-background output-foreground) self

+    (setf output-background +default-background-color+)

+    (setf output-foreground +default-foreground-color+)))

+

+

+(defmethod update ((self editor-panes-theme))

+  (mapcar #'(lambda (pane)

+              (update-pane-colors pane (fg self) (bg self)))

+          (editor-panes self))

+  (mapcar #'(lambda (pane)

+              (update-pane-colors pane (buffers-fg self) (buffers-bg self)))

+          (buffers-panes self)))

+

+(defmethod update ((self listener-panes-theme))

+  (mapcar #'(lambda (pane)

+              (update-pane-colors pane (fg self) (bg self)))

+          (listener-panes self)))

+

+(defmethod update ((self general-panes-theme))

+  (mapcar #'(lambda (pane)

+              (update-pane-colors pane (output-fg self) (output-bg self)))

+          (output-panes self)))

+

+

+(defun set-color-theme (theme-name)

+  (destructuring-bind (&rest color-theme-args

+                             &key foreground background

+                             listener-foreground

+                             listener-background

+                             output-foreground

+                             output-background

+                             buffers-foreground

+                             buffers-selected-foreground

+                             buffers-background

+                             &allow-other-keys)

+      (color-theme-args theme-name)

+

+    ;; new instances of tools wrappers

+    (clear-colors *editor-tool*)

+    (clear-colors *listener-tool*)

+    (clear-colors *all-tools*)

+    

+    ;; editor foreground and background

+    (when foreground

+      (setf (fg *editor-tool*) foreground))

+    (when background

+      (setf (bg *editor-tool*) background))

+    ;; listener foreground and background, uses

+    ;; the :background and :foreground if not specified

+    (setf (fg *listener-tool*)

+          (or listener-foreground

+              (fg *editor-tool*))

+          (bg *listener-tool*)

+          (or listener-background

+              (bg *editor-tool*)))

+

+    ;; output foreground and background, uses :background and

+    ;; :foreground if not specified

+    (setf (output-fg *all-tools*)

+          (or output-foreground

+              (fg *editor-tool*))

+          (output-bg *all-tools*)

+          (or output-background

+              (bg *editor-tool*)))

+

+    ;; buffers list colors

+    (setf (buffers-fg *editor-tool*)

+          (or buffers-foreground

+              (fg *editor-tool*))

+          (buffers-selected-fg *editor-tool*)

+          (or buffers-selected-foreground

+              (buffers-fg *editor-tool*))

+          (buffers-bg *editor-tool*)

+          (or buffers-background

+              (bg *editor-tool*)))

+

+                                 

+    (dolist (name *editor-face-names*)

+      (let* ((color-theme-args-for-face (getf color-theme-args name))

+             (face-name (intern (string name) '#:editor))

+             (face (editor:make-face face-name :if-exists t)))

+        (apply 'editor:make-face face-name :if-exists :overwrite

+               :documentation (or (getf color-theme-args-for-face :documentation)

+                                  (slot-value face 'documentation))

+               color-theme-args-for-face))))

+  

+  theme-name)

+

+(defun color-theme (theme-name)

+  (mapc 'set-color-theme (color-theme-super-theme-names theme-name))

+  (set-color-theme theme-name)

+  

+  (update *editor-tool*)

+  (update *listener-tool*)

+  (update *all-tools*)

+  

+  theme-name)

+

+(defun define-color-theme (theme-name super-theme-names

+                           &rest color-theme-args &key &allow-other-keys)

+  (unless super-theme-names

+    (setf super-theme-names '("default")))

+  (dolist (super-theme-name super-theme-names)

+    (multiple-value-bind (color-theme-data found?)

+        (gethash super-theme-name *all-color-themes*)

+      (declare (ignore color-theme-data))

+      (unless found?

+        (warn "Inherited color theme ~s not defined." super-theme-name))))

+  

+  (setf (gethash theme-name *all-color-themes*) (list* super-theme-names color-theme-args))

+  

+  theme-name)

+

+(defun remove-color-theme (theme-name)

+  (remhash theme-name *all-color-themes*))

+

+(defun set-editor-pane-colors (pane)

+  (typecase pane

+    (capi:editor-pane

+     (progn

+       (pushnew pane (editor-panes *editor-tool*))

+       (let ((bg-color (bg *editor-tool*))

+             (fg-color (fg *editor-tool*)))

+         (setf (capi:simple-pane-foreground pane) fg-color)

+         (setf (capi:simple-pane-background pane) bg-color))))))

+

+

+(defun set-listener-pane-colors (pane)

+  (typecase pane

+    (capi:editor-pane

+     (progn

+       (pushnew pane (listener-panes *listener-tool*))

+       (let ((bg-color (bg *listener-tool*))

+             (fg-color (fg *listener-tool*)))

+         (setf (capi:simple-pane-foreground pane) fg-color)

+         (setf (capi:simple-pane-background pane) bg-color))))))

+

+

+(defun set-collector-pane-colors (pane)

+  ;;(when (typep (capi:top-level-interface pane) 'lw-tools:listener)

+  (pushnew pane (output-panes *all-tools*))

+  (let ((bg-color (output-bg *all-tools*))

+        (fg-color (output-fg *all-tools*)))

+    (setf (capi:simple-pane-foreground pane) fg-color)

+    (setf (capi:simple-pane-background pane) bg-color)))

+

+(defun set-mulitcolumn-list-panel-colors (pane)

+  (when (or (eq (capi:capi-object-name pane) 'lw-tools::buffers-list)

+            (eq (capi:capi-object-name pane) 'lispworks-tools::narrow-buffers-list))

+    (pushnew pane (buffers-panes *editor-tool*))

+    (when (eq (capi:capi-object-name pane) 'lispworks-tools::narrow-buffers-list)

+      (setf (slot-value pane 'capi::color-function) #'buffers-color-function))

+    (update-pane-colors pane (buffers-fg *editor-tool*) (buffers-bg *editor-tool*))))

+

+

+(lispworks:defadvice ((method capi:interface-display :before (lw-tools:editor))

+                      change-editor-colors

+                      :before

+                      :documentation "Change editor colors.")

+    (interface)

+  (capi:map-pane-descendant-children interface 'set-editor-pane-colors))

+

+

+;; we don't have defined capi:interface-display for lw-tools::listener,

+;; so nothing to advice. Instead we need to define our own

+(sys::without-warning-on-redefinition

+  (defmethod capi:interface-display :before ((self lw-tools::listener))

+    (capi:map-pane-descendant-children

+     self 'set-listener-pane-colors)))

+

+;; capi:collector-pane does'nt have interface-display method called,

+;; so we adding the :after constuctor instead

+(sys::without-warning-on-redefinition

+  (defmethod initialize-instance :after ((self capi:collector-pane) &rest

+                                         clos::initargs &key &allow-other-keys)

+    (set-collector-pane-colors self)))

+

+(lispworks:defadvice ((method initialize-instance :after (capi:multi-column-list-panel))

+                      change-multicolumn-colors

+                      :after

+                      :documentation "Change capi:multi-column-list-panel colors")

+    (self &rest initargs &key &allow-other-keys)

+  (declare (ignore initargs))

+  (set-mulitcolumn-list-panel-colors self))

+

+

+

+;; This makes it "work" after the podium is launched

+(defun is-editor-pane-p (obj)

+  (and (typep obj 'capi:editor-pane)

+       (not (eq obj (hcl:class-prototype (class-of obj))))))

+

+(defun cache-existing-pane (pane)

+  (pushnew pane (editor-panes *editor-tool*)))

+

+(defun cache-if-pane (obj)

+  (when (is-editor-pane-p obj)

+    (cache-existing-pane obj)))

+

+#+:lispworks-personal-edition

+(hcl:sweep-all-objects #'cache-if-pane)

+

+

+;;; Initial color themes

+

+(define-color-theme "default" ()

+  :foreground nil

+  :background nil

+  :region '(:foreground :color_highlighttext

+            :background :color_highlight)

+  :show-point-face '(:background :green)

+  :interactive-input-face '(:foreground :red3)

+  :highlight '(:bold-p t)

+  :non-focus-complete-face '(:background :tweak_background)

+  :font-lock-function-name-face '(:foreground :blue)

+  :font-lock-comment-face '(:foreground :firebrick)

+  :font-lock-type-face '(:foreground :forestgreen)

+  :font-lock-variable-name-face '(:foreground :darkgoldenrod)

+  :font-lock-string-face '(:foreground :rosybrown)

+  :font-lock-keyword-face '(:foreground :purple)

+  :font-lock-builtin-face '(:foreground :orchid)

+  :compiler-note-highlight '(:foreground :magenta)

+  :compiler-warning-highlight '(:foreground :orange3)

+  :compiler-error-highlight '(:foreground :red)

+  :incremental-search-face '(:background :tweak_background)

+  :incremental-search-other-matches-face '(:underline-p t))

+

+(define-color-theme "plain" ()

+  :foreground nil :background nil

+  :region '(:foreground :color_highlighttext

+            :background :color_highlight)

+  :show-point-face '()

+  :interactive-input-face '()

+  :highlight '(:bold-p t)

+  :non-focus-complete-face '(:background :tweak_background)

+  :font-lock-function-name-face '()

+  :font-lock-comment-face '()

+  :font-lock-type-face '()

+  :font-lock-variable-name-face '()

+  :font-lock-string-face '()

+  :font-lock-keyword-face '()

+  :font-lock-builtin-face '()

+  :compiler-note-highlight '()

+  :compiler-warning-highlight '()

+  :compiler-error-highlight '()

+  :incremental-search-face '(:background :tweak_background)

+  :incremental-search-other-matches-face '(:underline-p t))

+

+

+(define-color-theme "emacs" ()

+  ;; :foreground nil :background nil

+  :region '(:foreground :color_highlighttext

+            :background :color_highlight)

+  :show-point-face '(:background :green)

+  :interactive-input-face '(:foreground :red3)

+  :highlight '(:bold-p t)

+  :non-focus-complete-face '(:background :tweak_background)

+  :font-lock-function-name-face '(:foreground :blue)

+  :font-lock-comment-face '(:foreground :gray40)

+  :font-lock-type-face '(:foreground :forestgreen)

+  :font-lock-variable-name-face '(:foreground :darkgoldenrod)

+  :font-lock-string-face '(:foreground :rosybrown)

+  :font-lock-keyword-face '(:foreground :purple)

+  :font-lock-builtin-face '(:foreground :orchid)

+  :compiler-note-highlight '(:foreground :magenta)

+  :compiler-warning-highlight '(:foreground :orange3)

+  :compiler-error-highlight '(:foreground :red)

+  :incremental-search-face '(:background :tweak_background)

+  :incremental-search-other-matches-face '(:underline-p t))

+

+

+(define-color-theme "torte" ()

+  :foreground (color:make-rgb 0.8s0 0.8s0 0.8s0)

+  :background (color:make-rgb 0.0s0 0.0s0 0.0s0)

+  :region '(:foreground :color_highlighttext

+            :background :color_highlight)

+  :show-point-face `(:background ,(color:make-rgb 0.6275s0 0.1255s0 0.9412s0))

+  :interactive-input-face '(:foreground :pink)

+  :highlight '(:bold-p t)

+  :non-focus-complete-face '(:background :tweak_background)

+  :font-lock-function-name-face `(:foreground ,(color:make-rgb 0.0s0 1.0s0 1.0s0))

+  :font-lock-comment-face `(:foreground ,(color:make-rgb 0.5s0 0.6275s0 1.0s0))

+  :font-lock-type-face `(:foreground ,(color:make-rgb 0.5s0 1.0s0 0.5s0))

+  :font-lock-variable-name-face `(:foreground ,(color:make-rgb 1.0s0 1.0s0 1.0s0))

+  :font-lock-string-face `(:foreground ,(color:make-rgb 1.0s0 0.6275s0 0.6275s0))

+  :font-lock-keyword-face `(:foreground ,(color:make-rgb 1.0s0 1.0s0 0.0s0))

+  :font-lock-builtin-face `(:foreground ,(color:make-rgb 1.0s0 1.0s0 0.0s0))

+  :compiler-note-highlight '(:foreground :magenta)

+  :compiler-warning-highlight '(:foreground :orange)

+  :compiler-error-highlight '(:foreground :red)

+  :incremental-search-face '(:background :tweak_background)

+  :incremental-search-other-matches-face '(:underline-p t))

+

+

+(defun make-rgb (red green blue &optional alpha)

+  (color:make-rgb (/ red 255s0)

+                  (/ green 255s0)

+                  (/ blue 255s0)

+                  (and alpha (/ alpha 255s0))))

+

+(defvar *solarized-color-table*

+  '(:solarized-base03  (#x00 #x2b #x36)

+    :solarized-base02  (#x07 #x36 #x42)

+    :solarized-base01  (#x58 #x6e #x75)

+    :solarized-base00  (#x65 #x7b #x83)

+    :solarized-base0   (#x83 #x94 #x96)

+    :solarized-base1   (#x93 #xa1 #xa1)

+    :solarized-base2   (#xee #xe8 #xd5)

+    :solarized-base3   (#xfd #xf6 #xe3)

+    :solarized-yellow  (#xb5 #x89 #x00)

+    :solarized-orange  (#xcb #x4b #x16)

+    :solarized-red     (#xdc #x32 #x2f)

+    :solarized-magenta (#xd3 #x36 #x82)

+    :solarized-violet  (#x6c #x71 #xc4)

+    :solarized-blue    (#x26 #x8b #xd2)

+    :solarized-cyan    (#x2a #xa1 #x98)

+    :solarized-green   (#x85 #x99 #x00)))

+

+(loop for list on *solarized-color-table* by #'cddr

+      for name = (first list)

+      for rgb = (second list)

+      do

+      (color:define-color-alias

+       name

+       (apply #'make-rgb rgb)))

+

+(define-color-theme "solarized-light" ()

+  :foreground :solarized-base00

+  :background :solarized-base3

+  :region '(:foreground :solarized-base1

+            :background :solarized-base3

+            :inverse-p t)

+  :highlight '(:background :solarized-base2)

+  :font-lock-function-name-face '(:foreground :solarized-blue)

+  :font-lock-comment-face '(:foreground :solarized-base1 :italic-p t)

+  :font-lock-type-face '(:foreground :solarized-yellow)

+  :font-lock-variable-name-face '(:foreground :solarized-blue)

+  :font-lock-string-face '(:foreground :solarized-cyan)

+  :font-lock-keyword-face '(:foreground :solarized-green)

+  :font-lock-builtin-face '(:foreground :solarized-green)

+  :compiler-note-highlight '(:foreground :solarized-green

+                             :bold-p t)

+  :compiler-warning-highlight '(:foreground :solarized-orange

+                                :bold-p t)

+  :compiler-error-highlight '(:foreground :solarized-red

+                              :inverse-p t)

+  :show-point-face '(:foreground :solarized-cyan

+                     :bold-p t :inverse-p t)

+  :interactive-input-face '(:foreground :solarized-red)

+  :non-focus-complete-face '(:background :solarized-base3)

+  :parenthesis-font-face-colours '(:solarized-red

+                                   :solarized-base01

+                                   :solarized-green

+                                   :solarized-orange

+                                   :solarized-blue

+                                   :solarized-magenta))

+

+(define-color-theme "solarized-dark" ()

+  :foreground :solarized-base0

+  :background :solarized-base03

+  :region '(:foreground :solarized-base01

+            :background :solarized-base03

+            :inverse-p t)  

+  :highlight '(:background :solarized-base02)

+  :font-lock-function-name-face '(:foreground :solarized-blue)

+  :font-lock-comment-face '(:foreground :solarized-base01 :italic-p t)

+  :font-lock-type-face '(:foreground :solarized-yellow)

+  :font-lock-variable-name-face '(:foreground :solarized-blue)

+  :font-lock-string-face '(:foreground :solarized-cyan)

+  :font-lock-keyword-face '(:foreground :solarized-green)

+  :font-lock-builtin-face '(:foreground :solarized-green)

+  :compiler-note-highlight '(:foreground :solarized-green

+                             :bold-p t)

+  :compiler-warning-highlight '(:foreground :solarized-orange

+                                :bold-p t)

+  :compiler-error-highlight '(:foreground :solarized-red

+                              :inverse-p t)

+  :show-point-face '(:foreground :solarized-cyan

+                     :bold-p t :inverse-p t)

+  :interactive-input-face '(:foreground :solarized-red)

+  :non-focus-complete-face '(:background :solarized-base03)

+  :parenthesis-font-face-colours '(:solarized-red

+                                   :solarized-base1

+                                   :solarized-green

+                                   :solarized-orange

+                                   :solarized-blue

+                                   :solarized-magenta))

+

+;;; Show presence when loaded

+(pushnew :editor-color-theme *features*)

new file mode 100644

@@ -0,0 +1,18 @@

+(defun load-init-file (filename &optional (conf-dir ".lispworks.d"))

+  (load (merge-pathnames

+         (make-pathname :directory `(:relative ,conf-dir)

+                        :name filename)

+         (user-homedir-pathname))))

+

+(change-directory (user-homedir-pathname))

+

+(load-init-file "editor-color-theme")

+

+(editor-color-theme:color-theme "solarized-dark")

+

+(setf (editor:variable-value "Input Format Default")

+      :default)

+(setf (editor:variable-value "Output Format Default")

+      '(:utf-8 :eol-style :lf))

+

+(load "~/quicklisp/setup.lisp")

@@ -1 +1,2 @@

 *.local.*

+02-cj-profile.zsh

new file mode 100644

@@ -0,0 +1,7 @@

+    function nametab {

+      printf "\e]1;$1\a"

+    }

+

+    function namewin {

+      printf "\e]2;$1\a"

+    }

new file mode 100644

@@ -0,0 +1,134 @@

+if [[ -o interactive ]]; then

+  if [ "$TERM" != "screen" -a "$ITERM_SHELL_INTEGRATION_INSTALLED" = "" ]; then

+    ITERM_SHELL_INTEGRATION_INSTALLED=Yes

+    ITERM2_SHOULD_DECORATE_PROMPT="1"

+    # Indicates start of command output. Runs just before command executes.

+    iterm2_before_cmd_executes() {

+      printf "\033]133;C;\007"

+    }

+

+    iterm2_set_user_var() {

+      printf "\033]1337;SetUserVar=%s=%s\007" "$1" $(printf "%s" "$2" | base64 | tr -d '\n')

+    }

+

+    # Users can write their own version of this method. It should call

+    # iterm2_set_user_var but not produce any other output.

+    # e.g., iterm2_set_user_var currentDirectory $PWD

+    # Accessible in iTerm2 (in a badge now, elsewhere in the future) as

+    # \(user.currentDirectory).

+    whence -v iterm2_print_user_vars > /dev/null 2>&1

+    if [ $? -ne 0 ]; then

+      iterm2_print_user_vars() {

+      }

+    fi

+

+    iterm2_print_state_data() {

+      printf "\033]1337;RemoteHost=%s@%s\007" "$USER" "$iterm2_hostname"

+      printf "\033]1337;CurrentDir=%s\007" "$PWD"

+      iterm2_print_user_vars

+    }

+

+    # Report return code of command; runs after command finishes but before prompt

+    iterm2_after_cmd_executes() {

+      printf "\033]133;D;%s\007" "$STATUS"

+      iterm2_print_state_data

+    }

+

+    # Mark start of prompt

+    iterm2_prompt_mark() {

+      printf "\033]133;A\007"

+    }

+

+    # Mark end of prompt

+    iterm2_prompt_end() {

+      printf "\033]133;B\007"

+    }

+

+    # There are three possible paths in life.

+    #

+    # 1) A command is entered at the prompt and you press return.

+    #    The following steps happen:

+    #    * iterm2_preexec is invoked

+    #      * PS1 is set to ITERM2_PRECMD_PS1

+    #      * ITERM2_SHOULD_DECORATE_PROMPT is set to 1

+    #    * The command executes (possibly reading or modifying PS1)

+    #    * iterm2_precmd is invoked

+    #      * ITERM2_PRECMD_PS1 is set to PS1 (as modified by command execution)

+    #      * PS1 gets our escape sequences added to it

+    #    * zsh displays your prompt

+    #    * You start entering a command

+    #

+    # 2) You press ^C while entering a command at the prompt.

+    #    The following steps happen:

+    #    * (iterm2_preexec is NOT invoked)

+    #    * iterm2_precmd is invoked

+    #      * iterm2_before_cmd_executes is called since we detected that iterm2_preexec was not run

+    #      * (ITERM2_PRECMD_PS1 and PS1 are not messed with, since PS1 already has our escape

+    #        sequences and ITERM2_PRECMD_PS1 already has PS1's original value)

+    #    * zsh displays your prompt

+    #    * You start entering a command

+    #

+    # 3) A new shell is born.

+    #    * PS1 has some initial value, either zsh's default or a value set before this script is sourced.

+    #    * iterm2_precmd is invoked

+    #      * ITERM2_SHOULD_DECORATE_PROMPT is initialized to 1

+    #      * ITERM2_PRECMD_PS1 is set to the initial value of PS1

+    #      * PS1 gets our escape sequences added to it

+    #    * Your prompt is shown and you may begin entering a command.

+    #

+    # Invariants:

+    # * ITERM2_SHOULD_DECORATE_PROMPT is 1 during and just after command execution, and "" while the prompt is

+    #   shown and until you enter a command and press return.

+    # * PS1 does not have our escape sequences during command execution

+    # * After the command executes but before a new one begins, PS1 has escape sequences and

+    #   ITERM2_PRECMD_PS1 has PS1's original value.

+    iterm2_decorate_prompt() {

+      # This should be a raw PS1 without iTerm2's stuff. It could be changed during command

+      # execution.

+      ITERM2_PRECMD_PS1="$PS1"

+      ITERM2_SHOULD_DECORATE_PROMPT=""

+

+      # Add our escape sequences just before the prompt is shown.

+      if [[ $PS1 == *'$(iterm2_prompt_mark)'* ]]

+      then

+        PS1="$PS1%{$(iterm2_prompt_end)%}"

+      else

+        PS1="%{$(iterm2_prompt_mark)%}$PS1%{$(iterm2_prompt_end)%}"

+      fi

+    }

+

+    iterm2_precmd() {

+      local STATUS="$?"

+      if [ -z "$ITERM2_SHOULD_DECORATE_PROMPT" ]; then

+        # You pressed ^C while entering a command (iterm2_preexec did not run)

+        iterm2_before_cmd_executes

+      fi

+

+      iterm2_after_cmd_executes "$STATUS"

+

+      if [ -n "$ITERM2_SHOULD_DECORATE_PROMPT" ]; then

+        iterm2_decorate_prompt

+      fi

+    }

+

+    # This is not run if you press ^C while entering a command.

+    iterm2_preexec() {

+      # Set PS1 back to its raw value prior to executing the command.

+      PS1="$ITERM2_PRECMD_PS1"

+      ITERM2_SHOULD_DECORATE_PROMPT="1"

+      iterm2_before_cmd_executes

+    }

+

+    # If hostname -f is slow on your system, set iterm2_hostname prior to sourcing this script.

+    [[ -z "$iterm2_hostname" ]] && iterm2_hostname=`hostname -f`

+

+    [[ -z $precmd_functions ]] && precmd_functions=()

+    precmd_functions=($precmd_functions iterm2_precmd)

+

+    [[ -z $preexec_functions ]] && preexec_functions=()

+    preexec_functions=($preexec_functions iterm2_preexec)

+

+    iterm2_print_state_data

+    printf "\033]1337;ShellIntegrationVersion=5;shell=zsh\007"

+  fi

+fi

new file mode 100644

@@ -0,0 +1 @@

+export PATH=$PATH:/Users/elangley/Library/Python/2.7/bin

new file mode 100644

@@ -0,0 +1,50 @@

+add_exe_path() {

+  export PATH="$PATH:$1"

+}

+

+push_exe_path() {

+  export PATH="$PATH:$1"

+}

+

+prepend_exe_path() {

+  export PATH="$1:$PATH"

+}

+

+mkcd() {

+  mkdir "$@"

+  cd "$1"

+}

+

+dupfind() {

+  local parallel

+  parallel="$(command -v parallel)"

+  parallel="${parallel:-$(command -v xargs)}"

+

+  local dir

+  dir="${1:-.}"

+  find "$dir" \( \( -name .git -o -name CVS \) -prune \) -o  \( -type f \) -print0  |

+    $parallel -0 shasum |

+    sort |

+    ${GNU_PREFIX}uniq -w 20 -c |

+    sort -nr

+}

+

+is-function () {

+  whence -w $1 | grep -I function > /dev/null

+}

+

+is-alias () {

+  whence -w $1 | grep -I alias > /dev/null

+}

+

+expand-alias () {

+  local POSSIBLE_ALIAS

+  if [[ ! -z "$1" ]]; then

+    POSSIBLE_ALIAS="$(alias $1)"

+    if [[ ! -z "$POSSIBLE_ALIAS" ]]; then

+      echo "${POSSIBLE_ALIAS#*=}"

+    else

+      echo "$1"

+    fi

+  fi

+}

new file mode 100644

new file mode 100644

@@ -0,0 +1,3 @@

+export HELPDIR="$HOME/.zsh_help"

+unalias run-help

+bindkey -v '^_' run-help

new file mode 100644

@@ -0,0 +1,2 @@

+export JAVA_HOME="`/usr/libexec/java_home`"

+prepend_exe_path "$JAVA_HOME/bin"

new file mode 100644

@@ -0,0 +1 @@

+add_exe_path "$HOME/pfff/bin"

new file mode 100644

@@ -0,0 +1,53 @@

+alias ..python="PYTHONPATH=.. python"

+alias .python="PYTHONPATH=. python"

+

+activate_env() {

+  venv=.

+  if [[ -e bin/activate ]]; then

+    echo "sourcing local env: `pwd`/bin/activate"

+  elif [[ -e venv/bin/activate ]]; then

+    echo "sourcing local env: `pwd`/venv/bin/activate"

+    venv=venv

+  else

+    env=$1

+    pushd $HOME/python_envs/ > /dev/null

+    venv="$PWD/$env"

+    popd

+

+    if [[ $env == "" ]]; then

+      counter=1

+      typeset -A choices

+      unset choice

+      for x in `ls "$venv"`; do

+        echo $counter\) `basename $x`

+        choices[$counter]=$x

+        (( counter++ ))

+      done

+      echo -n "your choice? "

+      choice=-1

+      read choice

+      if [[ $choice == "" ]]; then

+        return

+      fi

+      venv="$venv/$choices[$choice]"

+      echo "you chose $venv"

+    fi

+  fi

+  source "$venv/bin/activate"

+  unset venv env;

+}

+alias ae=activate_env

+

+psc() {

+  python -u -c "from __future__ import print_function; import sys;$1"

+}

+

+new_virtual_env() {

+  virtualenv -p "python$2" --no-site-packages "$HOME/python_envs/$1"

+  pushd "$HOME/python_envs/$1"

+}

+alias ne=new_virtual_env

+

+ge() {

+  cd "$VIRTUAL_ENV"