Initial commit of Quiescent Emacs

.gitignore

@@ -0,0 +1,40 @@
+# Ignored File Types
+*.cache
+*.data
+*.elc
+*.eld
+*.jpg
+*.out
+*.zip
+*~
+
+# Folders
+.cask/
+url/
+4clojure-answers/
+request/
+semanticdb/
+server/
+cedet/
+predictive/
+elpa/
+
+# Files
+org-settings/inbox.org
+conf/quiescent-system-choice.el
+conf/mail-settings.el
+eshell/history
+eshell/lastdir
+abbrev_defs
+bookmarks
+history
+org-clock-save.el
+places
+recentf
+snippets/**/.yas*.el
+srecode-map.el
+startup.el
+tramp
+company-statistics-cache.el
+recentf
+.org-id-locations

.mc-lists.el

@@ -0,0 +1,145 @@
+;; 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
+      '(
+        Custom-newline
+        artist-backward-char
+        artist-forward-char
+        artist-next-line
+        artist-previous-line
+        artist-toggle-first-arrow
+        auto-completion-self-insert
+        backward-sexp
+        backward-up-list
+        beginning-of-buffer
+        c-electric-brace
+        c-electric-colon
+        c-electric-delete-forward
+        c-electric-paren
+        c-electric-semi&comma
+        c-electric-slash
+        complete-or-cycle-word-at-point
+        complete-symbol
+        completion-at-point
+        completion-backward-delete-char
+        completion-delete-char
+        completion-fill-paragraph
+        completion-kill-line
+        completion-kill-sexp
+        completion-resolve-then-run-command
+        completion-self-insert
+        completion-yank
+        composable-kill-region
+        composable-save-region
+        dabbrev-completion
+        delete-horizontal-space
+        dired-mark
+        dired-next-line
+        down-list
+        ediff-dir-diff-copy-file
+        electric-pair-delete-pair
+        eval-expression
+        forward-sexp
+        gnus-summary-mark-as-read-forward
+        haskell-indentation-common-electric-command
+        haskell-indentation-newline-and-indent
+        helm-show-kill-ring
+        ibuffer-mark-for-delete
+        ibuffer-mark-forward
+        indent-for-tab-command
+        iy-go-to-char--command
+        jdee-kill-camel-tok
+        js2-line-break
+        kill-sentence
+        kill-sexp
+        magit-discard
+        magit-stage
+        mark-defun
+        mark-sexp
+        markdown-outdent-or-delete
+        org-beginning-of-line
+        org-cycle
+        org-delete-char
+        org-end-of-line
+        org-force-self-insert
+        org-forward-sentence
+        org-kill-line
+        org-open-line
+        org-return
+        org-schedule
+        org-self-insert-command
+        org-shiftdown
+        org-yank
+        other-frame
+        paredit-backslash
+        paredit-backward
+        paredit-backward-up
+        paredit-doublequote
+        paredit-forward
+        paredit-forward-delete
+        paredit-forward-down
+        paredit-forward-kill-word
+        paredit-forward-slurp-sexp
+        paredit-kill
+        paredit-open-round
+        paredit-raise-sexp
+        paredit-semicolon
+        picture-clear-column
+        picture-clear-line
+        picture-end-of-line
+        picture-self-insert
+        proced-mark
+        python-nav-backward-up-list
+        quiescent-correct-linting-errors-at-point
+        quiescent-hydra-iy-go-to-char/nil
+        rjsx-delete-creates-full-tag
+        save-some-buffers
+        sh-assignment
+        smartscan-symbol-go-backward
+        sp-backward-delete-char
+        sp-backward-kill-word
+        sp-delete-char
+        sp-forward-slurp-sexp
+        sp-kill-hybrid-sexp
+        sp-kill-word
+        sp-raise-sexp
+        sp-remove-active-pair-overlay
+        transpose-sexps
+        transpose-words
+        typescript-insert-and-indent
+        undefined
+        wdired-capitalize-word
+        wdired-downcase-word
+        wdired-finish-edit
+        wdired-next-line
+        wdired-previous-line
+        wgrep-finish-edit
+        yaml-electric-dash-and-dot
+        yaml-electric-backspace
+        yas-expand
+        ))
+
+(setq mc/cmds-to-run-once
+      '(
+        dired-do-delete
+        dired-toggle-read-only
+        end-of-buffer
+        ibuffer-do-delete
+        ibuffer-do-kill-on-deletion-marks
+        ibuffer-toggle-sorting-mode
+        iedit-mode
+        iedit-switch-to-mc-mode
+        keyboard-escape-quit
+        kmacro-end-macro
+        kmacro-start-macro
+        mark-whole-buffer
+        overwrite-mode
+        proced-send-signal
+        switch-to-buffer
+        wgrep-change-to-wgrep-mode
+        window-jump-down
+        window-jump-left
+        window-jump-up
+        yank-rectangle
+        ))

conf/system-vars.el

@@ -0,0 +1,37 @@
+;;; system-vars -- A collection of variables which control which parts
+;;; of my Emacs are active per machine.
+
+;;; Commentary:
+
+;; On my Mac:
+;; To get aspell working as the back end for flyspell-mode I had to make a symbolic link:
+;;   `sudo ln -s /usr/local/bin/aspell /usr/bin/aspell'
+
+;; A simple list of variables listed here which are specific to this
+;; particular computer.  I use these variables to control switches
+;; which are only applicable to Windows and specific default
+;; configuration.
+
+;;; Code:
+
+(defvar quiescent-work-machine nil
+  "Whether I'm on my work machine..")
+
+(defvar quiescent-exwm-machine nil
+  "Whether this machine uses EXWM as it's window manager.")
+
+(defvar quiescent-exwm-multiple-monitors nil
+  "Whether this machine uses EXWM and has multiple monitors.")
+
+(defvar quiescent-home-pc-linux nil
+  "Whether this computer is my Home Linux PC.")
+
+(defvar quiescent-macbook nil
+  "Whether this computer is my macbook.")
+
+(defun quiescent-computer-with-langtool-installed-p ()
+  "Produce t if this computer is using langtool."
+  (or quiescent-macbook))
+
+(provide 'system-vars)
+;;; system-vars.el ends here

custom.el

@@ -0,0 +1,73 @@
+;;; custom --- custom variables, faces etc. from the emacs custom system -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(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.
+ '(LaTeX-command "latex")
+ '(ansi-color-faces-vector
+   [default bold shadow italic underline bold bold-italic bold])
+ '(avy-keys '(49 50 51 52 53 54 55 56 57 48))
+ '(bmkp-last-as-first-bookmark-file "~/.emacs.d/bookmarks")
+ '(completion-styles '(flex basic partial-completion emacs22))
+ '(demo-it--insert-text-speed :fast)
+ '(ecb-options-version "2.50")
+ '(ede-project-directories t)
+ '(ediff-window-setup-function 'ediff-setup-windows-plain)
+ '(enable-recursive-minibuffers t)
+ '(eshell-history-size 1024)
+ '(global-subword-mode t)
+ '(haskell-tags-on-save t)
+ '(icomplete-compute-delay 0)
+ '(icomplete-delay-completions-threshold 400)
+ '(icomplete-max-delay-chars 0)
+ '(icomplete-minibuffer-setup-hook nil)
+ '(icomplete-show-matches-on-no-input t)
+ '(large-file-warning-threshold 50000000)
+ '(magit-tag-arguments nil)
+ '(mail-source-delete-incoming 10)
+ '(max-specpdl-size 32000)
+ '(minibuffer-auto-raise nil)
+ '(minibuffer-depth-indicate-mode t)
+ '(org-agenda-files '("~/.emacs.d/org-settings/work.org"))
+ '(org-src-window-setup 'current-window)
+ '(package-selected-packages
+   '(docker-tramp ggtags use-package dockerfile forge org-re-reveal expand-region sql-indent ensime realgud ivy cobol-mode key-chords doom-modeline writeroom-mode centered-cursor-mode json-mode avy doom-themes visible-mark intero flymake-haskell-multi flymake-hlint ereader zerodark-theme bbdb zenburn-theme esh-autosuggest company-ghc js2-highlight-vars paredit sass-mode ob-mongo restclient editorconfig wgrep-ag wgrep crontab-mode tide xref-js2 rjsx-mode esup ace-jump-mode company-statistics company-tern company-mode hindent diff-hl ag emr org-tree-slide demo-it slack 4clojure org-beautify-theme org-bullets org-plus-contrib nlinum exec-path-from-shell sbt-mode projectile zerodark make-it-so smex recentf-ext indium dot-mode julia-mode tern jade js2-refactor jade-mode git-timemachine eros helm cider slime epresent pt kanban plantuml-mode ox-reveal htmlize flx-ido flx typescript-mode yasnippet yaml-mode window-jump web-mode vimgolf use-package-chords typing trie tiny thingatpt+ synonyms swiper swap-regions sr-speedbar smartscan smartparens smart-mode-line rust-mode rainbow-delimiters pp+ powershell page-break-lines ob-http neotree multiple-cursors markdown-mode magit macrostep langtool lacarte keyfreq js2-mode javap-mode javadoc-lookup jammer iy-go-to-char info+ iedit icomplete+ ibuffer-projectile hydra haskell-mode groovy-mode graphviz-dot-mode goto-chg god-mode gnuplot fuzzy-match fsharp-mode frame-cmds fireplace firefox-controller feature-mode fancy-narrow ecb doremi-frm dockerfile-mode docker dired-subtree dired-filter csv-mode crosshairs composable chess bookmark+ auto-highlight-symbol auctex apropos-fn+var aggressive-indent ace-window))
+ '(read-buffer-completion-ignore-case t)
+ '(read-file-name-completion-ignore-case t)
+ '(send-mail-function 'smtpmail-send-it)
+ '(show-paren-mode t)
+ '(smtpmail-smtp-server "smtp.gmail.com")
+ '(smtpmail-smtp-service 25)
+ '(tags-revert-without-query t)
+ '(tide-imenu-flatten t))
+
+;; Rainbow delimeters theme from: https://ericscrivner.me/2015/06/better-emacs-rainbow-delimiters-color-scheme/
+(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.
+ '(default ((t (:inherit nil :stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :foundry "unknown" :family "Hack"))))
+ '(col-highlight ((t (:background "dim gray"))))
+ '(eros-result-overlay-face ((t (:slant italic))))
+ '(hl-line ((t (:inherit nil :background "#2c323b"))))
+ '(js2-highlight-vars-face ((t (:underline t))))
+ '(js2-highlight-vars-second-face ((t (:underline "white"))))
+ '(rainbow-delimiters-depth-1-face ((t (:foreground "light steel blue"))))
+ '(rainbow-delimiters-depth-2-face ((t (:foreground "cornflower blue"))))
+ '(rainbow-delimiters-depth-3-face ((t (:foreground "pale turquoise"))))
+ '(rainbow-delimiters-depth-4-face ((t (:foreground "turquoise"))))
+ '(rainbow-delimiters-depth-5-face ((t (:foreground "dodger blue"))))
+ '(rainbow-delimiters-depth-6-face ((t (:foreground "royal blue"))))
+ '(rainbow-delimiters-depth-7-face ((t (:foreground "dark slate blue"))))
+ '(rainbow-delimiters-depth-8-face ((t (:foreground "navy"))))
+ '(tide-hl-identifier-face ((t (:inherit nil :underline t)))))
+
+(provide 'custom)
+;;; custom ends here

cython/cython-mode.el

@@ -0,0 +1,65 @@
+;; Cython mode
+
+;; Load python-mode if available, otherwise use builtin emacs python package
+(when (not(require 'python-mode nil t))
+  (require 'python))
+
+(add-to-list 'auto-mode-alist '("\\.pyx\\'" . cython-mode))
+(add-to-list 'auto-mode-alist '("\\.pxd\\'" . cython-mode))
+(add-to-list 'auto-mode-alist '("\\.pxi\\'" . cython-mode))
+
+
+(defun cython-compile ()
+  "Compile the file via Cython."
+  (interactive)
+  (let ((cy-buffer (current-buffer)))
+    (with-current-buffer
+        (compile compile-command)
+      (set (make-local-variable 'cython-buffer) cy-buffer)
+      (add-to-list (make-local-variable 'compilation-finish-functions)
+                   'cython-compilation-finish)))
+  )
+
+(defun cython-compilation-finish (buffer how)
+  "Called when Cython compilation finishes."
+  ;; XXX could annotate source here
+  )
+
+(defvar cython-mode-map
+  (let ((map (make-sparse-keymap)))
+    ;; Will inherit from `python-mode-map' thanks to define-derived-mode.
+    (define-key map "\C-c\C-c" 'cython-compile)
+    map)
+  "Keymap used in `cython-mode'.")
+
+(defvar cython-font-lock-keywords
+  `(;; new keywords in Cython language
+    (,(regexp-opt '("by" "cdef" "cimport" "cpdef" "ctypedef" "enum" "except?"
+                    "extern" "gil" "include" "nogil" "property" "public"
+                    "readonly" "struct" "union" "DEF" "IF" "ELIF" "ELSE") 'words)
+     1 font-lock-keyword-face)
+    ;; C and Python types (highlight as builtins)
+    (,(regexp-opt '("NULL" "bint" "char" "dict" "double" "float" "int" "list"
+                    "long" "object" "Py_ssize_t" "short" "size_t" "void") 'words)
+     1 font-lock-builtin-face)
+    ;; cdef is used for more than functions, so simply highlighting the next
+    ;; word is problematic. struct, enum and property work though.
+    ("\\<\\(?:struct\\|enum\\)[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"
+     1 py-class-name-face)
+    ("\\<property[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"
+     1 font-lock-function-name-face))
+  "Additional font lock keywords for Cython mode.")
+
+(define-derived-mode cython-mode python-mode "Cython"
+  "Major mode for Cython development, derived from Python mode.
+
+\\{cython-mode-map}"
+  (setcar font-lock-defaults
+          (append python-font-lock-keywords cython-font-lock-keywords))
+  (set (make-local-variable 'compile-command)
+       (concat "cython -a " buffer-file-name))
+  (add-to-list (make-local-variable 'compilation-finish-functions)
+               'cython-compilation-finish)
+)
+
+(provide 'cython-mode)