Add 'dotfiles/emacs.d/' from commit 'c5f9655b3168095e1bbea6c597a72d9f226d1fc0'

git-subtree-dir: dotfiles/emacs.d
git-subtree-mainline: 9204319d7d29f2e51905435b589167adc368f1c9
git-subtree-split: c5f9655b31

dotfiles/emacs.d/.gitignore

@@ -0,0 +1,25 @@
+ac-comphist.dat
+auto-save-list
+eproject.lst
+*.elc
+.smex-items
+places
+backups
+eshell
+url
+bookmarks
+
+elpa
+.python-environments/
+tramp
+server
+.project-roots
+custom.el
+smex-items
+ido.last
+session.*
+var
+skewer-cache
+.org-id-locations
+jabber-avatar-cache
+this-machine.el

dotfiles/emacs.d/.mc-lists.el

@@ -0,0 +1,34 @@
+;; This file is automatically generated by the multiple-cursors extension.
+;; It keeps track of your preferences for running commands with multiple cursors.
+
+(setq mc/cmds-to-run-for-all
+      '(
+        backward-sexp
+        dired-do-rename
+        eval-last-sexp
+        forward-sexp
+        git-rebase-squash
+        git-rebase-undo
+        helm-show-kill-ring
+        isearch-forward-regexp
+        isearch-other-control-char
+        isearch-printing-char
+        keyboard-quit
+        kill-region
+        org-self-insert-command
+        phi-search
+        python-indent-electric-colon
+        sgml-slash
+        skeleton-pair-insert-maybe
+        tern-ac-dot-complete
+        universal-argument-minus
+        wdired-finish-edit
+        ))
+
+(setq mc/cmds-to-run-once
+      '(
+        delete-horizontal-space
+        dired-toggle-read-only
+        isearch-delete-char
+        smex
+        ))

dotfiles/emacs.d/load.d/ensime-imenu.el

@@ -0,0 +1,87 @@
+;; (setq imenu-max-item-length 2000)
+;; (setq imenu-space-replacement nil)
+;; (setq scala-imenu:build-imenu-candidate 'ensime-imenu)
+;; (setq scala-imenu:should-flatten-index t)
+;; (defvar ensime-imenu-cache nil)
+;; (add-to-list 'scala-imenu:cleanup-hooks (lambda () (setq ensime-imenu-cache nil)))
+
+
+;; (defun ensime-imenu (member-name definition-type marker parents)
+;;   `(,(ensime-imenu-string member-name definition-type marker parents) .
+;;     ,marker))
+
+;; (defun ensime-imenu-string (member-name definition-type marker parents)
+;;   (let ((scala-imenu-string (car (scala-imenu:default-build-imenu-candidate 
+;; 			     member-name definition-type marker parents))))
+;;     (if (equal definition-type "def")
+;; 	(let ((ensime-type-string 
+;; 	       (get-ensime-type member-name definition-type marker parents)))
+;; 	  (message ensime-type-string)
+;; 	  (format "%s%s" scala-imenu-string ensime-type-string))
+;;       scala-imenu-string)))
+
+;; (defun get-ensime-type (member-name definition-type marker parents)
+;;   (let ((parent-name (caar parents))
+;; 	(parent-marker (caddar parents)))
+;;     (build-method-type
+;;      (plist-get (type-info member-name parent-name parent-marker) :type))))
+
+;; (defun build-method-type (type-info)
+;;   (format "%s: %s"
+;; 	  (build-argument-lists (plist-get type-info :param-sections))
+;; 	  (build-type-string (plist-get type-info :result-type))))
+
+;; (defun build-argument-lists (param-list-infos)
+;;   (mapconcat 'build-argument-list param-list-infos ""))
+
+;; (defun build-argument-list (param-list-info)
+;;   (format "(%s)" (mapconcat 'build-argument-string 
+;; 			    (plist-get param-list-info :params) ", ")))
+
+;; (defun build-argument-string (param-info)
+;;   (format "%s: %s" (car param-info)
+;; 	  (build-type-string (cadr param-info))))
+
+;; (defun build-type-string (type-info)
+;;   (let ((name (plist-get type-info :name))
+;; 	(type-args (plist-get type-info :type-args)))
+;;     (format "%s%s" name 
+;; 	    (if type-args 
+;; 		(format "[%s]" (mapconcat 
+;; 				'build-type-string type-args ", ")) ""))))
+
+;; (defun type-info (member-name type-name marker)
+;;   (get-plist-by-keys '(:name) member-name
+;; 		     (get-members type-name
+;; 				  (get-ensime-type-info-from-mark marker))))
+
+;; (defun get-members (type-name type-info-plist)
+;;   (plist-get-deep (get-plist-by-keys
+;; 		   '(:type :name) type-name
+;; 		   (plist-get type-info-plist :interfaces)) '(:type :members)))
+
+;; (defun plist-get-deep (plist keys)
+;;   (cl-reduce 'plist-get keys :initial-value plist))
+
+;; (defun get-plist-by-keys (keys value plist)
+;;   (cl-find value plist :test 'equal
+;; 	   :key (lambda (member)
+;; 		  (plist-get-deep member keys))))
+
+;; (defun get-ensime-type-info-from-mark (marker)
+;;   (let ((cached-value (assoc marker ensime-imenu-cache)))
+;;     (when (not cached-value)
+;;       (progn (setq cached-value 
+;; 		   `(,marker . ,(ensime-rpc-inspect-type-at-range (get-eol-range marker))))
+;; 	     (setq ensime-imenu-cache (cons cached-value ensime-imenu-cache))))
+;;     (cdr cached-value)))
+
+;; (defun get-eol-range (marker)
+;;   (interactive)
+;;   `(,(marker-position marker) 
+;;      ,(save-excursion (goto-char marker) (end-of-line) (point))))
+
+;; (defun msg-type-info ()
+;;   (interactive)
+;;   (message "%s" (build-method-type 
+;; 		 (plist-get (type-info "testFunction" "DFA" (point-marker)) :type))))

dotfiles/emacs.d/load.d/mu4e.el

@@ -0,0 +1,60 @@
+(use-package s :ensure t)
+(add-to-list 'load-path (s-trim (shell-command-to-string "mu4e_directory")))
+
+(use-package mu4e
+  :commands mu4e
+  :config
+  (progn
+    (setq mu4e-compose-complete-only-after nil)
+    (setq mu4e-maildir "~/Mail")
+
+    (setq mu4e-drafts-folder "/[Gmail].Drafts")
+    (setq mu4e-sent-folder   "/[Gmail].Sent Mail")
+    (setq mu4e-trash-folder  "/[Gmail].Trash")
+
+    ;; don't save message to Sent Messages, Gmail/IMAP takes care of this
+    (setq mu4e-sent-messages-behavior 'delete)
+
+    ;; setup some handy shortcuts
+    ;; you can quickly switch to your Inbox -- press ``ji''
+    ;; then, when you want archive some messages, move them to
+    ;; the 'All Mail' folder by pressing ``
+
+    ;; allow for updating mail using 'U' in the main view:
+    (setq mu4e-get-mail-command "offlineimap")
+    ;; show images
+    (setq mu4e-show-images t)
+    (add-hook 'mu4e-compose-mode-hook
+              (defun my-do-compose-stuff () (flyspell-mode)))
+    (setq mu4e-update-interval (* 60 20))
+
+    ;; ;; something about ourselves
+    ;; (setq
+    ;;    mu4e-compose-signature
+    ;;     (concat
+    ;;       "Foo X. Bar\n"
+    ;;       "http://www.example.com\n"))
+
+    ;; sending mail -- replace USERNAME with your gmail username
+    ;; also, make sure the gnutls command line utils are installed
+    ;; package 'gnutls-bin' in Debian/Ubuntu
+
+    (require 'smtpmail)
+    ;; (setq message-send-mail-function 'smtpmail-send-it
+    ;;    starttls-use-gnutls t
+    ;;    smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
+    ;;    smtpmail-auth-credentials
+    ;;      '(("smtp.gmail.com" 587 "USERNAME@gmail.com" nil))
+    ;;    smtpmail-default-smtp-server "smtp.gmail.com"
+    ;;    smtpmail-smtp-server "smtp.gmail.com"
+    ;;    smtpmail-smtp-service 587)
+
+    ;; alternatively, for emacs-24 you can use:
+    (setq message-send-mail-function 'smtpmail-send-it
+          smtpmail-stream-type 'starttls
+          smtpmail-default-smtp-server "smtp.gmail.com"
+          smtpmail-smtp-server "smtp.gmail.com"
+          smtpmail-smtp-service 587)
+
+    ;; don't keep message buffers around
+    (setq message-kill-buffer-on-exit t)))