diff --git a/.gitmodules b/.gitmodules new file mode 100644 index 0000000000..4c6aacb950 --- /dev/null +++ b/.gitmodules @@ -0,0 +1,3 @@ +[submodule "radiance"] +path = themes/radiance +url = git://github.com/barak/color-theme-radiance.git \ No newline at end of file diff --git a/custom.el b/custom.el index 07c1f96792..796d9ec470 100644 --- a/custom.el +++ b/custom.el @@ -105,22 +105,16 @@ ) (require 'slime) (slime-setup) +;;; CHICKEN SCHEME +(add-to-list 'load-path "/var/lib/chicken/5/") + ; Where Eggs are installed +(autoload 'chicken-slime "chicken-slime" "SWANK backend for Chicken" t) +(add-hook 'scheme-mode-hook + (lambda () + (slime-mode t))) -;; vala mode - -(autoload 'vala-mode "vala-mode" "Major mode for editing Vala code." t) -(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode)) -(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode)) -(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8)) -(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8)) - -;; use technomancy's marmalade. -;;(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/")) - - -;; chicken scheme +(require 'quack) (require 'cmuscheme) - (define-key scheme-mode-map "\C-c\C-l" 'scheme-load-current-file) (define-key scheme-mode-map "\C-c\C-k" 'scheme-compile-current-file) @@ -130,12 +124,13 @@ (comint-check-source file-name) (setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) (file-name-nondirectory file-name))) - (comint-send-string (scheme-proc) (concat "(load \"" - file-name - "\"\)\n")) + (comint-send-string (scheme-proc) + (concat "(load \"" + file-name + "\"\)\n")) (if switch (switch-to-scheme t) - (message "\"%s\" loaded." file-name) ) ) ) + (message "\"%s\" loaded." file-name)))) (defun scheme-compile-current-file (&optional switch) (interactive "P") @@ -144,12 +139,24 @@ (setq scheme-prev-l/c-dir/file (cons (file-name-directory file-name) (file-name-nondirectory file-name))) (message "compiling \"%s\" ..." file-name) - (comint-send-string (scheme-proc) (concat "(compile-file \"" - file-name - "\"\)\n")) + (comint-send-string (scheme-proc) + (concat "(compile-file \"" + file-name + "\"\)\n")) (if switch (switch-to-scheme t) - (message "\"%s\" compiled and loaded." file-name) ) ) ) + (message "\"%s\" compiled and loaded." file-name)))) + +;; vala mode + +(autoload 'vala-mode "vala-mode" "Major mode for editing Vala code." t) +(add-to-list 'auto-mode-alist '("\\.vala$" . vala-mode)) +(add-to-list 'auto-mode-alist '("\\.vapi$" . vala-mode)) +(add-to-list 'file-coding-system-alist '("\\.vala$" . utf-8)) +(add-to-list 'file-coding-system-alist '("\\.vapi$" . utf-8)) + +;; use technomancy's marmalade. +;;(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/")) @@ -163,3 +170,16 @@ ;; bit.ly shortcuts from within emacs +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(quack-manuals (quote ((r5rs "R5RS" "http://www.schemers.org/Documents/Standards/R5RS/HTML/" nil) (bigloo "Bigloo" "http://www-sop.inria.fr/mimosa/fp/Bigloo/doc/bigloo.html" nil) (chez "Chez Scheme User's Guide" "http://www.scheme.com/csug/index.html" nil) (chicken "Chicken User's Manual" "http://wiki.call-cc.org/man/4/The%20User's%20Manual" nil) (gambit "Gambit-C home page" "http://www.iro.umontreal.ca/~gambit/" nil) (gauche "Gauche Reference Manual" "http://www.shiro.dreamhost.com/scheme/gauche/man/gauche-refe.html" nil) (mitgnu-ref "MIT/GNU Scheme Reference" "http://www.gnu.org/software/mit-scheme/documentation/scheme.html" nil) (mitgnu-user "MIT/GNU Scheme User's Manual" "http://www.gnu.org/software/mit-scheme/documentation/user.html" nil) (mitgnu-sos "MIT/GNU Scheme SOS Reference Manual" "http://www.gnu.org/software/mit-scheme/documentation/sos.html" nil) (plt-mzscheme "PLT MzScheme: Language Manual" plt t) (plt-mzlib "PLT MzLib: Libraries Manual" plt t) (plt-mred "PLT MrEd: Graphical Toolbox Manual" plt t) (plt-framework "PLT Framework: GUI Application Framework" plt t) (plt-drscheme "PLT DrScheme: Programming Environment Manual" plt nil) (plt-insidemz "PLT Inside PLT MzScheme" plt nil) (plt-tools "PLT Tools: DrScheme Extension Manual" plt nil) (plt-mzc "PLT mzc: MzScheme Compiler Manual" plt t) (plt-r5rs "PLT R5RS" plt t) (scsh "Scsh Reference Manual" "http://www.scsh.net/docu/html/man-Z-H-1.html" nil) (sisc "SISC for Seasoned Schemers" "http://sisc.sourceforge.net/manual/html/" nil) (htdp "How to Design Programs" "http://www.htdp.org/" nil) (htus "How to Use Scheme" "http://www.htus.org/" nil) (t-y-scheme "Teach Yourself Scheme in Fixnum Days" "http://www.ccs.neu.edu/home/dorai/t-y-scheme/t-y-scheme.html" nil) (tspl "Scheme Programming Language (Dybvig)" "http://www.scheme.com/tspl/" nil) (sicp "Structure and Interpretation of Computer Programs" "http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-4.html" nil) (slib "SLIB" "http://swissnet.ai.mit.edu/~jaffer/SLIB.html" nil) (faq "Scheme Frequently Asked Questions" "http://www.schemers.org/Documents/FAQ/" nil)))) + '(quack-programs (quote ("csc" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi")))) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + ) diff --git a/init.el b/init.el index 13a136e3c6..b1371d2756 100644 --- a/init.el +++ b/init.el @@ -55,8 +55,8 @@ (require 'starter-kit-registers) (require 'starter-kit-eshell) (require 'starter-kit-lisp) -(require 'starter-kit-perl) -(require 'starter-kit-ruby) +;;(require 'starter-kit-perl) +;;(require 'starter-kit-ruby) (require 'starter-kit-python) (require 'starter-kit-js)