;; git version of gnus
;; (add-to-list 'load-path "~/.emacs.d/src/gnus/lisp")
;; (eval-after-load "info"
;; (quote (add-to-list 'Info-default-directory-list "~/.emacs.d/src/gnus/texi")))

;; needed for git version
;;(add-to-list 'load-path "~/.emacs.d/src/haskell-mode")
;;(require 'haskell-mode-autoloads)
;;(add-to-list 'Info-default-directory-list "~/.emacs.d/src/haskell-mode")

;; for using custom/upstream bbdb
;;(require 'bbdb-loaddefs "~/.emacs.d/src/bbdb/lisp/bbdb-loaddefs.el")
;;(setq bbdb-print-tex-path "~/.emacs.d/src/bbdb/tex")


;; iank: dunno what this was about
;;(add-hook 'server-visit-hook 'raise-frame)


;;;; alternate keyboards
;; todo, figure out an easy way to disable this when using external keyboard
;; (if (display-graphic-p)
;;     (setq
;;      enter-key (kbd "<return>")
;;      s-enter-key (kbd "<S-return>")
;;      c-m-enter-key (kbd "<C-M-return>")
;;      m-enter (kbd "<M-return>")
;;      c-enter (kbd "<C-return>"))
;;   (setq
;;    enter-key (kbd "C-m")
;;    s-enter-key (kbd "C-8")
;;    c-m-enter-key (kbd "C-M-8")
;;    m-enter (kbd "M-m")
;;    c-enter (kbd "C-8")))


(setq tp (string= (system-name) "tp"))
(setq x200 (string= (system-name) "x2"))
(setq laptop-keyboard (or tp x200))