Permalink
Browse files

Various Ksplice cleanup and Stripe config.

  • Loading branch information...
nelhage committed Sep 8, 2012
1 parent a953a2f commit 3f09641b3b41b140f68caf989a29cbd02e184ad0
Showing with 13 additions and 28 deletions.
  1. +13 −28 dot-emacs
View
@@ -934,6 +934,8 @@ unable to perform symbol completion.")
;; ruby
(autoload 'ruby-mode "ruby-mode" "" t)
(add-to-list 'auto-mode-alist (cons "\\.rb$" 'ruby-mode))
+(add-to-list 'auto-mode-alist (cons "Rakefile$" 'ruby-mode))
+(add-to-list 'auto-mode-alist (cons "Gemfile$" 'ruby-mode))
(add-to-list 'interpreter-mode-alist (cons "ruby" 'ruby-mode))
(autoload 'run-ruby "inf-ruby" "Run an inferior ruby process" t)
@@ -942,6 +944,9 @@ unable to perform symbol completion.")
(add-hook 'ruby-mode-hook 'my-ruby-mode-hook)
(defun my-ruby-mode-hook ()
nil)
+(eval-after-load 'ruby-mode
+ '(progn
+ (define-key ruby-mode-map (kbd "M-TAB") 'dabbrev-expand)))
;; Matlab
@@ -983,8 +988,7 @@ unable to perform symbol completion.")
;; Mediawiki
(require 'mediawiki)
-(setq mediawiki-site-alist
- '(("Ksplice" "https://saccharine.us.oracle.com/w/" "nelhage" nil "Main Page")))
+(setq mediawiki-site-alist '())
;;Evil DOS file endings, eeeeeeeeevil
(add-hook 'find-file-hook 'find-file-check-line-endings)
@@ -1253,22 +1257,15 @@ surrounding xml expression"
(require 'org-mobile)
(setq org-hide-leading-stars t
org-log-done 'time
- org-agenda-files (list (concat org-directory "/todo.org")
- (concat org-directory "/ksplice.org"))
+ org-agenda-files (list (concat org-directory "/todo.org"))
org-agenda-window-setup 'current-window
org-agenda-restore-windows-after-quit t
org-default-notes-file (concat org-directory "/notes.org")
org-remember-templates
'(("Todo" ?t "* TODO %?\n" "todo.org" "Tasks")
- ("Ksplice" ?k "* TODO %?\n" "ksplice.org" "Ksplice")
("Buy" ?b "* TODO %?" "todo.org" "To Buy"))
org-agenda-custom-commands
- '(("u" tags-todo "SCHEDULED<>{.}&DEADLINE<>{.}-ksplice")
- ("k" "Ksplice todo" tags-todo "KSPLICE")
- ("K" "Ksplice agenda" agenda ""
- ((org-agenda-files
- (list (concat org-directory "/ksplice.org")))))
- ("O" "Other agenda" agenda ""
+ '(("O" "Other agenda" agenda ""
((org-agenda-files
(list (concat org-directory "/todo.org"))))))
org-agenda-skip-deadline-if-done t
@@ -1284,10 +1281,6 @@ surrounding xml expression"
org-mobile-directory "~/Dropbox/org/mobile"
line-move-visual nil)
-(defun my-skip-unless-ksplice ()
- (if (not (member "KSPLICE" (org-get-tags-at (point))))
- (point-max)))
-
(eval-after-load 'org-agenda
'(progn
(set-face-attribute 'org-todo nil
@@ -1411,23 +1404,15 @@ surrounding xml expression"
(defvar initial-terminals
'((term "nelhage.com" "~/")
- (term "ksplice-machine" "~/ksplice")
- (term "ksplice-shell2" "~/ksplice")
- (term "ksplice-zephyr" "~/")
- (shell "ksplice-ksplice" "~/ksplice/ksplice")
- (shell "ksplice-client" "~/ksplice/client")
- (shell "ksplice-dev" "~/ksplice/dev")
- (shell "ksplice-server" "~/ksplice/server")
- (shell "ksplice-operations" "~/ksplice/operations")
- (shell "ksplice-events" "~/ksplice/events")
- (shell "ksplice-status" "~/ksplice/status")
- (shell "linux-2.6" "~/ksplice/linux-2.6")
+ (shell "linux-2.6" "~/code/linux")
(shell "barnowl-dev" "~/code/barnowl")
(shell "llvm-dev" "~/code/llvm")
;; (shell "mysql" "~/")
- (term "mutt" "~/")
(term "mutt-nelhage" "~/")
- (term "oracle-irc" "~/"))
+ (term "mutt-stripe" "~/")
+ (term "stripe-dev" "~/stripe")
+ (term "devbox" "~/stripe/pay-server")
+ )
"Terminals to create initially")
(defun setup-terminals ()

0 comments on commit 3f09641

Please sign in to comment.