;;; Small config stuff that doesn't fit anywhere else

(transient-mark-mode -1)

;; I want to save TRAMP files... (most of my editing is done attached
;; to a remote Lisp image)
(setq desktop-files-not-to-save "^$")

;;; 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
(require 'legalese)
(setq legalese-default-license 'gpl3)

;; Save desktop on exit
(add-hook 'kill-emacs-query-functions 
	  #'(lambda () (desktop-save (getenv "HOME"))))

(setq ps-print-color-p 'black-white)

(require 'nxml-mode)
(fset 'xml-mode 'nxml-mode)

(setq shift-select-mode nil)

;; SQL mode help (postgres only, but whatever)

;; doesn't quite work properly...
(info-lookup-add-help
 :mode 'sql-mode
 :regexp "\([[:alpha:]]\|[[:space:]]\)\{1,2\}"
 :ignore-case t
 :doc-spec '(("(postgres)Concept Index" nil nil nil)))

(require 'sql)

(setq sql-product 'postgres)
(setq sql-postgres-options (append sql-postgres-options (list "-p 5432")))


(setq browse-url-browser-function
      '(("/usr/share/doc/hyperspec/.*" . cke-browse-url-docs)
	(".*" . browse-url-generic)))

(setq browse-url-generic-program "sensible-browser")

(setq dict-servers '("localhost"))

(require 'htmlize)
(require 'bar-cursor)

(bar-cursor-mode 1)
(iswitchb-mode)