;;; Small config stuff that doesn't fit anywhere else
(require 'legalese)

;;; Domtool

(add-to-list 'load-path (cke-site-lisp-file "/domtool-mode"))
(require 'domtool-mode-startup)

(put 'upcase-region 'disabled nil)
(global-set-key "\C-xg" 'goto-line)

; (add-to-list 'warning-supress-types '(undo discard-info))

;; Server
(server-start)

(global-set-key [?\C-C ?o] #'switch-to-buffer-other-window)
(global-set-key [?\C-C ?.] #'find-tag)

(defun google-region (region-start region-end)
  (interactive "r")
  (browse-url (format "http://google.com/search?q=%s" 
		      (buffer-substring-no-properties 
		       region-start 
		       region-end))))

; (global-set-key [(control ?c) ?g] 'google-region)

(auto-compression-mode 1)

(require 'eshell)

;; Utility shell creation
(defun cke-new-eshell (name)
  (interactive "MShell Name: ")
  (let ((eshell-buffer-name (format "%s<%s>"
				    eshell-buffer-name
				    name)))
    (eshell)))

(defun cke-new-aterm (name)
  (interactive "MTerm Name: ")
  (ansi-term "/bin/bash" (format "ansi-term<%s>" name)))

(global-set-key [?\C-c ?s ?n] #'cke-new-eshell)
(global-set-key [?\C-c ?s ?N] #'cke-new-aterm)

(defun cke-lyrics (band)
  (interactive "sBand: ")
  (let ((band (apply #'concat
		     (split-string (downcase band) " "))))
    (w3m-goto-url-new-session (format "http://darklyrics.com/%s/%s.html"
				      (substring band 0 1)
				      band))))

;; Pop to special buffers
(define-key global-map
  [?\C-c ?g ?g]
  #'(lambda ()
      (interactive)
      (switch-to-buffer "*Group*")))

(define-key global-map [?\C-c ?g ?s] #'slime-selector)

(setq dictionary-server "localhost")

;; Legalese
(setq legalese-default-license 'gpl3)