my .emacs

.emacs

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(erc-nick "tzach")
 '(package-selected-packages
   (quote
    (wc-mode arduino-mode magithub magit helm cider emacsql-mysql twittering-mode ## yaml-mode starter-kit-ruby starter-kit-js starter-kit-eshell starter-kit-bindings scss-mode scala-mode markdown-preview-mode markdown-preview-eww less-css-mode langtool json-mode json js2-mode es-windows emstar clojure-project-mode)))
 '(show-paren-mode t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

(add-to-list 'load-path "~/emacs")
(require 'better-defaults)
;;(require 'arduino-mode)

(require 'package)
(add-to-list 'package-archives
             '("marmalade" . "http://marmalade-repo.org/packages/"))
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

(put 'dired-find-alternate-file 'disabled nil)

(add-hook 'dired-mode-hook
 (lambda ()
  (define-key dired-mode-map (kbd "^")
    (lambda () (interactive) (find-alternate-file "..")))
  ; was dired-up-directory
 ))

(transient-mark-mode 1)


(setq auto-mode-alist (cons '("\\.json\\'" . js2-mode) auto-mode-alist))

(require 'go-mode-load)
(require 'tramp)
(setq tramp-default-method "ssh")

(autoload 'markdown-mode "markdown-mode"
  "Major mode for editing Markdown files" t)



(add-to-list 'auto-mode-alist '("\\.text\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))

(add-to-list 'auto-mode-alist '("\\.yaml\\'" . yaml-mode))
(add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))

(add-to-list 'auto-mode-alist '("\\.clj\\'" . paredit-mode))
(add-to-list 'auto-mode-alist '("\\.clj\\'" . clojure-mode))

(put 'downcase-region 'disabled nil)
(setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT"))
(add-hook 'erc-after-connect '(lambda (SERVER NICK)
                                (erc-message "PRIVMSG" "NickServ identify mypassword")))
(require 'erc-join)
(erc-autojoin-mode 1)
(setq erc-autojoin-channels-alist
          '(("freenode.net" "#osv" "#clojure" "#cassandra")
            ))

(defun irc-maybe ()
  "Connect to IRC."
  (interactive)
  (when (y-or-n-p "IRC? ")
    (erc :server "irc.freenode.net" :port 6667
                :nick "tzach")))

(setq erc-hide-list '("JOIN" "PART" "QUIT"))
(setq-default show-trailing-whitespace t)
(put 'upcase-region 'disabled nil)

(auto-fill-mode nil)

(add-hook 'text-mode-hook 'turn-off-auto-fill)

(require 'langtool)
(setq langtool-language-tool-jar "/home/tzach/sw/LanguageTool-3.2/languagetool-commandline.jar")

;; overwrite selected text
(delete-selection-mode 1)
(setq select-enable-primary nil)

(setq github-project-prefix "https://github.com/scylladb/scylla/issues/")

(defun create-github-issue (string  &optional from to)
  "replace a #xxx with [#xxx](https://github.com/scylladb/scylla/issues/xxx)"
  (interactive
   (if (use-region-p)
       (list nil (region-beginning) (region-end))
     (let ((bds (bounds-of-thing-at-point 'paragraph)) )
       (list nil (car bds) (cdr bds)) ) ) )
  (let (workOnStringP inputStr outputStr)
    (setq workOnStringP (if string t nil))
    (setq inputStr (if workOnStringP string (buffer-substring-no-properties from to)))
    (setq outputStr
          (let ((case-fold-search t))
            (replace-regexp-in-string "#\\([0-9]+\\)" (concat "[#\\1](" github-project-prefix "\\1)") inputStr)))
    (if workOnStringP
        outputStr
      (save-excursion
        (delete-region from to)
        (goto-char from)
        (insert outputStr)))))

(defun create-html-github-issue (string  &optional from to)
  "replace a #xxx with <a href=\"https://github.com/scylladb/scylla/issues/xxx\">#xxx</a>"
  (interactive
   (if (use-region-p)
       (list nil (region-beginning) (region-end))
     (let ((bds (bounds-of-thing-at-point 'paragraph)) )
       (list nil (car bds) (cdr bds)) ) ) )
  (let (workOnStringP inputStr outputStr)
    (setq workOnStringP (if string t nil))
    (setq inputStr (if workOnStringP string (buffer-substring-no-properties from to)))
    (setq outputStr
          (let ((case-fold-search t))
            (replace-regexp-in-string "#\\([0-9]+\\)" (concat "<a href=\"" github-project-prefix "\\1\">#\\1</a>") inputStr)))
;;            (replace-regexp-in-string "#\\([0-9]+\\)" (concat "[#\\1]("    github-project-prefix "\\1)"            ) inputStr)))
    (if workOnStringP
        outputStr
      (save-excursion
        (delete-region from to)
        (goto-char from)
        (insert outputStr)))))



(setq sql-mysql-options '("--prompt=mysql> "))

(require 'cider)
(setq cider-cljs-lein-repl
      "(do (require 'figwheel-sidecar.repl-api)
           (figwheel-sidecar.repl-api/start-figwheel!)
           (figwheel-sidecar.repl-api/cljs-repl))")

;; magit
(global-set-key (kbd "C-x g") 'magit-status)