summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLuke Shumaker <lukeshu@sbcglobal.net>2015-01-14 01:32:00 -0500
committerLuke Shumaker <lukeshu@sbcglobal.net>2015-01-14 01:32:00 -0500
commit16a5b1c177ea744139fc1cd7066941ed646c61e6 (patch)
tree12da80e7b6cd6f662da98f8ef01ecda8eeb67f8c
parentb64b7f39f869c3ea20e66bf82617b6e4cc26ff44 (diff)
These changes were sitting herethinkpenguin-par/master
Diffstat
-rw-r--r--.config/X11/modmap2
-rw-r--r--.config/cron/alarm14
-rw-r--r--.config/cron/offlineimap2
-rw-r--r--.config/emacs/bison-mode.el989
-rw-r--r--.config/emacs/games/snake-scores2
-rw-r--r--.config/emacs/games/tetris-scores117
-rw-r--r--.config/emacs/init.el2
-rw-r--r--.config/emacs/tetris.el641
-rw-r--r--.config/gtk-3.0/bookmarks1
-rw-r--r--.config/okular/.gitignore1
-rw-r--r--.config/ssh/known_hosts32
11 files changed, 1786 insertions, 17 deletions
diff --git a/.config/X11/modmap b/.config/X11/modmap
index 1736e09..7c4699f 100644
--- a/.config/X11/modmap
+++ b/.config/X11/modmap
@@ -7,6 +7,8 @@ keysym Caps_Lock = Super_L Multi_key
clear mod4
add mod4 = Super_L Super_R Hyper_L Hyper_R Menu
+! Make page down be dead greek
+keysym Next = dead_greek NoSymbol Next
! Note to future me:
! The modifiers are: << Shift, Lock, Control, Mod{1..5} >> and are NOT case sensitive
diff --git a/.config/cron/alarm b/.config/cron/alarm
new file mode 100644
index 0000000..a08434f
--- /dev/null
+++ b/.config/cron/alarm
@@ -0,0 +1,14 @@
+# m h dom mon dow command
+#0 9 * * * cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+#30 8 * * * cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+#25 1 * * * cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+
+# 6:30 MWF
+30 6 * * 1 cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+30 6 * * 3 cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+30 6 * * 5 cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+# 7:00 TR
+0 7 * * 2 cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+0 7 * * 4 cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done'
+
+30 7 * * 3 cronic bash -c 'while true; do /home/luke/.local/bin/state-the-time; sleep .5; done' \ No newline at end of file
diff --git a/.config/cron/offlineimap b/.config/cron/offlineimap
index 9de9de1..76e1537 100644
--- a/.config/cron/offlineimap
+++ b/.config/cron/offlineimap
@@ -1,2 +1,2 @@
# m h dom mon dow command
-*/5 * * * * offlineimap-runner 2 -u quiet
+*/5 * * * * offlineimap -u quiet
diff --git a/.config/emacs/bison-mode.el b/.config/emacs/bison-mode.el
new file mode 100644
index 0000000..5f99106
--- /dev/null
+++ b/.config/emacs/bison-mode.el
@@ -0,0 +1,989 @@
+; -*- Mode: Emacs-Lisp; -*-
+
+;;;; bison-mode.el --- Major mode for editing bison/yacc files
+;;;; Copyright (C) 1998 Eric Beuscher
+
+;; Author: Eric Beuscher <beuscher@eecs.tulane.edu>
+;; Created: 2 Feb 1998
+;; Version: .1 (why not start somewhere besides 1.)
+;; Keywords: bison-mode, yacc-mode
+
+;; 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 of the License, 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.
+
+;;;;Commentary
+
+;;;; I wrote this since I saw one mode for yacc files out there roaming the
+;;;; world. I was daunted by the fact the it was written in 1990, and emacs
+;;;; has evolved so much since then (this I assume based on its evolution since
+;;;; i started using it). So I figured if i wanted one, I should make it
+;;;; myself. Please excuse idiosyncrasies, as this was my first major mode
+;;;; of this kind. The indentation code may be a bit weird, I am not sure,
+;;;; it was my first go at doing emacs indentation, so I look at how other
+;;;; modes did it, but then basically did what I thought was right
+
+;;;; I hope this is useful to other hackers, and happy Bison/Yacc hacking
+;;;; If you have ideas/suggestions/problems with this code, I can be reached at
+;;;; beuscher@eecs.tulane.edu
+
+;;;; Eric --- Sat Mar 7 1:40:20 CDT 1998
+
+
+;;;; Bison Sections:
+;;;; there are five sections to a bison file (if you include the area above the
+;;;; C declarations section. most everything in this file either does
+;;;; actions based on which section you are deemed to be in, or based on an
+;;;; assumption that the function will only be called from certain sections.
+;;;; the function `bison--section-p' is the section parser
+
+;;;; Indentation:
+;;;; indentations are done based on the section of code you are in. there is
+;;;; a procedure `bison--within-braced-c-expression-p' that checks for being in
+;;;; C code. if you are within c-code, indentations should occur based on
+;;;; how you have your C indentation set up. i am pretty sure this is the
+;;;; case.
+;;;; there are four variables, which control bison indentation within either
+;;;; the bison declarations section or the bison grammar section
+;;;; `bison-rule-separator-column'
+;;;; `bison-rule-separator-column'
+;;;; `bison-decl-type-column'
+;;;; `bison-decl-token-column'
+
+;;;; flaw: indentation works on a per-line basis, unless within braced C sexp,
+;;;; i should fix this someday
+;;;; and to make matters worse, i never took out c-indent-region, so that is
+;;;; still the state of the `indent-region-function' variable
+
+;;;; Electricity:
+;;;; by default, there are electric -colon, -pipe, -open-brace, -close-brace,
+;;;; -semicolon, -percent, -less-than, -greater-than
+;;;; the indentation caused by these work closely with the 4 indentation
+;;;; variables mentioned above.
+;;;; any of these can be turned off individually by setting the appropriate
+;;;; `bison-electric-...' variable. or all of them can be turned off by
+;;;; setting `bison-all-electricity-off'
+
+;;;; todo: should make available a way to use C-electricity if in C sexps
+
+
+;;;; these are the lines i use to set up correct auto-ing
+;;(autoload 'bison-mode "bison-mode.el")
+;;(add-to-set! auto-mode-alist '("\\.y$" . bison-mode))
+
+;;(autoload 'flex-mode "flex-mode")
+;;(add-to-set! auto-mode-alist '("\\.l$" . flex-mode))
+
+
+
+;; *************** dependencies ***************
+
+(require 'derived) ;; define-derived-mode
+;(require 'flex-mode) ;; for flex-mode derivation
+(require 'make-regexp) ;; make-regexp
+
+
+;; *************** internal vars ***************
+
+(defvar bison--declarers '("%union" "%token" "%type"
+ "%left" "%right" "%nonassoc")
+ "commands which can declare a token or state type")
+
+(defvar bison--word-constituent-re "\\(\\sw\\|_\\)")
+(defvar bison--production-re
+ (concat "^" bison--word-constituent-re "+:"))
+
+(defvar bison--pre-c-decls-section 0
+ "section before c-declarations-section, if that section exists")
+(defvar bison--c-decls-section 1
+ "section denoted by %{ and $} for c-declarations at the top of a bison file")
+(defvar bison--bison-decls-section 2
+ "section before the rules section")
+(defvar bison--grammar-rules-section 3
+ "section delimited by %%'s where productions and rules are enumerated")
+(defvar bison--c-code-section 4
+ "section after the second %% where c-code can be placed")
+
+(defvar bison--c-decls-section-opener "%{")
+(defvar bison--c-decls-section-closer "%}")
+(defvar bison--grammar-rules-section-delimeter "%%")
+
+
+;; *************** user-definable vars ***************
+
+(defvar bison-rule-separator-column 8
+ "column for rule and production separators \"|\" and \";\"")
+(defvar bison-rule-enumeration-column 16
+ "column for beginning enumeration of a production's rules")
+(defvar bison-decl-type-column 8
+ "columnn in which tokens' and states' types should be when declared")
+(defvar bison-decl-token-column 24
+ "column in which tokens and states are listed when declared,
+as with %token, %type, ...")
+
+
+(defvar bison-all-electricity-off nil
+ "non-nil means all electric keys will be disabled,
+nil means that a bison-electric-* key will be on or off based on the individual
+key's electric variable")
+
+;;; i know lisp has the dual name spaces, but i find it more aesthetically
+;;; pleasing to not take advantage of that
+(defvar bison-electric-colon-v t
+ "non-nil means use an electric colon")
+(defvar bison-electric-pipe-v t
+ "non-nil means use an electric pipe")
+(defvar bison-electric-open-brace-v t
+ "non-nil means use an electric open-brace")
+(defvar bison-electric-close-brace-v t
+ "non-nil means use an electric close-brace")
+(defvar bison-electric-semicolon-v t
+ "non-nil means use an electric semicolon")
+(defvar bison-electric-percent-v t
+ "non-nil means use an electric percent")
+(defvar bison-electric-less-than-v t
+ "non-nil means use an electric less-than")
+(defvar bison-electric-greater-than-v t
+ "non-nil means use an electric greater-than")
+
+
+(defvar bison-font-lock-keywords-1 c-font-lock-keywords
+ "Basic highlighting for Bison mode.")
+
+(defvar bison-font-lock-keywords-2
+ (append
+ (list
+ (cons (concat "^\\(" (make-regexp bison--declarers) "\\)")
+ '(1 font-lock-keyword-face))
+ )
+ bison-font-lock-keywords-1)
+ "Gaudy highlighting for Bison mode.")
+
+(defvar bison-font-lock-keywords bison-font-lock-keywords-2
+ "Default expressions to highlight in Bison mode")
+
+
+;; *************** utilities ***************
+
+(defun copy-list (ls)
+ "return a new list with the same elements as LS"
+ (cond ((null ls) '())
+ (t (cons (car ls) (copy-list (cdr ls))))))
+
+(defun same-line-p (pt1 pt2 &optional bol eol)
+ (let ((bol (or bol (save-excursion (beginning-of-line) (point))))
+ (eol (or eol (save-excursion (end-of-line) (point)))))
+ (and (<= bol pt1) (<= bol pt2)
+ (>= eol pt1) (>= eol pt2))))
+
+(defun just-no-space ()
+ "Delete all spaces and tabs around point, leaving no spaces."
+ (interactive "*")
+ (skip-chars-backward " \t")
+ (delete-region (point) (progn (skip-chars-forward " \t") (point)))
+ t)
+
+(defun white-space-separation (pt1 pt2)
+ "return t if there is nothing but whitespace between pt1 and pt2 not
+inclusive"
+ (save-excursion
+ (goto-char (+ pt1 1))
+ (not (re-search-forward "[^ \t\n]" pt2 t))))
+
+(defun previous-white-space-p ()
+ "return t if there is whitespace between the beginning of the line and the
+current (point)"
+ (save-excursion
+ (let ((current-point (point)))
+ (beginning-of-line)
+ (if (re-search-forward "\\s " current-point t)
+ t
+ nil))))
+
+(defun previous-non-ws-p ()
+ "return t if there are non-whitespace characters between beginning of line
+and \(point\)"
+ (save-excursion
+ (let ((current-point (point)))
+ (beginning-of-line)
+ (re-search-forward "[^ \t]" current-point t)
+ )))
+
+(defun following-non-ws-p ()
+ "return t if there are non-whitespace characters on the line"
+ (save-excursion
+ (let ((current-point (point)))
+ (end-of-line)
+ (re-search-backward "[^ \t]+" current-point t)
+ )))
+
+(defun line-of-whitespace-p ()
+ "return t if the line consists of nothiing but whitespace, nil otherwise"
+ (save-excursion
+ (let ((eol (progn (end-of-line) (point))))
+ (beginning-of-line) ;; should already be there anyway
+ (not (re-search-forward "[^ \t\n]" eol t)))))
+
+
+(defun goto-next-non-ws ()
+ "goto and return pt of next non-whitespace character")
+
+;; *************** bison-mode ***************
+
+(define-derived-mode bison-mode flex-mode "Bison"
+ "Major mode for editing bison/yacc files
+
+"
+ ;; try to set the indentation correctly
+ (setq-default c-basic-offset 4)
+ (make-variable-buffer-local 'c-basic-offset)
+
+ (c-set-offset 'knr-argdecl-intro 0)
+ (make-variable-buffer-local 'c-offsets-alist)
+
+ ;; remove auto and hungry anything
+ (c-toggle-auto-hungry-state -1)
+ (c-toggle-auto-state -1)
+ (c-toggle-hungry-state -1)
+
+ (use-local-map bison-mode-map)
+
+ (define-key bison-mode-map ":" 'bison-electric-colon)
+ (define-key bison-mode-map "|" 'bison-electric-pipe)
+ (define-key bison-mode-map "{" 'bison-electric-open-brace)
+ (define-key bison-mode-map "}" 'bison-electric-close-brace)
+ (define-key bison-mode-map ";" 'bison-electric-semicolon)
+ (define-key bison-mode-map "%" 'bison-electric-percent)
+ (define-key bison-mode-map "<" 'bison-electric-less-than)
+ (define-key bison-mode-map ">" 'bison-electric-greater-than)
+
+ ;(define-key bison-mode-map [tab] 'bison-indent-command)
+ (define-key bison-mode-map [tab] 'bison-indent-line)
+ ;(define-key bison-mode-map [f10] 'c-indent-command)
+
+ (make-local-variable 'indent-line-function)
+ (setq indent-line-function 'bison-indent-new-line)
+ (make-local-variable 'comment-start)
+ (make-local-variable 'comment-end)
+ (setq comment-start "/*"
+ comment-end "*/")
+ (make-local-variable 'font-lock-keywords)
+ (setq font-lock-keywords nil)
+ (make-local-variable 'font-lock-defaults)
+ (setq font-lock-defaults '((bison-font-lock-keywords
+ bison-font-lock-keywords-1
+ bison-font-lock-keywords-2)
+ nil nil nil))
+
+)
+
+
+;; *************** section parsers ***************
+
+(defun bison--section-p ()
+ "Return the section that user is currently in"
+ (save-excursion
+ (let ((bound (point)))
+ (beginning-of-buffer)
+ (bison--section-p-helper bound))))
+
+(defun bison--section-p-helper (bound)
+ (if (re-search-forward
+ (concat "^" bison--c-decls-section-opener)
+ bound t)
+ (if (re-search-forward
+ (concat "^" bison--c-decls-section-closer)
+ bound t)
+ (if (re-search-forward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ bound t)
+ (if (re-search-forward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ bound t)
+ bison--c-code-section
+ bison--grammar-rules-section)
+ bison--bison-decls-section)
+ bison--c-decls-section)
+ (if (re-search-forward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ bound t)
+ (if (re-search-forward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ bound t)
+ bison--c-code-section
+ bison--grammar-rules-section)
+ (if (re-search-forward
+ (concat "^" bison--c-decls-section-opener)
+ nil t)
+ bison--pre-c-decls-section
+ (if (re-search-forward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ nil t)
+ bison--bison-decls-section
+ bison--pre-c-decls-section)))))
+
+
+;; *************** syntax parsers ***************
+
+(defun bison--production-p ()
+ "return t if the \(point\) rests immediately after a production"
+ (save-excursion
+ (let ((current-point (point)))
+ (beginning-of-line)
+ (let ((position (re-search-forward
+ bison--production-re current-point t)))
+ (and position
+ (not (previous-white-space-p))
+ (= position current-point))))))
+
+(defun bison--find-production-opener ()
+ "return and goto the point of the nearest production opener above \(point\)"
+ (re-search-backward bison--production-re nil t))
+
+
+(defun bison--find-next-production ()
+ "return the position of the beginning of the next production,
+or nil if there isnt one"
+ (save-excursion
+ (if (re-search-forward bison--production-re nil t)
+ (progn
+ (beginning-of-line)
+ (point))
+ nil)))
+
+(defun bison--find-grammar-end ()
+ "return the position of the end of the grammar rules (assuming we are within
+the grammar rules section), or nil if there isnt one"
+ (save-excursion
+ (if (re-search-forward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ nil t)
+ (progn
+ (beginning-of-line)
+ (point))
+ nil)))
+
+(defun bison--find-grammar-begin ()
+ "return the position of the beginning of the grammar rules (assuming we are
+within the grammar rules section), or nil if there isnt one"
+ (save-excursion
+ (if (re-search-backward
+ (concat "^" bison--grammar-rules-section-delimeter)
+ nil t)
+ (point)
+ nil)))
+
+(defun bison--within-started-production-p ()
+ "is used by bison-electric-* functions to determine actions
+return t if within a production, nil if not
+
+a point is within a production if there is some non whitespace text before
+either the beginnings of another production or the end of the grammar rules"
+ (save-excursion
+ (let ((bound (cond ((bison--find-next-production))
+ ((bison--find-grammar-end))
+ (t nil))))
+ (if bound
+ (let ((sval (re-search-forward
+ (concat "\\(\\s \\|" ;; whitespace or
+ ;; comments
+ (regexp-quote comment-start)
+ "\\(.\\|\n\\)*" ;; comment body
+ (regexp-quote comment-end)
+ "\\)+") ;; end or
+ bound t)))
+ (if sval
+ (not (= sval bound))
+ nil))
+ nil))))
+
+(defun bison--within-some-sexp-p (starter ender)
+ "return t if the \(point\) is within the sexp marked by the re's STARTER and
+ENDER"
+ (save-excursion
+ (let ((current-point (point)))
+ (if (re-search-backward starter nil t) ;; find nearest starter
+ ;; look for ender, if found, then not within sexp
+ (progn
+ (goto-char (match-end 0))
+ (not (re-search-forward ender current-point t)))))))
+
+(defun bison--within-c-comment-p ()
+ "return t if the point is within a c comment delimited by \"/*\" \"*/\""
+ (bison--within-some-sexp-p (regexp-quote comment-start)
+ (regexp-quote comment-end)))
+
+
+(defun bison--within-string-p (&optional point)
+ "
+start from the beginning of the buffer and toggle state as un-escaped \"'s are
+found."
+ (let ((point (or point (point)))
+ (in-p nil))
+ (save-excursion
+ (beginning-of-buffer)
+
+ (while (re-search-forward "[^\\]\"" point t)
+ (setq in-p (not in-p)))
+
+ in-p)))
+
+;;; bison--within-braced-c-expression-p
+;;; new and improved, no more recursion, does not break when literal strings
+;;; contain un-matched braces
+(defun bison--within-braced-c-expression-p (section)
+ "return t if the point is within an sexp delimited by braces \({,}\)
+"
+ ;;(debug)
+ (save-excursion
+ (bison--within-braced-c-expression-p-h section (point))))
+
+(defun bison--within-braced-c-expression-p-h (section low-pt)
+ "
+Notes:
+save excursion is done higher up, so i dont concern myself here.
+"
+ (cond ((= section bison--pre-c-decls-section) nil)
+ ((= section bison--c-decls-section)
+ (let ((opener (save-excursion (search-backward "%{"))))
+ (bison--within-braced-c-expression-p-h-h opener low-pt)))
+ ((= section bison--bison-decls-section)
+ (let ((opener (save-excursion
+ (or (search-backward "%}" nil t)
+ (point-min)))))
+ (bison--within-braced-c-expression-p-h-h opener low-pt)))
+ ((= section bison--grammar-rules-section)
+ (let ((opener (save-excursion (bison--find-production-opener))))
+ (if opener
+ (bison--within-braced-c-expression-p-h-h opener low-pt)
+ nil)))
+ ((= section bison--c-code-section)
+ t)
+;; (let ((opener (save-excursion (bison--find-production-opener))))
+;; (if opener
+;; (bison--within-braced-c-expression-p-h-h
+;; opener low-pt 1))))
+ ))
+
+(defun bison--within-braced-c-expression-p-h-h (high-pt low-pt)
+ "
+Notes:
+HIGH-PT goes toward (point-min), LOW-PT goes toward (point-max)
+save excursion is done higher up, so i dont concern myself here.
+"
+ (let ((pt (point)))
+ (let ((success nil) (count 1) (done nil))
+ ;; loop until open brace found, that is not in comment or string literal
+ (while (and (not done)
+ (re-search-backward "[^%]{" high-pt t count)) ;find nearest
+ ;starter
+ (goto-char (match-end 0))
+ (if (or (bison--within-c-comment-p)
+ (bison--within-string-p))
+
+ (setq count (+ count 1))
+ (progn
+ (setq success t)
+ (setq done t))))
+
+ (if success
+ (let ((end-pt
+ (condition-case nil
+ (progn (forward-sexp) (point))
+ (error nil))))
+ (if end-pt
+ (if (> end-pt low-pt)
+ t ; then in braced-c-exp
+ nil)
+ t)) ; if no sexp close brace, then w/in
+ nil))))
+
+
+(defun bison--bison-decl-opener-p (bol eol)
+ "return t if the current line is a bison declaration starter
+\(i.e. has a %type, %token, %right, ...\)"
+ (save-excursion
+ (goto-char bol)
+ (re-search-forward
+ (concat "^" (make-regexp (copy-list bison--declarers))) eol t)))
+
+(defun bison--production-opener-p (bol eol)
+ "return t if the current line is a line that introduces a new production"
+ (save-excursion
+ (goto-char bol)
+ (re-search-forward bison--production-re eol t)))
+
+(defun bison--find-bison-semicolon ()
+ "return the position of next semicolon not within braces, nil otherwise"
+ (save-excursion
+ (if (search-forward ";" nil t)
+ (if (not (bison--within-braced-c-expression-p (bison--section-p)))
+ (point)
+ (bison--find-bison-semicolon))
+ nil)))
+
+(defun bison--within-production-body-p (section)
+ "return t if the \(point\) is within the body of a production
+
+this procedure will fail if it is in a production header"
+ (save-excursion
+ (if (= section bison--grammar-rules-section)
+ (let ((current-point (point)))
+ (if (re-search-backward bison--production-re nil t)
+ t
+ nil))
+ nil)))
+
+(defun bison--production-alternative-p (bol eol section)
+ "return t if the current line contains a \"|\" used to designate a rule
+alternative"
+ (save-excursion
+ (goto-char bol)
+ (if (search-forward "|" eol t)
+ (not (bison--within-braced-c-expression-p section))
+ nil)))
+
+
+;; *************** indent functions ***************
+
+(defun bison--handle-indent-c-sexp (section indent-column bol)
+ (let* ((o-brace (re-search-backward "[^%]{" bol t))
+ )
+ (if o-brace
+ (if (save-excursion
+ (goto-char o-brace)
+ (bison--within-braced-c-expression-p section))
+ (c-indent-line)
+ (if (= (current-indentation) o-brace) ;; if o-brace is first char
+ (if (not (= o-brace indent-column)) ;; but not in right spot
+ (progn
+ (back-to-indentation)
+ (just-no-space)
+ (indent-to-column indent-column))
+ ;; else all is good
+ )
+ ;; else, non-ws before o-brace, leave it alone
+ ))
+ (c-indent-line))))
+
+(defun bison-indent-new-line (&optional c-sexp)
+ "Indent a fresh line of bison code
+
+assumes indenting a new line, i.e. at column 0
+"
+ (interactive)
+
+ ;;(message "indent new line")
+ (let* ((section (bison--section-p))
+ (c-sexp (or c-sexp (bison--within-braced-c-expression-p section)))
+ )
+ (cond
+ (c-sexp
+ (cond
+ ((= section bison--grammar-rules-section)
+ (c-indent-line
+ (save-excursion
+ (forward-line -1)
+ (let ((bol (save-excursion (beginning-of-line) (point)))
+ (eol (save-excursion (end-of-line) (point))))
+ (if (bison--production-opener-p bol eol)
+ (list
+ (cons 'defun-block-intro
+ (progn
+ (re-search-forward bison--production-re) ; SIGERR
+ (- (re-search-forward "[^ \t]") ; SIGERR
+ 1))))
+ nil)))))
+ (t (c-indent-line))))
+ ((= section bison--pre-c-decls-section)
+ (c-indent-line))
+;;; ((= section bison--c-decls-section) ; is on column 0 anyway
+;;; (indent-to-column 0)
+;;; )
+ ((= section bison--bison-decls-section)
+ (indent-to-column bison-decl-token-column))
+ ((= section bison--grammar-rules-section)
+ (indent-to-column
+ (save-excursion
+ (let* ((bound (or (save-excursion (bison--find-production-opener))
+ (bison--find-grammar-begin)))
+ (prev-semi (search-backward ";" bound t))
+ )
+ (if prev-semi
+ (if (bison--within-braced-c-expression-p section) ; CRACK
+ bison-rule-enumeration-column
+ 0)
+ (if (save-excursion (bison--find-production-opener))
+ bison-rule-enumeration-column
+ 0))))))
+ ((= section bison--c-code-section)) ;;leave-alone
+ )))
+
+(defun bison-indent-line ()
+ "Indent a line of bison code
+"
+ (interactive)
+
+ ;;(message "indent-line")
+ (let* ((pos (- (point-max) (point)))
+ (reset-pt (function (lambda ()
+ (if (> (- (point-max) pos) (point))
+ (goto-char (- (point-max) pos))))))
+ (bol (save-excursion (beginning-of-line) (point)))
+ (eol (save-excursion (end-of-line) (point)))
+ )
+ (let* ((section (bison--section-p))
+ (c-sexp (bison--within-braced-c-expression-p section))
+ (ws-line (line-of-whitespace-p))
+ )
+ (cond
+ ;; if you are a line of whitespace, let indent-new-line take care of it
+ (ws-line
+ (bison-indent-new-line c-sexp))
+
+ ((= section bison--pre-c-decls-section)
+ ;; leave things alone
+ )
+
+ ((= section bison--c-decls-section)
+ (if c-sexp
+ (bison--handle-indent-c-sexp section 0 bol)
+ (if (not (= (current-indentation) 0))
+ (progn
+ (back-to-indentation)
+ (just-no-space)
+ (function reset-pt)))))
+
+ ((= section bison--bison-decls-section)
+ (let ((opener (bison--bison-decl-opener-p bol eol)))
+ (cond
+ (opener
+ (goto-char opener)
+ (skip-chars-forward " \t" eol)
+ (if (looking-at "{")
+ (save-excursion
+ (if (following-non-ws-p)
+ (progn
+ (forward-char 1)
+ (just-no-space)
+ (newline)
+ (bison-indent-new-line t))))
+ (let ((complete-type t))
+ (if (looking-at "<")
+ (progn
+ (setq complete-type nil)
+ (if (not (= (current-column) bison-decl-type-column))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-decl-type-column))
+ (and (re-search-forward
+ (concat "<" bison--word-constituent-re "+>")
+ eol t)
+ (setq complete-type t)))))
+ (and complete-type
+ (skip-chars-forward " \t" eol)
+ (looking-at
+ (concat "\\(" bison--word-constituent-re "\\|'\\)"))
+ (if (not (= (current-column) bison-decl-token-column))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-decl-token-column))))))
+ (funcall reset-pt))
+ (c-sexp
+ (bison--handle-indent-c-sexp section 0 bol))
+ (t
+ (back-to-indentation)
+ ;; only tab in names, leave comments alone
+ (cond (;; put word-constiuents in bison-decl-token-column
+ (looking-at bison--word-constituent-re)
+ (if (not (= (current-column) bison-decl-token-column))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-decl-token-column))))
+ ;; put/keep close-brace in the 0 column
+ ((looking-at "}")
+ (if (not (= (current-column) 0))
+ (just-no-space)))
+ ;; leave comments alone
+ ((looking-at (regexp-quote comment-start)) nil)
+ ;; else do nothing
+ )
+ (funcall reset-pt)))))
+ ((= section bison--grammar-rules-section)
+ (cond
+ ((bison--production-opener-p bol eol)
+ (beginning-of-line)
+ (re-search-forward bison--production-re);; SIGERR
+ (if (following-non-ws-p)
+ (if (> (current-column) bison-rule-enumeration-column)
+ (progn
+ (just-no-space)
+ (newline)
+ (indent-to-column bison-rule-enumeration-column))
+ (save-excursion
+ (re-search-forward bison--word-constituent-re);; SIGERR
+ (let ((col (current-column)))
+ (cond ((> col (+ 1 bison-rule-enumeration-column))
+ (forward-char -1)
+ (just-no-space)
+ (indent-to-column bison-rule-enumeration-column))
+ ((< col (+ 1 bison-rule-enumeration-column))
+ (forward-char -1)
+ (indent-to-column
+ bison-rule-enumeration-column)))))))
+ (funcall reset-pt))
+ ((bison--production-alternative-p bol eol section)
+ (back-to-indentation);; should put point on "|"
+ (if (not (= (current-column) bison-rule-separator-column))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-rule-separator-column)))
+ (forward-char 1)
+ (if (following-non-ws-p)
+ (save-excursion
+ (re-search-forward bison--word-constituent-re);; SIGERR
+ (let ((col (current-column)))
+ (cond ((> col (+ 1 bison-rule-enumeration-column))
+ (forward-char -1)
+ (just-no-space)
+ (indent-to-column bison-rule-enumeration-column))
+ ((< col (+ 1 bison-rule-enumeration-column))
+ (forward-char -1)
+ (indent-to-column
+ bison-rule-enumeration-column))))))
+ (funcall reset-pt))
+ (c-sexp
+ (bison--handle-indent-c-sexp
+ section bison-rule-enumeration-column bol)
+ (funcall reset-pt))
+ ((bison--within-production-body-p section)
+ (back-to-indentation)
+ (if (not (= (current-column) bison-rule-enumeration-column))
+ (progn
+ (just-no-space)
+ (indent-to-column
+ bison-rule-enumeration-column)))
+ (funcall reset-pt))
+ (t
+ (let ((cur-ind (current-indentation)))
+ (if (eq (save-excursion (search-backward "}" bol t))
+ cur-ind)
+ (if (not (= cur-ind bison-rule-enumeration-column))
+ (progn
+ (back-to-indentation)
+ (just-no-space)
+ (indent-to-column bison-rule-enumeration-column)
+ (funcall reset-pt)))
+ ;; else leave alone
+ )))))
+ ((= section bison--c-code-section)
+ (c-indent-line))
+ ))))
+
+;; *************** electric-functions ***************
+
+(defun bison-electric-colon (arg)
+ "If the colon <:> delineates a production,
+ then insert a semicolon on the next line in the BISON-RULE-SEPARATOR-COLUMN,
+ put the cursor in the BISON-RULE-ENUMERATION-COLUMN for the beginning
+ of the rule
+ else just run self-insert-command
+A colon delineates a production by the fact that it is immediately preceded by
+a word(alphanumerics or '_''s), and there is no previous white space.
+"
+ (interactive "P")
+
+ (self-insert-command (prefix-numeric-value arg))
+ (if (and bison-electric-colon-v
+ (not bison-all-electricity-off))
+ (if (and (= bison--grammar-rules-section (bison--section-p))
+ (bison--production-p)
+ (not (bison--within-started-production-p)))
+ (progn
+ (save-excursion ; put in a closing semicolon
+ (newline)
+ (indent-to-column bison-rule-separator-column)
+ (insert ";"))
+ (save-excursion ; remove opening whitespace
+ (if (re-search-backward
+ "\\s "
+ (save-excursion (beginning-of-line) (point))
+ t)
+ (just-no-space)))
+ (if (not (< (current-column) bison-rule-enumeration-column))
+ (newline))
+ (indent-to-column bison-rule-enumeration-column)))
+ ))
+
+(defun bison-electric-pipe (arg)
+ "If the pipe <|> is used as a rule separator within a production,
+ then move it into BISON-RULE-SEPARATOR-COLUMN
+ indent to BISON-RULE-ENUMERATION-COLUMN on the same line
+ else just run self-insert-command
+"
+ (interactive "P")
+
+ (if (and bison-electric-pipe-v
+ (not bison-all-electricity-off)
+ (= bison--grammar-rules-section (bison--section-p))
+ (line-of-whitespace-p)
+ )
+ (progn
+ (beginning-of-line)
+ (just-no-space)
+ (indent-to-column bison-rule-separator-column)
+ (self-insert-command (prefix-numeric-value arg))
+ (indent-to-column bison-rule-enumeration-column)
+ )
+ (self-insert-command (prefix-numeric-value arg))))
+
+(defun bison-electric-open-brace (arg)
+ "used for the opening brace of a C action definition for production rules,
+if there is only whitespace before \(point\), then put open-brace in
+bison-rule-enumeration-column"
+ (interactive "P")
+
+ (if (and bison-electric-open-brace-v
+ (not bison-all-electricity-off))
+ (let ((section (bison--section-p)))
+ (cond ((and (= section bison--grammar-rules-section)
+ (not (bison--within-braced-c-expression-p section))
+ (not (previous-non-ws-p)))
+ (if (not (= (current-column) bison-rule-enumeration-column))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-rule-enumeration-column))))
+ ((and (= section bison--bison-decls-section)
+ (not (bison--within-braced-c-expression-p section))
+ (not (previous-non-ws-p)))
+ (if (not (= (current-column) 0))
+ (progn
+ (just-no-space)
+ (indent-to-column 0)))))))
+
+ (self-insert-command (prefix-numeric-value arg)))
+
+
+(defun bison-electric-close-brace (arg)
+ "If the close-brace \"}\" is used as the c-declarations section closer
+in \"%}\", then make sure the \"%}\" indents to the beginning of the line"
+ (interactive "P")
+
+ (self-insert-command (prefix-numeric-value arg))
+
+ (if (and bison-electric-close-brace-v
+ (not bison-all-electricity-off))
+ (cond ((search-backward "%}" (- (point) 2) t)
+ (if (= (bison--section-p) bison--c-decls-section)
+ (progn
+ (just-no-space)
+ (forward-char 2)) ; for "%}"
+ (forward-char 1)))
+ )))
+
+(defun bison-electric-semicolon (arg)
+ "if the semicolon is used to end a production, then place it in
+bison-rule-separator-column
+
+a semicolon is deemed to be used for ending a production if it is not found
+within braces
+
+this is just self-insert-command as i have yet to write the actual
+bison-electric-semicolon function yet
+"
+ (interactive "P")
+
+ (self-insert-command (prefix-numeric-value arg)))
+
+(defun bison-electric-percent (arg)
+ "if the percent is a declarer in the bison declaration's section,
+then put it in the 0 column
+"
+ (interactive "P")
+
+ (if (and bison-electric-percent-v
+ (not bison-all-electricity-off))
+ (let ((section (bison--section-p)))
+ (if (and (= section bison--bison-decls-section)
+ (not (bison--within-braced-c-expression-p section))
+ (not (previous-non-ws-p))
+ (not (= (current-column) 0)))
+ (just-no-space))))
+
+ (self-insert-command (prefix-numeric-value arg)))
+
+(defun bison-electric-less-than (arg)
+ "if the less-than is a type declarer opener for tokens in the bison
+declaration section, then put it in the bison-decl-type-column column
+"
+ (interactive "P")
+
+ (if (and bison-electric-less-than-v
+ (not bison-all-electricity-off))
+ (if (and (= (bison--section-p) bison--bison-decls-section)
+ (bison--bison-decl-opener-p
+ (save-excursion (beginning-of-line) (point))
+ (point)))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-decl-type-column))))
+
+ (self-insert-command (prefix-numeric-value arg)))
+
+(defun bison-electric-greater-than (arg)
+ "if the greater-than is a type declarer closer for tokens in the bison
+declaration section, then indent to bison-decl-token-column
+"
+ (interactive "P")
+
+ (self-insert-command (prefix-numeric-value arg))
+
+ (if (and bison-electric-greater-than-v
+ (not bison-all-electricity-off))
+ (let ((current-pt (point))
+ (bol (save-excursion (beginning-of-line) (point))))
+ (if (and (= (bison--section-p) bison--bison-decls-section)
+ (bison--bison-decl-opener-p bol (point)))
+ (if (search-backward "<" bol t)
+ (if (re-search-forward
+ (concat "<" bison--word-constituent-re "+>")
+ current-pt t)
+ (if (not (following-non-ws-p))
+ (progn
+ (just-no-space)
+ (indent-to-column bison-decl-token-column)))))))))
+
+;(defun bison-electric-semicolon (arg)
+; "if the semicolon is used to end a production, then place it in
+;bison-rule-separator-column
+
+;a semicolon is deemed to be used for ending a production if it is not found
+;within braces
+;"
+; (interactive "P")
+; (if (and (not (bison--within-braced-c-expression-p))
+; (line-of-whitespace-p)
+; (
+; (progn
+; (just-no-space) ;; remove extraneous whitespace
+; (indent-to-column bison-rule-separator-column)))
+
+; (self-insert-command (prefix-numeric-value arg)))
+
+;; *************** other ***************
+
+;(defun bison--confirm-productions-closed ()
+; (save-excursion
+; (goto-char (point-max))
+; (if (re-search-forward "^%%" nil t)
+
+
+(provide 'bison-mode)
+
+;; *************** end of code *************** \ No newline at end of file
diff --git a/.config/emacs/games/snake-scores b/.config/emacs/games/snake-scores
new file mode 100644
index 0000000..f240b45
--- /dev/null
+++ b/.config/emacs/games/snake-scores
@@ -0,0 +1,2 @@
+49 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Feb 11 09:24:43 2014
+21 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Feb 11 09:25:26 2014
diff --git a/.config/emacs/games/tetris-scores b/.config/emacs/games/tetris-scores
new file mode 100644
index 0000000..1d0a5dd
--- /dev/null
+++ b/.config/emacs/games/tetris-scores
@@ -0,0 +1,117 @@
+1568 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Mon Mar 24 16:13:39 2014
+1562 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Mon Mar 24 16:13:39 2014
+1556 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Mon Mar 24 16:13:39 2014
+1550 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Mon Mar 24 16:13:39 2014
+1290 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Feb 15 23:25:37 2014
+1222 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Wed Feb 12 09:43:00 2014
+1182 luke Luke T. Shumaker <luke@thinkpenguin-par> Thu Jan 30 08:36:01 2014
+1176 luke Luke T. Shumaker <luke@thinkpenguin-par> Thu Jan 30 08:36:01 2014
+1176 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 7 15:22:51 2014
+1171 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 7 15:22:51 2014
+1170 luke Luke T. Shumaker <luke@thinkpenguin-par> Thu Jan 30 08:36:01 2014
+1166 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 7 15:22:51 2014
+1165 luke Luke T. Shumaker <luke@thinkpenguin-par> Thu Jan 30 08:36:01 2014
+1161 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 7 15:22:50 2014
+1124 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:36 2014
+1118 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:36 2014
+1113 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:36 2014
+1107 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:36 2014
+1103 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Feb 11 09:15:22 2014
+1102 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 19:22:11 2014
+1101 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1095 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1090 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1084 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1078 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1077 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 09:29:45 2014
+1072 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1067 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1061 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:35 2014
+1055 luke Luke T. Shumaker <luke@thinkpenguin-par.lan> Tue Feb 18 22:12:34 2014
+1005 luke Luke T. Shumaker <luke@thinkpenguin-par> Tue Feb 11 08:54:47 2014
+999 luke Luke T. Shumaker <luke@thinkpenguin-par> Tue Feb 11 08:54:47 2014
+994 luke Luke T. Shumaker <luke@thinkpenguin-par> Tue Feb 11 08:54:47 2014
+992 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 13:43:08 2014
+988 luke Luke T. Shumaker <luke@thinkpenguin-par> Tue Feb 11 08:54:47 2014
+986 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 13:43:08 2014
+975 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 13:43:07 2014
+919 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:58 2014
+914 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:57 2014
+913 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Jan 13 11:11:55 2014
+908 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:57 2014
+902 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:57 2014
+897 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:56 2014
+896 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:43:19 2014
+891 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:56 2014
+885 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:56 2014
+879 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:56 2014
+874 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:56 2014
+868 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:48 2014
+862 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:48 2014
+856 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Jan 25 11:23:48 2014
+809 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:37:25 2014
+778 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:16 2014
+775 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:57 2014
+773 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Jan 13 10:47:30 2014
+772 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:15 2014
+770 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:57 2014
+769 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:07:12 2014
+766 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:15 2014
+765 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:53 2014
+760 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:53 2014
+760 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:14 2014
+755 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:13 2014
+754 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:52 2014
+749 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:52 2014
+749 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:13 2014
+744 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:13 2014
+743 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:52 2014
+742 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:53 2014
+738 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:51 2014
+738 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:13 2014
+736 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:52 2014
+733 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:51 2014
+732 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:13 2014
+730 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:51 2014
+727 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:51 2014
+727 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 14 11:05:12 2014
+724 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:51 2014
+721 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:51 2014
+718 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:51 2014
+715 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:51 2014
+712 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:51 2014
+709 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 18:01:50 2014
+706 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:49 2014
+700 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:49 2014
+695 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:49 2014
+689 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:49 2014
+684 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:48 2014
+679 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:48 2014
+674 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:48 2014
+668 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:48 2014
+662 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Thu Feb 6 09:05:47 2014
+477 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:06 2014
+471 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:06 2014
+465 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:05 2014
+460 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:05 2014
+455 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:04 2014
+451 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 10:01:11 2014
+449 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:04 2014
+445 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 10:01:11 2014
+443 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:03 2014
+439 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 10:01:11 2014
+437 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:03 2014
+433 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Mar 24 10:01:10 2014
+431 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:02 2014
+425 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:27:02 2014
+419 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:26:58 2014
+414 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:26:58 2014
+408 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 29 09:26:58 2014
+397 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Sat Feb 22 00:58:33 2014
+143 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 08:59:20 2014
+64 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Jan 13 10:42:46 2014
+19 luke Luke T. Shumaker <luke@thinkpenguin-par> Tue Jan 14 08:59:55 2014
+0 luke Luke T. Shumaker <luke@thinkpenguin-par> Mon Jan 13 10:47:31 2014
+0 luke Luke T. Shumaker <luke@thinkpenguin-par> Wed Jan 15 15:18:32 2014
+0 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Tue Jan 28 09:29:48 2014
+0 luke Luke T. Shumaker <lukeshu@sbcglobal.net> Fri Feb 7 15:22:51 2014
diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 2dfa5cb..7471fd0 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -4,7 +4,7 @@
(setq notify-method 'notify-via-libnotify)
(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/el-get/el-get")
-(setq server-auth-dir (locate-user-emacs-file "server/") (getenv "HOSTNAME"))
+;(setq server-auth-dir (locate-user-emacs-file "server/") (getenv "HOSTNAME"))
(setq custom-file "~/.emacs.d/custom.el")
; derived from ELPA installation
diff --git a/.config/emacs/tetris.el b/.config/emacs/tetris.el
new file mode 100644
index 0000000..25fc61b
--- /dev/null
+++ b/.config/emacs/tetris.el
@@ -0,0 +1,641 @@
+;;; tetris.el --- implementation of Tetris for Emacs
+
+;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc.
+
+;; Author: Glynn Clements <glynn@sensei.co.uk>
+;; Version: 2.01
+;; Created: 1997-08-13
+;; Keywords: games
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs 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 GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(eval-when-compile (require 'cl-lib))
+
+(require 'gamegrid)
+
+;; ;;;;;;;;;;;;; customization variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defgroup tetris nil
+ "Play a game of Tetris."
+ :prefix "tetris-"
+ :group 'games)
+
+(defcustom tetris-use-glyphs t
+ "Non-nil means use glyphs when available."
+ :group 'tetris
+ :type 'boolean)
+
+(defcustom tetris-use-color t
+ "Non-nil means use color when available."
+ :group 'tetris
+ :type 'boolean)
+
+(defcustom tetris-draw-border-with-glyphs t
+ "Non-nil means draw a border even when using glyphs."
+ :group 'tetris
+ :type 'boolean)
+
+(defcustom tetris-default-tick-period 0.3
+ "The default time taken for a shape to drop one row."
+ :group 'tetris
+ :type 'number)
+
+(defcustom tetris-update-speed-function
+ 'tetris-default-update-speed-function
+ "Function run whenever the Tetris score changes.
+Called with two arguments: (SHAPES ROWS)
+SHAPES is the number of shapes which have been dropped.
+ROWS is the number of rows which have been completed.
+
+If the return value is a number, it is used as the timer period."
+ :group 'tetris
+ :type 'function)
+
+(defcustom tetris-mode-hook nil
+ "Hook run upon starting Tetris."
+ :group 'tetris
+ :type 'hook)
+
+(defcustom tetris-tty-colors
+ ["blue" "white" "yellow" "magenta" "cyan" "green" "red"]
+ "Vector of colors of the various shapes in text mode."
+ :group 'tetris
+ :type (let ((names `("Shape 1" "Shape 2" "Shape 3"
+ "Shape 4" "Shape 5" "Shape 6" "Shape 7"))
+ (result nil))
+ (while names
+ (add-to-list 'result
+ (cons 'choice
+ (cons :tag
+ (cons (car names)
+ (mapcar (lambda (color)
+ (list 'const color))
+ (defined-colors)))))
+ t)
+ (setq names (cdr names)))
+ result))
+
+(defcustom tetris-x-colors
+ [[0 0 1] [0.7 0 1] [1 1 0] [1 0 1] [0 1 1] [0 1 0] [1 0 0]]
+ "Vector of colors of the various shapes."
+ :group 'tetris
+ :type 'sexp)
+
+(defcustom tetris-buffer-name "*Tetris*"
+ "Name used for Tetris buffer."
+ :group 'tetris
+ :type 'string)
+
+(defcustom tetris-buffer-width 30
+ "Width of used portion of buffer."
+ :group 'tetris
+ :type 'number)
+
+(defcustom tetris-buffer-height 22
+ "Height of used portion of buffer."
+ :group 'tetris
+ :type 'number)
+
+(defcustom tetris-width 10
+ "Width of playing area."
+ :group 'tetris
+ :type 'number)
+
+(defcustom tetris-height 20
+ "Height of playing area."
+ :group 'tetris
+ :type 'number)
+
+(defcustom tetris-top-left-x 3
+ "X position of top left of playing area."
+ :group 'tetris
+ :type 'number)
+
+(defcustom tetris-top-left-y 1
+ "Y position of top left of playing area."
+ :group 'tetris
+ :type 'number)
+
+(defvar tetris-next-x (+ (* 2 tetris-top-left-x) tetris-width)
+ "X position of next shape.")
+
+(defvar tetris-next-y tetris-top-left-y
+ "Y position of next shape.")
+
+(defvar tetris-score-x tetris-next-x
+ "X position of score.")
+
+(defvar tetris-score-y (+ tetris-next-y 6)
+ "Y position of score.")
+
+;; It is not safe to put this in /tmp.
+;; Someone could make a symlink in /tmp
+;; pointing to a file you don't want to clobber.
+(defvar tetris-score-file "tetris-scores"
+;; anybody with a well-connected server want to host this?
+;(defvar tetris-score-file "/anonymous@ftp.pgt.com:/pub/cgw/tetris-scores"
+ "File for holding high scores.")
+
+;; ;;;;;;;;;;;;; display options ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defvar tetris-blank-options
+ '(((glyph colorize)
+ (t ?\040))
+ ((color-x color-x)
+ (mono-x grid-x)
+ (color-tty color-tty))
+ (((glyph color-x) [0 0 0])
+ (color-tty "black"))))
+
+(defvar tetris-cell-options
+ '(((glyph colorize)
+ (emacs-tty ?O)
+ (t ?\040))
+ ((color-x color-x)
+ (mono-x mono-x)
+ (color-tty color-tty)
+ (mono-tty mono-tty))
+ ;; color information is taken from tetris-x-colors and tetris-tty-colors
+ ))
+
+(defvar tetris-border-options
+ '(((glyph colorize)
+ (t ?\+))
+ ((color-x color-x)
+ (mono-x grid-x)
+ (color-tty color-tty))
+ (((glyph color-x) [0.5 0.5 0.5])
+ (color-tty "white"))))
+
+(defvar tetris-space-options
+ '(((t ?\040))
+ nil
+ nil))
+
+;; ;;;;;;;;;;;;; constants ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defconst tetris-shapes
+ [[[[0 0] [1 0] [0 1] [1 1]]]
+
+ [[[0 0] [1 0] [2 0] [2 1]]
+ [[1 -1] [1 0] [1 1] [0 1]]
+ [[0 -1] [0 0] [1 0] [2 0]]
+ [[1 -1] [2 -1] [1 0] [1 1]]]
+
+ [[[0 0] [1 0] [2 0] [0 1]]
+ [[0 -1] [1 -1] [1 0] [1 1]]
+ [[2 -1] [0 0] [1 0] [2 0]]
+ [[1 -1] [1 0] [1 1] [2 1]]]
+
+ [[[0 0] [1 0] [1 1] [2 1]]
+ [[1 0] [0 1] [1 1] [0 2]]]
+
+ [[[1 0] [2 0] [0 1] [1 1]]
+ [[0 0] [0 1] [1 1] [1 2]]]
+
+ [[[1 0] [0 1] [1 1] [2 1]]
+ [[1 0] [1 1] [2 1] [1 2]]
+ [[0 1] [1 1] [2 1] [1 2]]
+ [[1 0] [0 1] [1 1] [1 2]]]
+
+ [[[0 0] [1 0] [2 0] [3 0]]
+ [[1 -1] [1 0] [1 1] [1 2]]]]
+ "Each shape is described by a vector that contains the coordinates of
+each one of its four blocks.")
+
+;;the scoring rules were taken from "xtetris". Blocks score differently
+;;depending on their rotation
+
+(defconst tetris-shape-scores
+ [[6] [6 7 6 7] [6 7 6 7] [6 7] [6 7] [5 5 6 5] [5 8]] )
+
+(defconst tetris-shape-dimensions
+ [[2 2] [3 2] [3 2] [3 2] [3 2] [3 2] [4 1]])
+
+(defconst tetris-blank 7)
+
+(defconst tetris-border 8)
+
+(defconst tetris-space 9)
+
+(defun tetris-default-update-speed-function (_shapes rows)
+ (/ 20.0 (+ 50.0 rows)))
+
+;; ;;;;;;;;;;;;; variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defvar tetris-shape 0)
+(defvar tetris-rot 0)
+(defvar tetris-next-shape 0)
+(defvar tetris-n-shapes 0)
+(defvar tetris-n-rows 0)
+(defvar tetris-score 0)
+(defvar tetris-pos-x 0)
+(defvar tetris-pos-y 0)
+(defvar tetris-pos-y-final 0)
+(defvar tetris-paused nil)
+
+(make-variable-buffer-local 'tetris-shape)
+(make-variable-buffer-local 'tetris-rot)
+(make-variable-buffer-local 'tetris-next-shape)
+(make-variable-buffer-local 'tetris-n-shapes)
+(make-variable-buffer-local 'tetris-n-rows)
+(make-variable-buffer-local 'tetris-score)
+(make-variable-buffer-local 'tetris-pos-x)
+(make-variable-buffer-local 'tetris-pos-y)
+(make-variable-buffer-local 'tetris-paused)
+
+;; ;;;;;;;;;;;;; keymaps ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defvar tetris-mode-map
+ (let ((map (make-sparse-keymap 'tetris-mode-map)))
+ (define-key map "n" 'tetris-start-game)
+ (define-key map "q" 'tetris-end-game)
+ (define-key map "p" 'tetris-pause-game)
+
+ (define-key map " " 'tetris-move-bottom)
+ (define-key map [left] 'tetris-move-left)
+ (define-key map [right] 'tetris-move-right)
+ (define-key map [up] 'tetris-rotate-prev)
+ (define-key map [down] 'tetris-rotate-next)
+ map))
+
+(defvar tetris-null-map
+ (let ((map (make-sparse-keymap 'tetris-null-map)))
+ (define-key map "n" 'tetris-start-game)
+ map))
+
+;; ;;;;;;;;;;;;;;;; game functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defun tetris-display-options ()
+ (let ((options (make-vector 256 nil)))
+ (dotimes (c 256)
+ (aset options c
+ (cond ((= c tetris-blank)
+ tetris-blank-options)
+ ((and (>= c 0) (<= c 6))
+ (append
+ tetris-cell-options
+ `((((glyph color-x) ,(aref tetris-x-colors c))
+ (color-tty ,(aref tetris-tty-colors c))
+ (t nil)))))
+ ((= c tetris-border)
+ tetris-border-options)
+ ((= c tetris-space)
+ tetris-space-options)
+ (t
+ '(nil nil nil)))))
+ options))
+
+(defun tetris-get-tick-period ()
+ (if (boundp 'tetris-update-speed-function)
+ (let ((period (apply tetris-update-speed-function
+ tetris-n-shapes
+ tetris-n-rows nil)))
+ (and (numberp period) period))))
+
+(defun tetris-get-shape-cell (block)
+ (aref (aref (aref tetris-shapes
+ tetris-shape) tetris-rot)
+ block))
+
+(defun tetris-shape-width ()
+ (aref (aref tetris-shape-dimensions tetris-shape) 0))
+
+(defun tetris-shape-rotations ()
+ (length (aref tetris-shapes tetris-shape)))
+
+(defun tetris-draw-score ()
+ (let ((strings (vector (format "Shapes: %05d" tetris-n-shapes)
+ (format "Rows: %05d" tetris-n-rows)
+ (format "Score: %05d" tetris-score))))
+ (dotimes (y 3)
+ (let* ((string (aref strings y))
+ (len (length string)))
+ (dotimes (x len)
+ (gamegrid-set-cell (+ tetris-score-x x)
+ (+ tetris-score-y y)
+ (aref string x)))))))
+
+(defun tetris-update-score ()
+ (tetris-draw-score)
+ (let ((period (tetris-get-tick-period)))
+ (if period (gamegrid-set-timer period))))
+
+(defun tetris-new-shape ()
+ (setq tetris-shape tetris-next-shape)
+ (setq tetris-rot 0)
+ (setq tetris-next-shape (random 7))
+ (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2))
+ (setq tetris-pos-y 0)
+ (if (tetris-test-shape)
+ (tetris-end-game)
+ (tetris-draw-shape)
+ (tetris-draw-next-shape)
+ (tetris-update-score)))
+
+(defun tetris-draw-next-shape ()
+ (dotimes (x 4)
+ (dotimes (y 4)
+ (gamegrid-set-cell (+ tetris-next-x x)
+ (+ tetris-next-y y)
+ tetris-blank)))
+ (dotimes (i 4)
+ (let ((tetris-shape tetris-next-shape)
+ (tetris-rot 0))
+ (gamegrid-set-cell (+ tetris-next-x
+ (aref (tetris-get-shape-cell i) 0))
+ (+ tetris-next-y
+ (aref (tetris-get-shape-cell i) 1))
+ tetris-shape))))
+
+(defun tetris-draw-shape ()
+ (dotimes (i 4)
+ (let ((c (tetris-get-shape-cell i)))
+ (gamegrid-set-cell (+ tetris-top-left-x
+ tetris-pos-x
+ (aref c 0))
+ (+ tetris-top-left-y
+ tetris-pos-y
+ (aref c 1))
+ tetris-shape))))
+
+(defun tetris-erase-shape ()
+ (dotimes (i 4)
+ (let ((c (tetris-get-shape-cell i)))
+ (gamegrid-set-cell (+ tetris-top-left-x
+ tetris-pos-x
+ (aref c 0))
+ (+ tetris-top-left-y
+ tetris-pos-y
+ (aref c 1))
+ tetris-blank))))
+
+(defun tetris-test-shape ()
+ (let ((hit nil))
+ (dotimes (i 4)
+ (unless hit
+ (setq hit
+ (let* ((c (tetris-get-shape-cell i))
+ (xx (+ tetris-pos-x
+ (aref c 0)))
+ (yy (+ tetris-pos-y
+ (aref c 1))))
+ (or (>= xx tetris-width)
+ (>= yy tetris-height)
+ (/= (gamegrid-get-cell
+ (+ xx tetris-top-left-x)
+ (+ yy tetris-top-left-y))
+ tetris-blank))))))
+ hit))
+
+(defun tetris-full-row (y)
+ (let ((full t))
+ (dotimes (x tetris-width)
+ (if (= (gamegrid-get-cell (+ tetris-top-left-x x)
+ (+ tetris-top-left-y y))
+ tetris-blank)
+ (setq full nil)))
+ full))
+
+(defun tetris-shift-row (y)
+ (if (= y 0)
+ (dotimes (x tetris-width)
+ (gamegrid-set-cell (+ tetris-top-left-x x)
+ (+ tetris-top-left-y y)
+ tetris-blank))
+ (dotimes (x tetris-width)
+ (let ((c (gamegrid-get-cell (+ tetris-top-left-x x)
+ (+ tetris-top-left-y y -1))))
+ (gamegrid-set-cell (+ tetris-top-left-x x)
+ (+ tetris-top-left-y y)
+ c)))))
+
+(defun tetris-shift-down ()
+ (dotimes (y0 tetris-height)
+ (when (tetris-full-row y0)
+ (setq tetris-n-rows (1+ tetris-n-rows))
+ (cl-loop for y from y0 downto 0 do
+ (tetris-shift-row y)))))
+
+(defun tetris-draw-border-p ()
+ (or (not (eq gamegrid-display-mode 'glyph))
+ tetris-draw-border-with-glyphs))
+
+(defun tetris-init-buffer ()
+ (gamegrid-init-buffer tetris-buffer-width
+ tetris-buffer-height
+ tetris-space)
+ (let ((buffer-read-only nil))
+ (if (tetris-draw-border-p)
+ (cl-loop for y from -1 to tetris-height do
+ (cl-loop for x from -1 to tetris-width do
+ (gamegrid-set-cell (+ tetris-top-left-x x)
+ (+ tetris-top-left-y y)
+ tetris-border))))
+ (dotimes (y tetris-height)
+ (dotimes (x tetris-width)
+ (gamegrid-set-cell (+ tetris-top-left-x x)
+ (+ tetris-top-left-y y)
+ tetris-blank)))
+ (if (tetris-draw-border-p)
+ (cl-loop for y from -1 to 4 do
+ (cl-loop for x from -1 to 4 do
+ (gamegrid-set-cell (+ tetris-next-x x)
+ (+ tetris-next-y y)
+ tetris-border))))))
+
+(defun tetris-reset-game ()
+ (gamegrid-kill-timer)
+ (tetris-init-buffer)
+ (setq tetris-next-shape (random 7))
+ (setq tetris-shape 0
+ tetris-rot 0
+ tetris-pos-x 0
+ tetris-pos-y 0
+ tetris-n-shapes 0
+ tetris-n-rows 0
+ tetris-score 0
+ tetris-paused nil)
+ (tetris-new-shape))
+
+(defun tetris-shape-done ()
+ (tetris-shift-down)
+ (setq tetris-n-shapes (1+ tetris-n-shapes))
+ (setq tetris-score
+ (+ tetris-score
+ (aref (aref tetris-shape-scores tetris-shape) tetris-rot)))
+ (tetris-update-score)
+ (tetris-new-shape))
+
+(defun tetris-update-game (tetris-buffer)
+ "Called on each clock tick.
+Drops the shape one square, testing for collision."
+ (if (and (not tetris-paused)
+ (eq (current-buffer) tetris-buffer))
+ (let (hit)
+ (tetris-erase-shape)
+ (setq tetris-pos-y (1+ tetris-pos-y))
+ (setq hit (tetris-test-shape))
+ (if hit
+ (setq tetris-pos-y (1- tetris-pos-y)))
+ (tetris-draw-shape)
+ (if hit
+ (tetris-shape-done)))))
+
+(defun tetris-move-bottom ()
+ "Drop the shape to the bottom of the playing area."
+ (interactive)
+ (unless tetris-paused
+ (let ((hit nil))
+ (tetris-erase-shape)
+ (while (not hit)
+ (setq tetris-pos-y (1+ tetris-pos-y))
+ (setq hit (tetris-test-shape)))
+ (setq tetris-pos-y (1- tetris-pos-y))
+ (tetris-draw-shape)
+ (tetris-shape-done))))
+
+(defun tetris-move-left ()
+ "Move the shape one square to the left."
+ (interactive)
+ (unless tetris-paused
+ (tetris-erase-shape)
+ (setq tetris-pos-x (1- tetris-pos-x))
+ (if (tetris-test-shape)
+ (setq tetris-pos-x (1+ tetris-pos-x)))
+ (tetris-draw-shape)))
+
+(defun tetris-move-right ()
+ "Move the shape one square to the right."
+ (interactive)
+ (unless tetris-paused
+ (tetris-erase-shape)
+ (setq tetris-pos-x (1+ tetris-pos-x))
+ (if (tetris-test-shape)
+ (setq tetris-pos-x (1- tetris-pos-x)))
+ (tetris-draw-shape)))
+
+(defun tetris-rotate-prev ()
+ "Rotate the shape clockwise."
+ (interactive)
+ (unless tetris-paused
+ (tetris-erase-shape)
+ (setq tetris-rot (% (+ 1 tetris-rot)
+ (tetris-shape-rotations)))
+ (if (tetris-test-shape)
+ (setq tetris-rot (% (+ 3 tetris-rot)
+ (tetris-shape-rotations))))
+ (tetris-draw-shape)))
+
+(defun tetris-rotate-next ()
+ "Rotate the shape anticlockwise."
+ (interactive)
+ (unless tetris-paused
+ (tetris-erase-shape)
+ (setq tetris-rot (% (+ 3 tetris-rot)
+ (tetris-shape-rotations)))
+ (if (tetris-test-shape)
+ (setq tetris-rot (% (+ 1 tetris-rot)
+ (tetris-shape-rotations))))
+ (tetris-draw-shape)))
+
+(defun tetris-end-game ()
+ "Terminate the current game."
+ (interactive)
+ (gamegrid-kill-timer)
+ (use-local-map tetris-null-map)
+ (gamegrid-add-score tetris-score-file tetris-score))
+
+(defun tetris-start-game ()
+ "Start a new game of Tetris."
+ (interactive)
+ (tetris-reset-game)
+ (use-local-map tetris-mode-map)
+ (let ((period (or (tetris-get-tick-period)
+ tetris-default-tick-period)))
+ (gamegrid-start-timer period 'tetris-update-game)))
+
+(defun tetris-pause-game ()
+ "Pause (or resume) the current game."
+ (interactive)
+ (setq tetris-paused (not tetris-paused))
+ (message (and tetris-paused "Game paused (press p to resume)")))
+
+(defun tetris-active-p ()
+ (eq (current-local-map) tetris-mode-map))
+
+(put 'tetris-mode 'mode-class 'special)
+
+(define-derived-mode tetris-mode nil "Tetris"
+ "A mode for playing Tetris."
+
+ (add-hook 'kill-buffer-hook 'gamegrid-kill-timer nil t)
+
+ (use-local-map tetris-null-map)
+
+ (unless (featurep 'emacs)
+ (setq mode-popup-menu
+ '("Tetris Commands"
+ ["Start new game" tetris-start-game]
+ ["End game" tetris-end-game
+ (tetris-active-p)]
+ ["Pause" tetris-pause-game
+ (and (tetris-active-p) (not tetris-paused))]
+ ["Resume" tetris-pause-game
+ (and (tetris-active-p) tetris-paused)])))
+
+ (setq show-trailing-whitespace nil)
+
+ (setq gamegrid-use-glyphs tetris-use-glyphs)
+ (setq gamegrid-use-color tetris-use-color)
+
+ (gamegrid-init (tetris-display-options)))
+
+;;;###autoload
+(defun tetris ()
+ "Play the Tetris game.
+Shapes drop from the top of the screen, and the user has to move and
+rotate the shape to fit in with those at the bottom of the screen so
+as to form complete rows.
+
+tetris-mode keybindings:
+ \\<tetris-mode-map>
+\\[tetris-start-game] Starts a new game of Tetris
+\\[tetris-end-game] Terminates the current game
+\\[tetris-pause-game] Pauses (or resumes) the current game
+\\[tetris-move-left] Moves the shape one square to the left
+\\[tetris-move-right] Moves the shape one square to the right
+\\[tetris-rotate-prev] Rotates the shape clockwise
+\\[tetris-rotate-next] Rotates the shape anticlockwise
+\\[tetris-move-bottom] Drops the shape to the bottom of the playing area
+
+"
+ (interactive)
+
+ (select-window (or (get-buffer-window tetris-buffer-name)
+ (selected-window)))
+ (switch-to-buffer tetris-buffer-name)
+ (gamegrid-kill-timer)
+ (tetris-mode)
+ (tetris-start-game))
+
+(provide 'tetris)
+
+;;; tetris.el ends here
diff --git a/.config/gtk-3.0/bookmarks b/.config/gtk-3.0/bookmarks
index 85af107..e309295 100644
--- a/.config/gtk-3.0/bookmarks
+++ b/.config/gtk-3.0/bookmarks
@@ -3,3 +3,4 @@ file:///home/luke/Music
file:///home/luke/Pictures
file:///home/luke/Videos
file:///home/luke/Downloads
+file:///home/luke/Documents/school/2014.1
diff --git a/.config/okular/.gitignore b/.config/okular/.gitignore
deleted file mode 100644
index 4e33b14..0000000
--- a/.config/okular/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-docdata
diff --git a/.config/ssh/known_hosts b/.config/ssh/known_hosts
index 05249dc..ec8e1f9 100644
--- a/.config/ssh/known_hosts
+++ b/.config/ssh/known_hosts
@@ -15,7 +15,8 @@
localhost ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBOSvqkBsdEjQ2XBhUl0+zQvhsliQNv+EwWyPAVPZA0FcEHBXc5Bo7/QDPotN+jn6hU/Ri8hihH3LSvc6MsyzDRU=
#TL-WR740N-v1,192.168.1.1 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAAAgm18Q4WoIZt9WT8qNL5eolEEc3CvLAzgcAQfIDbrSRtumIUOSsJcaCy/Avg2c1rT3pVUc+5amnSavqGTZAW+r0F07cAn+/TAAFjz39ZjrjXNHu65KcCiOjOHUWfrnG/KZHsNw7B+o0I7RCVVKU82GIUecM9kGIpDIaYH2vYzaRxEqAk=
TL-WR740N-v4,192.168.2.1,192.168.1.2 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAAAglvfI+QX0vhuSjv1kSCgxrsUUtk2/ibnWkN0yBDn3bBvD22ob5OY4SujAKu6AD96Xn4oSU7YwM7X/FaA1d5Av2iLK8v2Bz1bMWsL1LGLtLg9FpiOgix11mjnEIGZoXfsrARjkAyiFaRpETiOSfV4gGUxLhgEzWLHpOU4koHQD3Jf4Ys=
-build64-par,192.168.2.161 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIAGyEB6rfXZc71rZ/p+9wh50VZOC3KHlqJiLtbK9KWMFkBmSOqm3FvuqA0fl7Z1+XqxZY69vJ2ZmQ8G/UIZtIw=
+[lukeshu.com]:1863,[199.180.255.147]:1863,[projectleaguer.net]:1863 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBJ7RUMtkyw4vL6AnDaTe9BQnJcrfZ3wgE1Y2zOaQ7IN76faZ0NhlKPSmwykEZxAHRD3f/2RgFDN/nWsJO7rwZSU=
+[lukeshu.com]:1864,[199.180.255.147]:1864,build64-par,192.168.1.161,192.168.2.161 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIAGyEB6rfXZc71rZ/p+9wh50VZOC3KHlqJiLtbK9KWMFkBmSOqm3FvuqA0fl7Z1+XqxZY69vJ2ZmQ8G/UIZtIw=
# Parabola boxes
[rshg054.dnsready.net]:1863 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBAiQk3J39s6vsfkDo7Y63FfTiHCyT97gCC+GbUa9wUuRZt2+wv8Ds9M8lOUsTQH5z/5zgfZst0qUrsN+ijusUGs=
@@ -23,10 +24,21 @@ build64-par,192.168.2.161
[repo.parabolagnulinux.org]:1863,[wiki.parabolagnulinux.org]:1863,[80.87.131.252]:1863 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBK4pzgrqj2qrklFpDZrg56bjVHJyodEtvdU/QUQNPgErfjfn0BJRi4N2zL19VK5ab3kJ6zJrfY7YWOv/Ky+MqUw=
# Purdue boxes
-data.cs.purdue.edu,128.10.3.13,128.10.12.13,128.10.19.13,128.10.25.13 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDCtyfydMrSci3BMTrS6GO9gKTxVMrM+7+ZI7t+pI7k+kRnz6prOftFZ3ySLD+4GDrxTKZkRnIr7pB6IPuSDg+++AAJ/isR5j0NhI+zfdMvNdAzw1j0d4EnFE3VLslR98VInxZaLTLm6QokotzIcxjqylzTca/GKwmcsBtSDMdRDp5xI+zlwacUlFUM8J2QNji/6uYCdU19YEbWzyYYWgNqopTAT04SExBnWuPi/ktpnSd0BPbfX51Bzc2Tp3/ro6KF3JGq3a/NC3qwVt45ThoGskZVZxbausJa2v+3wSFbrtsfJcHBjsboFZv8lwVAuD7r4sYuVGlGblpCs7OBM6Sx
+borg01.cs.purdue.edu,128.10.12.101 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDkIEyFa1k4QSfj/Dx6Dsc71TPof23dEj6bZhHwHO8/MrETk9GC/XZVXqzktO2Rr6TMl4AuFhZ5yp9UVuCqPvHKOvf5x40wgwL5Izgd9HN84StMDkwQl/N6hPUTACZYaoByl5xEnhO6O5P7HucCSGH1bHQvjSKJYyAaJ2xlZjwE/uoHRgnfkVU7RhrpBlCtjTVG5ktePJWeAUE3XcNzZg/GL66mYJk0deu8qfILMR9fh0mPZ2LbFLhvlzcLXBR5dpekzdfs/TjRC63eewWpTER4CAKYyZ+dOXXYk+uvZt+xHm3wSS0h/YO0GHsy179HlIvMdzFSv+Txqdwx6IumaJzt
+borg02.cs.purdue.edu,128.10.12.102 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDUzl4VM51gWk1trUOJ0exymiG2AtP5PV/DRRsvZ20aY0NIRt4/QbBx8h5HBgSBuaR9X85ybyJrIGS3pnvAzr42OVj80ZMWkDkuCjFXPPThyf3LSUD0pmoKzoSC6mLy4uAVDL7NNqQo6X/aFKPxsR2eIB5IesiBSvb2/q8vIISU0gUkXlV515vCENd5I6Lpi3ZKJANZar54mU8Eh065957y4whX47LsO3mexnkzoRMwGnxDlhQfHzQUy/LW6mJIyKda050FPvImUzFusKaTn7vQzoM5AmxUtOoZe/PsDdPvfmh0mm1W01WPvY/S6YvrKM0pc1jRV7qKaYvC38c5e7fr
+borg04.cs.purdue.edu,128.10.12.104 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCoAr3zuEMACnvJOS9oz6CfypDFWuqdIg61YGqekhxJPzSXpLTFM+KPjjmAFX7YsDjaMsWmRU9wu+yg8Bw/MtZ+qa2+K+UmS/JM/cfswmTj8cdzrJ6p9H3ZTfg22phqMjX9XgD4Ed5u5tU/My49V6VzQNyjJXU6k7/p38BDsLwBFw2cChqFp3jvmYwsQOY6LM6XVD175dSsyDaCSYXpvAvkF4xARKLF/TyarkFT/CNdrcms8PQmxk5GEtk2fjUsJKUCwoU+H8VRCRk3ypUxp92yQV+/WSuEVEFsnemkVMRoGQZE1BfnbYnoQuXPm0EipU20e+uZtvxx5BIKiSw+2Oln
+borg06.cs.purdue.edu,128.10.12.106 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDT6ACw5pc6fWnBTv6Cf13Io4b2hoUKU+TqlLNA2/YftD11gHQqNPMx5fbO8aDpArAu6WuYMFpPlZlS7fL00NgdJYnPbyaGpOUpOOtSFzkTnFOnLqQBWwLNmVLPU62iX/5iyp4kWfvfUTy3J/8ritDP4QYEzNSebeKw8W7s+y3pVjMYzcG7t4c6faJ102s7jwz7DjBzxHgpbmeNNRGVQ7wdBmK2DcYbaCyU1uK5eRuqc7Ten/uUskB4mRdqcgrRS9agl52tPjSUMxEUWtGace72GYGTTVVwRGtz+w3gUisvgtqC6C2QsE/JmL4Fwyf5X/mMj2yF3L0yU+E3FgtHIX/x
+borg09.cs.purdue.edu,128.10.12.109 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDHrYNseZSmB8jLkj3OdziXZS02rjkqP4BL7r2uNWDEhg5oa8HPs6sanT+cq2gjkJ/bDXaY2NdSJN6fKrnRM5mlFXaRC9ANuLV2JJ3mzoXSk8uC6DO2kDZRWOeoOOmM20Imsl1QdJ9G2rf5NXGdbwV3MBQCwjpZtJJ3nIUW+zteOCV+Vdvz5aq5cwA4C+e0bJEK8Llk05wWCEhm0w91mtRlRBHUXNZlKIadYvr/5CIDToFLpFaa6p8upgFkGvPJBO+KxPJJdwVM5JD2H2jg2ZavGxW2+qWldyLSJkT7LQoub1z8einzkgYtQ/CET0CUZr45mFb92ijnI6nYa1mdjk+Z
+borg10.cs.purdue.edu,128.10.12.110 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDIFc205BQT1csdqm7nfd22zR+LraDWtmMpqVqPFOlckQXeZQh4ANnmf1xc2orCl8g/PWfzJMLMYjnBdsSqusmfqDhLHZ+FYBt8Hgxe5pX7wLG7Og+7NYuoP5ktaUUg5h19Fm6tz1P/Eb5TOMtoZIwMLhnM94j87JAIVXHJgWs6JOzfJCHHce82vC916d0oEjaXeAD8z+LBKk29SDnYu/Yz5X2tRRc6FyymBD7uMQQl7hUjAcVcXAKLizCqueYpBx5PoZpQ0ficXghXwL6hNBF9AFkFC4iIn+ZxmKbXu9PH3sJCdX2eu/I7KecS3vYW3GWausTbVGysLDaArg6DoiK3
+borg11.cs.purdue.edu,128.10.12.111 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQC3/eruxcGUuWDYP+QmWhKdViYmg9vW7JeGKLDh6/CC5SHSCGdDHF+PauvyiBDQd3otVdDljlGJHFAC2OfEqBneVaoVyQrvLdFU7nAH/h43lBLMguo7ijr1GV6PzD93HEqgVDMoyiXw2m/v71KOEZCW66WcxGlTpj+jFrju8amsq9/9SYMNBIli9SCwSMx5kD4FRUvrJF6UfJnPZHG9Ql9LXqAp9tLFKXmKExC7CzUuagX0jWUeeh4CLjwI3Koc85v1gl7rUbJfUbLrSrZx+TElx3a+1iccl5xiMqIVlz7rbfv8v6z7oPsLxvAZy4gGkm82iQw//VBg/HAoJdrUK08f
+data.cs.purdue.edu,128.10.2.13,128.10.3.13,128.10.12.13,128.10.19.13,128.10.25.13 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDCtyfydMrSci3BMTrS6GO9gKTxVMrM+7+ZI7t+pI7k+kRnz6prOftFZ3ySLD+4GDrxTKZkRnIr7pB6IPuSDg+++AAJ/isR5j0NhI+zfdMvNdAzw1j0d4EnFE3VLslR98VInxZaLTLm6QokotzIcxjqylzTca/GKwmcsBtSDMdRDp5xI+zlwacUlFUM8J2QNji/6uYCdU19YEbWzyYYWgNqopTAT04SExBnWuPi/ktpnSd0BPbfX51Bzc2Tp3/ro6KF3JGq3a/NC3qwVt45ThoGskZVZxbausJa2v+3wSFbrtsfJcHBjsboFZv8lwVAuD7r4sYuVGlGblpCs7OBM6Sx
lore.cs.purdue.edu,128.10.19.16,128.10.12.16,128.10.2.16 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAwUosAIGVQllz1G63GNL9azhBefzXdLgvbMY4e/yENMkIACyz0dfZwdQ3cMTFEsUW1y5FjVx/V272KwmdfG9aS+jyHpRAiZGz8vDa9NrleAvhvpQtAIXsQILjeWqtVAVjbm5J5Su73J98UITUr62ZJCYgt621BSS0ooZEo8UKjk8=
sage.ics.purdue.edu,128.210.10.101 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEA1MzqxWILPbf4voIPXLSf8oDHxgKpq8UlWAyy6EoYeZ7NjQoirMmLvl8TBHz54+gVEjDhDHdoKkXvF/DYvwm3Zo8ezGyNPZ++fRkKCq0gcjOJ/0hotI3xZi397KywlbzYiQt6hDn68ojMnjPZsKOPaBLW3Q6SBWw2b4hGIYVn13s=
sslab01.cs.purdue.edu,128.10.25.101 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAtG71s38pNzCH/UTPrAUecaSTrSRokSBYPM7Xmts/jbzyadKePGCjMafODc3YSHtSvBbK6uCKPyv+dkH8a4FZ7IBeTtR6Q/30eijyeFdCizqs3THljWZG5zP6NBU7GnP+0FXPqIlvpnaD+6Unj8aW66AER+BBhF2IAK9H/Uxl7cM=
+sslab02.cs.purdue.edu,128.10.25.102 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAunmGlLKqSIYZAMYlAVVnc1rM9ml5YGjoaOHSiuNhdx0S0ZpTus985lT1Piu/LVrjF/WGNWnxVwvFcdIpCXIpOMQzuA6Ys8zsn4CdbaApYgMGQVcFOhNp6Iw/7aDqV7tud3cq7K1RdnLgdpi2Qw8TcKp3ChF/YWvro2xbZjEzQhk=
+sslab14.cs.purdue.edu,128.10.25.114 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAuLhRZpjP/NlE1vZMZOHkCCvsK5qg2W67qtFbR//5INnu2Z4Vn14jRpJhT5HeX9fedROWMrOvaYWcSB7GEFilc5klb2xrIU1AKrFwjRfEEYQW9iN22O5WrS+qtftWulWeOn49ZNodaCW29M4FHcn2TGUGDXrtMttf1iJHEGYPFF8=
+sslab15.cs.purdue.edu,128.10.25.115 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAugZ5wO3dUWugYhf3D/t5BcA7JC0SgPWLvhw9nzcfxQXIkw402eSiwVinr2+LuQN+WW7Mg5WGPUspeEGchpjTBftN+eTfMyD0WJFtW+QHusSiroCMqgzrqSD09/uA1EYV1GkAlcrAk+PCdypUeXoNSPiPUNNlxP1TdDQMmAzR4AE=
+sslab23.cs.purdue.edu,128.10.25.123 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEA0IoqibnOlNzCsSKGSbiK4re22WxFSaG6/qO1zqHzWqBMj/VOWvdPmxsGefdBEShke6YMxKduZGtQp3ET2ozF6kzCrFbcsjzNuwIX6UW/TqGz10rJnCYAll79R/DxpsaLH+z2h+zdWRLZFbOi00VPq+gLh511otvhgmJKRqeUn491/rwZSxlvhXoRJOv/1poWuwT+MRx3AB8+DlrTE1J69XoP1s5HartD6dyJ2jwdN3S5sdvLEif6yLkpVCmzKkkMc0i9VL2t5p8XRZrwHKEUjbvCrhks1wRSuWXU3mFtpqiXm+I3mcj3uSRDWIK58ZKuZ3yts9v0R98IGQSSdMkKRQ==
# TigerTech boxes
mckenzierobotics.org,mckenzierobotics.org.customers.tigertech.net,64.62.209.14,208.80.4.102 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAIEAwcC508sMM/yiVjrYYHA2bIPRlmMVrIvUzIg9NC3X3iqUF2r6YKO1WUbTDEBv3mDdCggwGuRlkjlPIhF4jAWiOUqzzVqbMy+Vq6AVQTAbx1xPTB18OvrR61LcIuQu1Rw4b+60ufQRjChHCPTnJbSwbUrizdHjxh+qe+2omzDUfDs=
@@ -38,15 +50,7 @@ github.com,192.30.252.129,192.30.252.131,204.232.175.90,207.97.227.239
teenteam.biz,50.63.32.1 ssh-dss AAAAB3NzaC1kc3MAAACBAImo1tvV5/AxMKvit1Iv1WqgQ/30fyHjmtnDbhiYv53lLPAEFevB59zZ65/94AFd/ZyUoy62Qv3nMFvKaZmAto96mvsgE9w3BU96Y2hxFIje/hmMwkfFMO2sJ9Gi6Rn4NA8ZK31dnoazzPberbluvNZOlBL1jPZczVStW+RtGyM7AAAAFQDQ3dx1MJ3eXuee4tUP3D+oj/jWQQAAAIA29gAWOcSWMHfUb1F6n6fIcpQ4aCZZLVRNOzpoCIsJOiqxZTN/HEelYnE/Tf7SoUTORot4bJDEwifm0i96B9zeqJeJzc56Tmw5EtIJYyJbTyUF02Cl3OqAUpbEf+bA7dtcYIims+QJzyCN7lWkczvMf0dSUPZtN/B3MxjWDRKEMgAAAIAG6+Rw+OvOJvKsZlkFd3wGD6w8tVKQ7LfcagWLL4MzJzEAN2UXBycCc1UPmZTmPWHDiyB7syoVmDTw78OOMqDTtXrmXDnNm+sPTqPlbgeUtIKMVWFGQmmXjghOeNxqqs+2iGnqdpM390Mm4D4qXGbZu6d7BluYBfUISU+5+i5hHQ==
gitorious.org,87.238.52.168 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAwurz6NXf01Lc2HTGvPGN2RRIjW5zZ4qI8dCTdhr6R241VXO30X29EpBPRFTe3K9Zx7BXAM1XzQaV093xT8jX6X0gP/vJD2y+vDN2IDx2GeLX1k0cevhCj2mn8Su3ZWw5s9bBhVvpSvrE9uLRho2Qe/x5hJt2804KDyRGWn3esVP2dYRbf4r4TBLX/oWziDv64x5G0SkY8YsX2ZbKSX1Biw4oQXSx5jKOaCjNS+ryJFVmiIBqHa7Voi3LgJT/lHZV39sKbMNcnsQNjtkB1eqzzvdwO5RPfF0YbwjFQ5SywmrtkAqYmDOOPUDrvDChbbrS7hge4rDK/oeVjwdV718jVw==
-128.10.2.13 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDCtyfydMrSci3BMTrS6GO9gKTxVMrM+7+ZI7t+pI7k+kRnz6prOftFZ3ySLD+4GDrxTKZkRnIr7pB6IPuSDg+++AAJ/isR5j0NhI+zfdMvNdAzw1j0d4EnFE3VLslR98VInxZaLTLm6QokotzIcxjqylzTca/GKwmcsBtSDMdRDp5xI+zlwacUlFUM8J2QNji/6uYCdU19YEbWzyYYWgNqopTAT04SExBnWuPi/ktpnSd0BPbfX51Bzc2Tp3/ro6KF3JGq3a/NC3qwVt45ThoGskZVZxbausJa2v+3wSFbrtsfJcHBjsboFZv8lwVAuD7r4sYuVGlGblpCs7OBM6Sx
-borg06.cs.purdue.edu,128.10.12.106 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDT6ACw5pc6fWnBTv6Cf13Io4b2hoUKU+TqlLNA2/YftD11gHQqNPMx5fbO8aDpArAu6WuYMFpPlZlS7fL00NgdJYnPbyaGpOUpOOtSFzkTnFOnLqQBWwLNmVLPU62iX/5iyp4kWfvfUTy3J/8ritDP4QYEzNSebeKw8W7s+y3pVjMYzcG7t4c6faJ102s7jwz7DjBzxHgpbmeNNRGVQ7wdBmK2DcYbaCyU1uK5eRuqc7Ten/uUskB4mRdqcgrRS9agl52tPjSUMxEUWtGace72GYGTTVVwRGtz+w3gUisvgtqC6C2QsE/JmL4Fwyf5X/mMj2yF3L0yU+E3FgtHIX/x
-borg11.cs.purdue.edu,128.10.12.111 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQC3/eruxcGUuWDYP+QmWhKdViYmg9vW7JeGKLDh6/CC5SHSCGdDHF+PauvyiBDQd3otVdDljlGJHFAC2OfEqBneVaoVyQrvLdFU7nAH/h43lBLMguo7ijr1GV6PzD93HEqgVDMoyiXw2m/v71KOEZCW66WcxGlTpj+jFrju8amsq9/9SYMNBIli9SCwSMx5kD4FRUvrJF6UfJnPZHG9Ql9LXqAp9tLFKXmKExC7CzUuagX0jWUeeh4CLjwI3Koc85v1gl7rUbJfUbLrSrZx+TElx3a+1iccl5xiMqIVlz7rbfv8v6z7oPsLxvAZy4gGkm82iQw//VBg/HAoJdrUK08f
-
-parabolagnulinux.org,142.4.205.9 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBHkqv9ewWyXjrO6P5iYiUYfEYP8ALBg9C2GxA7yOJDa/vwDtx6OS3KMNRkUgx6vL/6/D555Xdypys+lwLmcdmnM=
-[lukeshu.com]:1863,[199.180.255.147]:1863 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBJ7RUMtkyw4vL6AnDaTe9BQnJcrfZ3wgE1Y2zOaQ7IN76faZ0NhlKPSmwykEZxAHRD3f/2RgFDN/nWsJO7rwZSU=
-192.168.1.1 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAAAgwCha20d/qpyDSrfa2ZV0izgwZ+91XL7TyfdHIkMfdaIlv3qxCXWV5FBzFGsg+9m4p7h1WO0J2KL53MRNaG6qtyxnLZaNe3pVxKwmNbDC4cYlwaumM17p5nnFKu9/qyreNEmbtvGExipPvYi9qULNM8vzLZcMSpDNV6WrudEfrW1hvd/
-192.30.252.130 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAq2A7hRGmdnm9tUDbO9IDSwBK6TbQa+PXYPCPy6rbTrTtw7PHkccKrpp0yVhp5HdEIcKr6pLlVDBfOLX9QUsyCOV0wzfjIJNlGEYsdlLJizHhbn2mUjvSAHQqZETYP81eFzLQNnPHt4EVVUh7VfDESU84KezmD5QlWpXLmvU31/yMf+Se8xhHTvKSCZIFImWwoG6mbUoWf9nzpIoaSjB+weqqUUmpaaasXVal72J+UX2B+2RPW3RcT0eOzQgqlJL3RKrTJvdsjE3JEAvGq3lGHSZXy28G3skua2SmVi/w4yCE6gbODqnTWlg7+wC604ydGXA8VJiS5ap43JXiUFFAaQ==
-projects.parabolagnulinux.org ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBHkqv9ewWyXjrO6P5iYiUYfEYP8ALBg9C2GxA7yOJDa/vwDtx6OS3KMNRkUgx6vL/6/D555Xdypys+lwLmcdmnM=
-[bugs.parabolagnulinux.org]:1863,[174.142.147.197]:1863 ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBAiQk3J39s6vsfkDo7Y63FfTiHCyT97gCC+GbUa9wUuRZt2+wv8Ds9M8lOUsTQH5z/5zgfZst0qUrsN+ijusUGs=
-borg04.cs.purdue.edu,128.10.12.104 ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCoAr3zuEMACnvJOS9oz6CfypDFWuqdIg61YGqekhxJPzSXpLTFM+KPjjmAFX7YsDjaMsWmRU9wu+yg8Bw/MtZ+qa2+K+UmS/JM/cfswmTj8cdzrJ6p9H3ZTfg22phqMjX9XgD4Ed5u5tU/My49V6VzQNyjJXU6k7/p38BDsLwBFw2cChqFp3jvmYwsQOY6LM6XVD175dSsyDaCSYXpvAvkF4xARKLF/TyarkFT/CNdrcms8PQmxk5GEtk2fjUsJKUCwoU+H8VRCRk3ypUxp92yQV+/WSuEVEFsnemkVMRoGQZE1BfnbYnoQuXPm0EipU20e+uZtvxx5BIKiSw+2Oln
-192.30.252.128 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAq2A7hRGmdnm9tUDbO9IDSwBK6TbQa+PXYPCPy6rbTrTtw7PHkccKrpp0yVhp5HdEIcKr6pLlVDBfOLX9QUsyCOV0wzfjIJNlGEYsdlLJizHhbn2mUjvSAHQqZETYP81eFzLQNnPHt4EVVUh7VfDESU84KezmD5QlWpXLmvU31/yMf+Se8xhHTvKSCZIFImWwoG6mbUoWf9nzpIoaSjB+weqqUUmpaaasXVal72J+UX2B+2RPW3RcT0eOzQgqlJL3RKrTJvdsjE3JEAvGq3lGHSZXy28G3skua2SmVi/w4yCE6gbODqnTWlg7+wC604ydGXA8VJiS5ap43JXiUFFAaQ==
+# Unsorted
+192.30.252.128 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAq2A7hRGmdnm9tUDbO9IDSwBK6TbQa+PXYPCPy6rbTrTtw7PHkccKrpp0yVhp5HdEIcKr6pLlVDBfOLX9QUsyCOV0wzfjIJNlGEYsdlLJizHhbn2mUjvSAHQqZETYP81eFzLQNnPHt4EVVUh7VfDESU84KezmD5QlWpXLmvU31/yMf+Se8xhHTvKSCZIFImWwoG6mbUoWf9nzpIoaSjB+weqqUUmpaaasXVal72J+UX2B+2RPW3RcT0eOzQgqlJL3RKrTJvdsjE3JEAvGq3lGHSZXy28G3skua2SmVi/w4yCE6gbODqnTWlg7+wC604ydGXA8VJiS5ap43JXiUFFAaQ==
+192.30.252.130 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAq2A7hRGmdnm9tUDbO9IDSwBK6TbQa+PXYPCPy6rbTrTtw7PHkccKrpp0yVhp5HdEIcKr6pLlVDBfOLX9QUsyCOV0wzfjIJNlGEYsdlLJizHhbn2mUjvSAHQqZETYP81eFzLQNnPHt4EVVUh7VfDESU84KezmD5QlWpXLmvU31/yMf+Se8xhHTvKSCZIFImWwoG6mbUoWf9nzpIoaSjB+weqqUUmpaaasXVal72J+UX2B+2RPW3RcT0eOzQgqlJL3RKrTJvdsjE3JEAvGq3lGHSZXy28G3skua2SmVi/w4yCE6gbODqnTWlg7+wC604ydGXA8VJiS5ap43JXiUFFAaQ==
+2a02:c0:1014::1 ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEAwurz6NXf01Lc2HTGvPGN2RRIjW5zZ4qI8dCTdhr6R241VXO30X29EpBPRFTe3K9Zx7BXAM1XzQaV093xT8jX6X0gP/vJD2y+vDN2IDx2GeLX1k0cevhCj2mn8Su3ZWw5s9bBhVvpSvrE9uLRho2Qe/x5hJt2804KDyRGWn3esVP2dYRbf4r4TBLX/oWziDv64x5G0SkY8YsX2ZbKSX1Biw4oQXSx5jKOaCjNS+ryJFVmiIBqHa7Voi3LgJT/lHZV39sKbMNcnsQNjtkB1eqzzvdwO5RPfF0YbwjFQ5SywmrtkAqYmDOOPUDrvDChbbrS7hge4rDK/oeVjwdV718jVw==
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-29 10:42:02 +0000