
;;; cbhs.el

;; Copyright (C) 2014-2015 Davin Pearson

;; Emacs Lisp Archive Entry
;; Filename: cbhs.el
;; Author/Maintainer: Davin Pearson <http://davin.50webs.com>
;; Keywords: Christchurch Boys' High School code
;; Version: 1.0

;;; Commentary:

;; This file is not part of GNU Emacs.

;;; Limitation of Warranty

;; 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 3 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.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs, see the file COPYING.  If not, see:
;;
;; <http://www.gnu.org/licenses/gpl-3.0.txt>.


;;; Known Bugs:

;; None so far!

;;; Code:

(progn

  ;;
  ;; COOL! translations
  ;;

  (keyboard-translate 35 92)   ;; hash -> backslash
  (keyboard-translate 126 124) ;; tilde -> vertical bar
  (keyboard-translate 34 64) ;; doubled-quote -> ampersand
  (keyboard-translate 64 34) ;; ampersand -> doubled-quote
  (keyboard-translate 163 35) ;; poundsign -> hash
  (keyboard-translate 172 126) ;; notsign -> tilde

  )

(defun print-ascii-table ()
  (interactive)
  (progn
    (setq i 0)
    (while (< i 256)
      (insert (format "(%c %d)" i i))
      (incf i))))

;;;
;;; TODO: set environment vars
;;;
;;; PATH = c:\cygwin\bin;%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem
;;;
;;; HOME = c:\davins\
;;;

(provide 'cbhs)
