massive update - gone with that guys config - partially implemented

1 files changed, 380 insertions, 0 deletions

diff --git a/configuration.el b/configuration.el
new file mode 100644
index 0000000..562a81a
--- /dev/null
+++ b/configuration.el
@@ -0,0 +1,380 @@
+(require 'package)
+
+(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
+                         ("marmalade" . "https://marmalade-repo.org/packages/")
+                         ("melpa" . "https://melpa.org/packages/")
+			 ("org" . "https://orgmode.org/elpa/")))
+
+(defvar my-packages '(ac-cider
+                      ac-js2
+                      ag
+                      atomic-chrome
+                      auto-complete
+                      beacon
+		      blacken
+                      browse-kill-ring
+                      cider
+                      clj-refactor
+                      clojure-mode
+                      coffee-mode
+                      counsel-jq
+                      comment-tags
+                      darktooth-theme
+                      dired-narrow
+                      diminish
+                      dumb-jump
+                      edit-indirect
+                      editorconfig
+		      elpy
+                      elfeed
+                      elfeed-goodies
+                      enh-ruby-mode
+                      erc-image
+                      evil
+                      evil-escape
+                      evil-leader
+                      evil-mc
+                      evil-numbers
+                      evil-surround
+                      exec-path-from-shell
+                      forge
+                      flycheck
+                      flycheck-flow
+                      go-mode
+                      hide-mode-line
+                      ido-vertical-mode
+                      impatient-mode
+                      ini-mode
+                      ivy counsel swiper
+                      json-mode
+                      js2-mode
+                      js2-refactor
+                      js-comint
+                      ledger-mode
+                      lsp-mode
+                      lsp-ui
+                      lsp-ivy
+                      magit
+                      markdown-mode
+                      package-lint
+                      parinfer
+                      pdf-tools
+                      projectile
+		      py-autopep8
+		      org
+                      rainbow-mode
+                      rjsx-mode
+                      ob-restclient
+                      restclient
+                      robe
+                      sass-mode
+                      spacemacs-theme
+                      spaceline
+                      smex
+                      synosaurus
+                      tide
+                      visual-fill-column
+                      web-mode
+                      which-key
+                      writegood-mode
+                      writeroom-mode
+                      yaml-mode
+                      zenburn-theme))
+
+(dolist (p my-packages)
+  (unless (package-installed-p p)
+    (package-refresh-contents)
+    (package-install p))
+  (add-to-list 'package-selected-packages p))
+
+(setq savehist-file "~/.emacs.d/savehist")
+(savehist-mode +1)
+(setq savehist-save-minibuffer-history +1)
+(setq savehist-additional-vriables
+      '(kill-ring
+        search-ring
+        regexp-search-ring))
+
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+(tooltip-mode -1)
+(menu-bar-mode -1)
+(add-to-list 'default-frame-alist '(font . "Hack-8"))
+
+(if (string< emacs-version
+         "26.3")
+      (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3"))
+
+(setq gc-cons-threshold 20000000)
+
+(setq make-backup-files nil)
+
+(setq backup-directory-alist
+      `((".*" . ,temporary-file-directory)))
+(setq auto-save-file-name-transforms
+      `((".*" ,temporary-file-directory t)))
+
+(setq vc-follow-symlinks t)
+
+(setq sentence-end-double-space nil)
+
+(setq confirm-kill-emacs 'y-or-n-p)
+
+(put 'dired-find-alternate-file 'disabled nil)
+
+(setq-default dired-listing-switches "-alh")
+
+(setq dired-recursive-copies 'always)
+
+(require 'dired)
+(define-key dired-mode-map (kbd "/") 'dired-narrow-fuzzy)
+
+(fset 'yes-or-no-p 'y-or-n-p)
+
+(global-auto-revert-mode t)
+
+(defun zoom-in ()
+  (interactive)
+  (let ((x (+ (face-attribute 'default :height)
+              10)))
+    (set-face-attribute 'default nil :height x)))
+
+(defun zoom-out ()
+  (interactive)
+  (let ((x (- (face-attribute 'default :height)
+              10)))
+    (set-face-attribute 'default nil :height x)))
+
+(define-key global-map (kbd "C-1") 'zoom-in)
+(define-key global-map (kbd "C-0") 'zoom-out)
+
+(setq inhibit-splash-screen t)
+(setq inhibit-startup-message t)
+
+(display-time-mode t)
+
+(tool-bar-mode 0)
+
+(add-hook 'org-mode-hook 'auto-fill-mode)
+
+(put 'narrow-to-region 'disabled nil)
+
+(scroll-bar-mode -1)
+
+(setq save-place-file "~/.emacs.d/saveplace")
+(setq-default save-place t)
+(require 'saveplace)
+
+(exec-path-from-shell-initialize)
+
+(when (fboundp 'windmove-default-keybindings)
+  (windmove-default-keybindings))
+
+(when (fboundp 'winner-mode)
+  (winner-mode 1))
+
+(setq visible-bell t)
+
+(setq ange-ftp-try-passive-mode t)
+
+(add-hook 'eww-mode-hook 'scroll-lock-mode)
+
+(setq custom-file "~/.emacs.d/custom-settings.el")
+(load custom-file t)
+
+(ac-config-default)
+
+(setq-default tab-width 2)
+
+(setq-default tab-width 2 indent-tabs-mode nil)
+
+(setq-default indent-tabs-mode nil)
+
+(setq js-indent-level 2)
+(setq coffee-tab-width 2)
+(setq python-indent 2)
+(setq css-indent-offset 2)
+(add-hook 'sh-mode-hook
+          (lambda ()
+            (setq sh-basic-offset 2
+                  sh-indentation 2)))
+(setq web-mode-markup-indent-offset 2)
+
+(add-hook 'after-init-hook #'global-flycheck-mode)
+
+(setq comment-tags-keymap-prefix (kbd "C-c t"))
+(with-eval-after-load "comment-tags"
+  (setq comment-tags-keyword-faces
+        `(;; A concrete TODO with actionable steps
+          ("TODO" . ,(list :weight 'bold :foreground "#DF5427"))
+          ;; A non-concrete TODO. We only know something is broken/amiss.
+          ("FIXME" . ,(list :weight 'bold :foreground "#DF5427"))
+          ;; Works, but is a code smell (quick fix). Might break down the line.
+          ("HACK" . ,(list :weight 'bold :foreground "#DF5427"))
+          ;; Assumption that needs to be verified.
+          ("CHECK" . ,(list :weight 'bold :foreground "#CC6437"))
+          ;; Use to highlight a regular, but especially important, comment.
+          ("NOTE" . ,(list :weight 'bold :foreground "#1FDA9A"))
+          ;; Use to highlight a regular, but especially important, comment.
+          ("INFO" . ,(list :weight 'bold :foreground "#1FDA9A"))))
+  (setq comment-tags-comment-start-only t
+        comment-tags-require-colon t
+        comment-tags-case-sensitive t
+        comment-tags-show-faces t
+        comment-tags-lighter nil))
+(add-hook 'prog-mode-hook 'comment-tags-mode)
+
+(define-key global-map (kbd "RET") 'newline-and-indent)
+
+(show-paren-mode t)
+
+(add-hook 'before-save-hook '(lambda()
+                              (when (not (or (derived-mode-p 'markdown-mode)))
+                                (delete-trailing-whitespace))))
+
+(add-hook 'prog-mode-hook #'hs-minor-mode)
+
+(add-hook 'prog-mode-hook '(lambda ()
+                             (if (version<= emacs-version "26.0.50")
+                                 (linum-mode)
+                               (display-line-numbers-mode))))
+
+(elpy-enable)
+;;(setq elpy-rpc-python-command "~/.virtualenvs/elpy-rpc/bin/python3")
+
+(require 'py-autopep8)
+(add-hook 'elpy-mode-hook 'py-autopep8-enable-on-save)
+
+(setq python-shell-interpreter "ptipython"
+      python-shell-interpreter-args "console --simple-prompt"
+      python-shell-prompt-detect-failure-warning nil)
+(add-to-list 'python-shell-completion-native-disabled-interpreters
+             "ptipython")
+
+(when (require 'flycheck nil t)
+  (setq elpy-modules (delq 'elpy-module-flymake elpy-modules))
+  (add-hook 'elpy-mode-hook 'flycheck-mode))
+
+(require 'lsp-mode)
+(add-to-list 'auto-mode-alist '("\\.go\\'" . go-mode))
+(add-hook 'go-mode-hook 'lsp-deferred)
+(require 'go-autocomplete)
+(require 'auto-complete-config)
+(ac-config-default)
+
+(global-set-key "\C-cl" 'org-store-link)
+(global-set-key "\C-ca" 'org-agenda)
+(global-set-key "\C-cb" 'org-iswitchb)
+(global-set-key "\C-cc" 'org-capture)
+
+(setq calendar-date-style "european")
+
+;; use fast selection
+(setq org-use-fast-todo-selection t)
+
+;; switch state without normal processing
+(setq org-treat-S-cursor-todo-selection-as-state-change nil)
+
+;; basic agenda stuff
+(setq org-sort-agenda-notime-is-late nil)
+(setq org-directory "~/Nextcloud/org")
+(setq org-agenda-files '("~/Nextcloud/org"))
+(setq org-default-notes-file (concat org-directory "/refile.org"))
+(setq diary-file "~/Nextcloud/org/diary")
+(setq org-agenda-include-diary t)
+(setq org-agenda-skip-deadline-if-done t)
+(setq org-reverse-note-order t)
+(setq org-sort-agenda-notime-is-late nil)
+
+(setq org-archive-location "~/Nextcloud/org/archive.org::* From %s")
+
+(setq org-refile-targets (quote ((nil :maxlevel . 9)
+                 (org-agenda-files :maxlevel . 9))))
+
+(setq org-agenda-custom-commands
+      (quote (("N" "Agenda and NEXT TODOs"
+	       ((agenda "")
+		(todo "NEXT")))
+	      ("y" "Agenda and All TODOS"
+	       ((agenda "")
+		(alltodo ""))))))
+
+(define-key global-map "\C-cc" 'org-capture)
+(setq org-default-notes-file "~/Nextcloud/org/refile.org")
+(setq org-capture-templates
+      (quote (("t" "Todo" entry (file "~/Nextcloud/org/todo.org")
+               "* TODO %?")
+              ("j" "Journal" entry (file+datetree "~/Nextcloud/org/journal.org")
+               "* %?\nEntered on %U\n %i\n %a")
+              ("e" "Emacs Tip" entry (file+headline "~/Nextcloud/org/emacs-tips.org" "Emacs Tips")
+               "* %?\n %i\n %a"))))
+
+(setq org-todo-keywords
+      (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
+              (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING"))))
+
+(setq org-todo-keyword-faces
+      (quote (("TODO" :foreground "red" :weight bold)
+              ("NEXT" :foreground "blue" :weight bold)
+              ("DONE" :foreground "forest green" :weight bold)
+              ("WAITING" :foreground "orange" :weight bold)
+              ("HOLD" :foreground "magenta" :weight bold)
+              ("CANCELLED" :foreground "forest green" :weight bold)
+              ("MEETING" :foreground "forest green" :weight bold)
+              ("PHONE" :foreground "forest green" :weight bold))))
+
+;; tag stuff automatically dependent on a change of state
+(setq org-todo-state-tags-triggers
+      (quote (("CANCELLED" ("CANCELLED" . t))
+              ("WAITING" ("WAITING" . t))
+              ("HOLD" ("WAITING") ("HOLD" . t))
+              (done ("WAITING") ("HOLD"))
+              ("TODO" ("WAITING") ("CANCELLED") ("HOLD"))
+              ("NEXT" ("WAITING") ("CANCELLED") ("HOLD"))
+              ("DONE" ("WAITING") ("CANCELLED") ("HOLD")))))
+
+(setq org-priority-faces
+      '((?A . (:foreground "#CC0000" :background "#FFE3E3"))
+	(?B . (:foreground "#64992C" :background "#EBF4DD"))
+	(?C . (:foreground "#64992C" :background "#FFFFFF"))))
+
+(setq org-ellipsis "...")
+
+(ido-mode t)
+(ido-everywhere t)
+(setq ido-enable-flex-matching t)
+
+(ido-vertical-mode 1)
+(setq ido-vertical-define-keys 'C-n-and-C-p-only)
+(setq ido-vertical-show-count t)
+
+(setq enable-recursive-minibuffers t)
+(global-set-key (kbd "<f6>") 'ivy-resume)
+
+(setq ivy-count-format "(%d/%d) ")
+
+(setq ivy-wrap t)
+
+(global-set-key "\C-s" 'swiper)
+
+(global-set-key (kbd "C-x b") 'counsel-ibuffer)
+;; Run `counsel-ag` against the current directory and not against the
+;; whole project
+(global-set-key (kbd "C-c k") '(lambda()
+                                 (interactive)
+                                 (counsel-ag "" default-directory nil nil)))
+(global-set-key (kbd "C-x l") 'counsel-locate)
+(define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history)
+
+(global-set-key (kbd "M-x") (lambda ()
+                              (interactive)
+                              (counsel-M-x "")))
+
+(add-hook 'pdf-view-mode-hook '(lambda()
+                                 (define-key pdf-view-mode-map "\C-s" 'isearch-forward)))
+
+(setq projectile-completion-system 'ivy)
+
+(setq mu4e-completing-read-function 'ivy-completing-read)
+
+(setq synosaurus-choose-method 'ivy-read)