initial commit

.bashrc

@@ -0,0 +1,17 @@
+#!/bin/bash 
+export HISTCONTROL=ignoredups
+
+# the following two lines makes the bash ignore the windows returns \r
+# to avoid errors like line : $'\r': command not found
+export SHELLOPTS
+set -o igncr
+
+function p4 {
+    export PWD=`cygpath -wa .`
+    /cygdrive/c/Program\ Files\ \(x86\)/Perforce/p4.exe $@
+    # /cygdrive/c/Program\ Files/Perforce/p4.exe $@
+}
+
+PS1='$PWD>'
+
+

.gitattributes

@@ -0,0 +1,22 @@
+# Auto detect text files and perform LF normalization
+* text=auto
+
+# Custom for Visual Studio
+*.cs     diff=csharp
+*.sln    merge=union
+*.csproj merge=union
+*.vbproj merge=union
+*.fsproj merge=union
+*.dbproj merge=union
+
+# Standard to msysgit
+*.doc	 diff=astextplain
+*.DOC	 diff=astextplain
+*.docx diff=astextplain
+*.DOCX diff=astextplain
+*.dot  diff=astextplain
+*.DOT  diff=astextplain
+*.pdf  diff=astextplain
+*.PDF	 diff=astextplain
+*.rtf	 diff=astextplain
+*.RTF	 diff=astextplain

.gitignore

@@ -0,0 +1,37 @@
+nagra-specific.el
+# Windows image file caches
+Thumbs.db
+ehthumbs.db
+
+# Folder config file
+Desktop.ini
+
+# Recycle Bin used on file shares
+$RECYCLE.BIN/
+
+# Windows Installer files
+*.cab
+*.msi
+*.msm
+*.msp
+
+# =========================
+# Operating System Files
+# =========================
+
+# OSX
+# =========================
+
+.DS_Store
+.AppleDouble
+.LSOverride
+
+# Icon must ends with two \r.
+Icon
+
+# Thumbnails
+._*
+
+# Files that might appear on external disk
+.Spotlight-V100
+.Trashes

addons/LRU-yank.el

@@ -0,0 +1,131 @@
+;;; LRU-yank.el ---
+
+;; Copyright 2006 Le Wang
+;;
+;; Author: lewang@yahoo.com
+;; Version: $Id: LRU-yank.el,v 0.0 2006/07/08 07:35:50 l26wang Exp $
+;; Keywords: convenience editing
+;; X-URL: not distributed yet
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program; if not, write to the Free Software
+;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Commentary:
+
+;; Implements LRU (Least Recently Used) stacking for kill-ring.
+;;
+;; By default Emacs treats the kill-ring as a "ring", I find it more useful
+;; to move each yanked item to the top of a stack instead.  This way
+;; recently used (inserted) stuff are always at the top -- think alt-tab in
+;; Windows.
+;;
+;;
+;; Installation:
+;;
+;;   Put this file into your load-path and the following into your
+;;   ~/.emacs:
+;;
+;;   (require 'LRU-yank)
+;;   (setq LRU-yank-mode t)
+;;
+;;
+;; Related packages:
+;;
+;;  `buffer-stack'
+;;  `bubble'
+;;
+
+
+;;; Code:
+
+(provide 'LRU-yank)
+(eval-when-compile
+  (require 'cl))
+
+(provide 'LRU-yank)
+
+(defcustom LRU-yank-mode nil
+  "*Non-nil means use use LRU order when yanking."
+  :type 'boolean
+  :group 'killing)
+
+(defvar LRU-yank-count nil)
+(defvar LRU-yank-count-prev nil)
+
+(defun list-reorder (list i j)
+  "move j_th elt of list to the i_th position, use i=0 for head.
+
+return the new list."
+
+  (let (i-after-list
+        j-after-list
+        j-element)
+    (setq j-element (nthcdr j list)
+          j-after-list (cdr j-element))
+
+    (if (= j 0)
+        (setq list (cdr list))
+      (setcdr (nthcdr (- j 1) list) j-after-list))
+
+    (setcdr j-element nil)
+
+    ;; list ---- j-after-list --- nil
+
+    (if (= i 0)
+        (nconc j-element list)
+      (setq i-after-list (nthcdr i list))
+      (setcdr (nthcdr (- i 1) list) j-element)
+      (nconc list i-after-list))))
+
+(defadvice current-kill (around LRU-yank activate compile)
+  "kill-ring stacking hook"
+  (when (not (eq last-command 'yank))
+    (setq LRU-yank-count 0)
+    (setq LRU-yank-count-prev 0))
+
+  (if (or (not LRU-yank-mode)
+          (and (not (eq last-command 'yank))
+               (or (and (= (ad-get-arg 0) 0)
+                        interprogram-paste-function
+                        (funcall interprogram-paste-function))
+                   (not kill-ring)      ; empty kill-ring
+                   )))
+      ad-do-it
+    (setq LRU-yank-count (+ LRU-yank-count (ad-get-arg 0)))
+    (let ((n (mod LRU-yank-count
+                  (length kill-ring)))
+          (n-prev (mod LRU-yank-count-prev
+                       (length kill-ring))))
+      (when (not (= LRU-yank-count 0))
+        (if (= n 0)
+            (setq kill-ring (list-reorder kill-ring
+                                          (- (length kill-ring)
+                                             1)
+                                          0))
+          (setq kill-ring (list-reorder kill-ring n-prev 0)
+                kill-ring (list-reorder kill-ring 0 n))))
+      (setq kill-ring-yank-pointer kill-ring)
+      (setq LRU-yank-count-prev LRU-yank-count)
+      (setq ad-return-value (car kill-ring)))))
+
+
+;;;;##########################################################################
+;;;;  User Options, Variables
+;;;;##########################################################################
+
+
+
+
+
+;;; LRU-yank.el ends here