prefs.el

(custom-set-variables '(package-archives
  (quote
   (
    ;; ("marmalade" . "http://marmalade-repo.org/packages/")
    ("melpa" . "http://melpa.org/packages/")
    ("gnu" . "http://elpa.gnu.org/packages/")))))

(setq package-enable-at-startup nil)
(package-initialize)

(message "Package Initialized")

;; load paths
;; http://zmjones.com/mac-setup.html
(require 'key-combo)

(key-combo-mode 1)

(add-hook 'ess-mode-hook
        '(lambda()
           (key-combo-mode t)))

(add-hook 'inferior-ess-mode-hook
        '(lambda()
           (key-combo-mode t)))

(defvar key-combo-ess-default
      '((">"  . (" > " " %>% "))
        ("$"  . ("$" " %$% "))
        ("<>" . " %<>% ")
        ("*"  . ("*" " * "))
    ("%" . ("%" "%*%" "%%"))
        ("^"  . ("^" " ^ "))
        ("/"  . ("/" " / "))
        ("~" . " ~ ")
        (":" . (":" "::" ":::"))
        (":="  . " := ") ; data.table
        ("->"  . " -> ")))


(key-combo-define-hook '(ess-mode-hook inferior-ess-mode-hook)
               'ess-key-combo-load-default
               key-combo-ess-default)


(message "Key Hooks")

(unless (display-graphic-p)
  (menu-bar-mode -1))

(define-derived-mode pydbx-mode
            python-mode "PythonDatabricks"
            "Syntax Highlight for Databricks."
            )


(setq mybase "~/gd/mystuff")
(if (eq system-type 'darwin)
    (progn
      (setq mybase "~/mystuff")
      (setq load-path  (cons (expand-file-name (format "%s/site-lisp" mybase)) load-path))
      )
  (if (eq system-type 'windows-nt)
      (progn
        (setq mybase "~")
	(setq load-path
              (cons (expand-file-name (format "%s/site-lisp" mybase)) load-path)))))


(setq ispell-program-name "/usr/local/bin/aspell")

(message "Directories and aspell")

;; (eval-when-compile
;;   (require 'use-package))
;;(require 'diminish)                ;; if you use :diminish
(require 'bind-key)
;;(setq tramp-default-method 'ssh)
(add-hook 'markdown-mode-hook
          (lambda ()
            (when buffer-file-name
              (add-hook 'after-save-hook
                        'check-parens
                        nil t))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; recentf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;(run-at-time nil (* 5 60) 'recentf-save-list)
(setq recentf-max-saved-items 150)
(setq recentf-max-menu-items 75)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Matching Parentheses
;; see http://emacs-fu.blogspot.com/2009/01/balancing-your-parentheses.html
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq frame-title-format '("Emacs " "%b"))
(if window-system
    (tool-bar-mode 1))
(setq make-backup-files nil)
(global-set-key (kbd "C-c o") 'occur)
(setq savehist-additional-variables    ;; also save...
      '(search-ring regexp-search-ring)    ;; my search entries
      savehist-file "~/.emacs.d/savehist") ;; keep my home clean
(savehist-mode t)

(setq flyspell-issue-message-flag nil)
(global-set-key (kbd "C-x 8") 'flyspell-check-previous-highlighted-word)

(message "Step 1")

;;-------------------------------------------------------------------------------
;; tabs as spaces
;;------------------------------------------------------------------------------
(setq-default indent-tabs-mode nil)

;;;;;;;;;;;;;;;;;;;;;;;
;; Bookmark Handling ;;
;;;;;;;;;;;;;;;;;;;;;;;
(require 'bm)
(global-set-key (kbd "M-'") 'bm-toggle) 
(global-set-key (kbd "M-\"")   'bm-next)
;;(global-set-key (kbd "s-\"") 'bm-previous)

(message "Step 2")
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;; Usage Notes
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'ess)
(require 'helm)
(use-package helm-swoop                 
  :bind (("M-i" . helm-swoop)
         ("M-I" . helm-swoop-back-to-last-point)
         ("C-c M-i" . helm-multi-swoop))
  :config
  ;; When doing isearch, hand the word over to helm-swoop
  (define-key isearch-mode-map (kbd "M-i") 'helm-swoop-from-isearch)
  ;; From helm-swoop to helm-multi-swoop-all
  (define-key helm-swoop-map (kbd "M-i") 'helm-multi-swoop-all-from-helm-swoop)
  ;; Save buffer when helm-multi-swoop-edit complete
  (setq helm-multi-swoop-edit-save t
        ;; If this value is t, split window inside the current window
        helm-swoop-split-with-multiple-windows t
        ;; Split direcion. 'split-window-vertically or 'split-window-horizontally
        helm-swoop-split-direction 'split-window-vertically
        ;; If nil, you can slightly boost invoke speed in exchange for text color
        helm-swoop-speed-or-color nil))


;; (helm-mode t)
(require 'helm-dired-recent-dirs)
(setq helm-ff-file-name-history-use-recentf t
      helm-buffers-fuzzy-matching t
      helm-everywhere t
      helm-autoresize-mode t
      helm-recentf-fuzzy-match    t)
(setq helm-mini-default-sources '(helm-source-buffers-list
                                  helm-source-dired-recent-dirs
                                  helm-source-recentf
                                  helm-source-buffer-not-found))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; proper commenting and stuff like aquamacs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun comment-or-uncomment-region-or-line ()
    "Comments or uncomments the region or the current line if there's no active region."
    (interactive)
    (let (beg end)
      (if (region-active-p)
          (setq beg (region-beginning) end (region-end))
        (setq beg (line-beginning-position) end (line-end-position)))
      (comment-or-uncomment-region beg end)
      (next-line)))
(global-set-key (kbd "s-;")   'comment-or-uncomment-region-or-line) 

(defun new-empty-buffer ()
  "Opens a new empty buffer."
  (interactive)
  (let ((buf (generate-new-buffer "untitled")))
    (let ((mode major-mode))
      (message "Mode is %s" mode)
      (switch-to-buffer buf)
      (funcall  mode))
    (setq buffer-offer-save t)))
(global-set-key (kbd "M-t")   'new-empty-buffer )

;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Edit server
;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'auto-mode-alist '("md$" . markdown-mode))
(add-hook 'markdown-mode-hook (lambda()
			       (set-fill-column 80)
			       (auto-fill-mode 1)
			       (flyspell-mode 1)))



(if (eq system-type 'windows-nt)
    (progn
      (menu-bar-mode t)
      (tool-bar-mode -1)))

(let ((alist '((33 . ".\\(?:\\(?:==\\)\\|[!=]\\)")
               (35 . ".\\(?:[(?[_{]\\)")
               (38 . ".\\(?:\\(?:&&\\)\\|&\\)")
               (42 . ".\\(?:\\(?:\\*\\*\\)\\|[*/]\\)")
               (43 . ".\\(?:\\(?:\\+\\+\\)\\|\\+\\)")
               (45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
               (46 . ".\\(?:\\(?:\\.[.<]\\)\\|[.=]\\)")
               (47 . ".\\(?:\\(?:\\*\\*\\|//\\|==\\)\\|[*/=>]\\)")
               (58 . ".\\(?:[:=]\\)")
               (59 . ".\\(?:;\\)")
               (60 . ".\\(?:\\(?:!--\\)\\|\\(?:\\$>\\|\\*>\\|\\+>\\|--\\|<[<=-]\\|=[<=>]\\||>\\)\\|[/<=>|-]\\)")
               (61 . ".\\(?:\\(?:/=\\|:=\\|<<\\|=[=>]\\|>>\\)\\|[<=>~]\\)")
               (62 . ".\\(?:\\(?:=>\\|>[=>-]\\)\\|[=>-]\\)")
               (63 . ".\\(?:[:=?]\\)")
               (92 . ".\\(?:\\(?:\\\\\\\\\\)\\|\\\\\\)")
               (94 . ".\\(?:=\\)")
               (123 . ".\\(?:-\\)")
               (124 . ".\\(?:\\(?:|[=|]\\)\\|[=>|]\\)")
               (126 . ".\\(?:[=@~-]\\)")
               )
             ))
  (dolist (char-regexp alist)
    (set-char-table-range composition-function-table (car char-regexp)
                          `([,(cdr char-regexp) 0 font-shape-gstring]))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Web Mode for HTML because plain HTML SUCKS
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode))
(add-to-list 'auto-mode-alist '("\\.css?\\'" . web-mode))
(defun my-web-mode-hook ()
  "Hooks for Web mode."
  (setq web-mode-markup-indent-offset 2)
  (setq web-mode-css-indent-offset 2)
  (setq web-mode-code-indent-offset 2)
  (setq web-mode-enable-css-colorization t)
  (setq web-mode-enable-block-face t)
  (setq web-mode-enable-comment-keywords t)
  (setq web-mode-enable-current-element-highlight t)
  (setq web-mode-enable-current-column-highlight t)
  )
(add-hook 'web-mode-hook  'my-web-mode-hook)

(delete-selection-mode 1)
(show-paren-mode 1)
(use-package undo-tree
  :init (global-undo-tree-mode t)
  :defer t
  :diminish ""
  :config
  (progn
    (define-key undo-tree-map (kbd "C-x u") 'undo-tree-visualize)
        (define-key undo-tree-map (kbd "C-/") 'undo-tree-undo)))


(use-package ido
  :config
  (use-package flx-ido
    :init (flx-ido-mode 1)
    :config (setq ido-use-faces nil))
  (use-package ido-vertical-mode
    :init (ido-vertical-mode t))
  (setq ido-use-virtual-buffers nil
        ;; this setting causes weird TRAMP connections, don't set it!
        ;;ido-enable-tramp-completion nil
        ido-enable-flex-matching t
        ido-auto-merge-work-directories-length nil
        ido-create-new-buffer 'always
        ido-use-filename-at-point 'guess
                ido-max-prospects 10))


(message "Styep 4")
(use-package multiple-cursors
  :bind (("C-S-c C-S-c" . mc/edit-lines)
         ("C->" . mc/mark-next-like-this)
         ("C-<" . mc/mark-previous-like-this)
                  ("C-c C-<" . mc/mark-all-like-this)))


(defun beautify-json ()
  (interactive)
  (let ((b (if mark-active (min (point) (mark)) (point-min)))
        (e (if mark-active (max (point) (mark)) (point-max))))
    (shell-command-on-region b e "python -mjson.tool" (current-buffer) t)))

(defun xah-forward-block (&optional φn)
    "Move cursor forward to the beginning of next text block.
A text block is separated by blank lines. In most major modes,
this is similar to `forward-paragraph', but this command's
behavior is the same regardless of syntax table."
    (interactive "p")
    (search-forward-regexp "\n[\t\n ]*\n+" nil "NOERROR" φn))

(defun xah-backward-block (&optional φn)
    "Move cursor backward to previous text block.
See: `xah-forward-block'"
    (interactive "p")
    (dotimes (ξn φn) (if (search-backward-regexp "\n[\t\n ]*\n+" nil "NOERROR")
                         (progn
                           (skip-chars-backward "\n\t "))
                       (progn (goto-char (point-min))))))

(global-set-key (kbd "<C-up>") 'xah-backward-block)
(global-set-key (kbd "<C-down>") 'xah-forward-block)
;;Use M-{ and M-} to activate the abbove(opt+shift+{)

(require 'gist)
(set-face-attribute 'fringe nil
                      :foreground (face-foreground 'default)
                      :background (face-background 'default))
(require 'poly-R)
(require 'poly-markdown)
(add-to-list 'auto-mode-alist '("\\.md" . poly-markdown-mode))
(add-to-list 'auto-mode-alist '("\\.Snw" . poly-noweb+r-mode))
(add-to-list 'auto-mode-alist '("\\.Rnw" . poly-noweb+r-mode))
(add-to-list 'auto-mode-alist '("\\.Rmd" . poly-markdown+r-mode))
;;(add-to-list 'ibuffer-never-show-predicates ".*\\[.*\\]$")


(defun send-to-tmux (beg end &optional arg)
  "message region or \"empty string\" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning)
                         (region-end)
                         (if current-prefix-arg
                             (read-from-minibuffer "tmux buffer name: ")
                           "zillabilla")
                         )
                 (progn
                   (move-beginning-of-line nil)
                   (set-mark-command nil)
                   (move-end-of-line nil)
                    (setq deactivate-mark nil)
                    (list (region-beginning) (region-end) "zillabilla"))))
  (let ( (fname (make-temp-file "foo")))
    (if ( and beg end )
        (progn 
          ( write-region beg end fname)
          ;;https://www.gnu.org/software/emacs/manual/html_node/elisp/Synchronous-Processes.html
          ( call-process "~/sendtmux.py" nil nil nil fname arg)
          )
      )
    )
  (goto-char (region-end))
  (deactivate-mark)
  )
(global-set-key (kbd "C-x ,") 'send-to-tmux)



(defun send-to-dbx (beg end &optional arg)
  "message region or \"empty string\" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning)
                         (region-end)
                         (if current-prefix-arg
                             (read-from-minibuffer "tmux buffer name: ")
                           "zillabilla")
                         )
                 (progn
                   (move-beginning-of-line nil)
                   (set-mark-command nil)
                   (move-end-of-line nil)
                    (setq deactivate-mark nil)
                    (list (region-beginning) (region-end) "zillabilla"))))
  (let ( (fname (make-temp-file "foo")))
    (if ( and beg end )
        (progn 
          ( write-region beg end fname)
          ;;https://www.gnu.org/software/emacs/manual/html_node/elisp/Synchronous-Processes.html
          ( call-process "~/sendtmuxdbx.py" nil nil "*Messages*" fname arg)
          )
      )
    )
  (goto-char (region-end))
  (deactivate-mark)
  )
(global-set-key (kbd "C-x .") 'send-to-dbx)




(defun fling (beg end &optional arg)
  "message region or \"empty string\" if none highlighted"
  (interactive (if (use-region-p)
                   (list (region-beginning)
                         (region-end)
                         (if current-prefix-arg
                             (read-from-minibuffer "tmux buffer name: ")
                           "zillabilla")
                         )
                 (progn
                   (move-beginning-of-line nil)
                   (set-mark-command nil)
                   (move-end-of-line nil)
                    (setq deactivate-mark nil)
                    (list (region-beginning) (region-end) "zillabilla"))))
  (let ( (fname (make-temp-file "loo")))
    (if ( and beg end )
        (progn 
          ( write-region beg end fname)
          ;;https://www.gnu.org/software/emacs/manual/html_node/elisp/Synchronous-Processes.html
          ( start-process "foo" "foo2" "~/fling_sender.py" fname)
          )
      )
    )
  (goto-char (region-end))
  (deactivate-mark)
  )


(xterm-mouse-mode)
(global-set-key (kbd "S-C-<up>") 'enlarge-window)
(global-set-key (kbd "S-C-<down>") 'shrink-window)
(global-set-key (kbd "S-C-<left>") 'shrink-window-horizontally)
(global-set-key (kbd "S-C-<right>") 'enlarge-window-horizontally)


(global-unset-key [double-mouse-3])