changes

emacs/init.el

@@ -1,4 +1,4 @@
-;;; init.el --- Summary
+;;; Init.el --- Summary
 ;;; Commentary:
 ;;; Initialization
 ;;; Code:
@@ -108,6 +108,10 @@
  '(haskell-indentation-where-pre-offset 0)
  '(haskell-language-extensions (symbol-value 'haskell-language-extensions))
  '(haskell-tags-on-save t)
+ '(ido-case-fold nil)
+ '(ido-enable-dot-prefix t)
+ '(ido-enter-matching-directory nil)
+ '(ido-show-dot-for-dired t)
  '(idris-interpreter-path "idris2")
  '(idris-semantic-source-highlighting nil)
  '(indent-tabs-mode nil)
@@ -129,17 +133,18 @@
  '(org-agenda-files "~/.config/orgmode/agenda_files")
  '(org-hide-leading-stars t)
  '(package-selected-packages
-   '(jsonnet-mode eslint-fix nhexl-mode idris-mode realgud-trepan-ni realgud-node-inspect realgud graphviz-dot-mode rust-mode lsp forge tide origami dhall-mode docker-tramp graphql-mode enh-ruby-mode scala-mode string-inflection prettier-js quelpa typescript-mode visual-fill-column ag ripgrep fill-column-indicator rjsx-mode image+ company org-jira which-key flycheck es-mode lsp-haskell projectile exec-path-from-shell lsp-ui lsp-Mode editorconfig purescript-mode markdown-mode+ ssh-agency dash yaml-mode restart-emacs markdown-mode magit helm haskell-mode haml-mode form-feed dashboard))
+   '(git-gutter jsonnet-mode eslint-fix nhexl-mode idris-mode realgud-trepan-ni realgud-node-inspect realgud graphviz-dot-mode rust-mode lsp forge tide origami dhall-mode docker-tramp graphql-mode enh-ruby-mode scala-mode string-inflection prettier-js quelpa typescript-mode visual-fill-column ag ripgrep fill-column-indicator rjsx-mode image+ company org-jira which-key flycheck es-mode lsp-haskell projectile exec-path-from-shell lsp-ui lsp-Mode editorconfig purescript-mode markdown-mode+ ssh-agency dash yaml-mode restart-emacs markdown-mode magit helm haskell-mode haml-mode form-feed dashboard))
+ '(prettier-js-args nil)
  '(prettier-js-command "prettier")
+ '(projectile-auto-discover nil)
+ '(projectile-completion-system 'ido)
  '(projectile-globally-ignored-directories
    '(".idea" ".ensime_cache" ".eunit" ".git" ".hg" ".fslckout" "_FOSSIL_" ".bzr" "_darcs" ".tox" ".svn" ".stack-work" "node_modules" "vendor"))
  '(projectile-globally-ignored-files '("/TAGS" "/vendor" "/.bundle" "/node_modules"))
- '(projectile-mode t nil (projectile))
- '(projectile-project-search-path
+ '(projectile-known-projects
    (seq-filter 'file-directory-p
-               (seq-drop
-                (directory-files "~/git" t)
-                2)))
+               (file-expand-wildcards "~/git/*/*")) t)
+ '(projectile-mode t nil (projectile))
  '(projectile-switch-project-action 'magit-status)
  '(projectile-use-git-grep t)
  '(purescript-mode-hook '(turn-on-purescript-indentation))
@@ -158,7 +163,17 @@
      (format "cd ~/git/zendesk/guide-acceptance-tests && rspec --no-color '%s'"
              (projectile-get-relative-path-buffer))))
  '(safe-local-variable-values
-   '((eval local-set-key
+   '((magit-disabled-section-inserters quote
+                                       (magit-insert-status-headers magit-insert-staged-changes forge-insert-pullreqs magit-insert-stashes magit-insert-unpulled-from-upstream magit-insert-unpushed-to-upstream-or-recent))
+     (magit-disabled-section-inserters quote
+                                       (magit-insert-status-headers))
+     (eval remove-hook 'magit-status-sections-hook 'magit-insert-unpulled-from-upstream)
+     (eval remove-hook 'magit-status-sections-hook 'magit-insert-stashes)
+     (eval remove-hook 'magit-status-sections-hook 'forge-insert-pullreqs)
+     (eval remove-hook 'magit-status-sections-hook 'magit-insert-staged-changes)
+     (eval remove-hook 'magit-status-sections-hook 'magit-insert-status-headers)
+     (eval remove-hook 'magit-status-sections-hook 'magit-insert-unpushed-to-upstream-or-recent)
+     (eval local-set-key
            (kbd "C-M-\\")
            'prettier-js)
      (add-to-list 'auto-mode-alist
@@ -206,6 +221,7 @@
    '("abstract" "any" "as" "async" "await" "boolean" "bigint" "break" "case" "catch" "class" "const" "constructor" "continue" "declare" "default" "delete" "do" "else" "enum" "export" "extends" "extern" "false" "finally" "for" "function" "from" "goto" "if" "implements" "import" "in" "instanceof" "interface" "keyof" "let" "module" "namespace" "never" "new" "null" "number" "object" "of" "private" "protected" "public" "readonly" "return" "static" "string" "super" "switch" "this" "throw" "true" "try" "type" "typeof" "unknown" "var" "void" "while"))
  '(typescript-indent-level 2)
  '(vc-follow-symlinks nil)
+ '(warning-suppress-log-types '((comp)))
  '(which-key-idle-delay 1e-05)
  '(window-combination-resize t)
  '(window-resize-pixelwise t)
@@ -244,7 +260,8 @@
 (defvar extra-libs-root (substitute-in-file-name "$XDG_CONFIG_HOME/emacs/lisp/"))
 
 (defvar additional-packages
-      '((agda2-mode . "agda-mode/")
+  '(
+    ;; (agda2-mode . "agda-mode/")
         (psc-ide . "psc-ide/")
         ;; (org-jira . "org-jira/")
         (jira . "jira/")
@@ -312,6 +329,9 @@
  '(error ((t (:foreground "Pink" :weight bold))))
  '(fixed-pitch-serif ((t (:family "Monospace Serif"))))
  '(font-lock-comment-face ((t (:foreground "chocolate1"))))
+ '(ido-first-match ((t (:inherit completions-common-part))))
+ '(ido-only-match ((t (:inherit completions-common-part))))
+ '(ido-subdir ((t nil)))
  '(isearch ((t (:background "palevioletred2" :foreground "white"))))
  '(magit-diff-hunk-heading ((t (:inherit lazy-highlight))))
  '(magit-diff-hunk-heading-highlight ((t (:inherit highlight))))
@@ -389,8 +409,6 @@
 
 ;; ;; (require 'haskell-unicode-input-method)
 
-(add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))
-
 (require 'prettier-js)
 
 (add-hook
@@ -413,6 +431,8 @@
 
 (setq js2-global-externs js2-globals)
 
+(require 'sh-script)
+(setq sh-electric-here-document-mode nil)
 (add-hook 'sh-mode-hook
           (lambda ()
             (sh-electric-here-document-mode -1)
@@ -424,7 +444,7 @@
 ;;;; Projectile
 (require 'projectile)
 
-(projectile-mode +1)
+(projectile-mode 1)
 (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
 
 
@@ -459,7 +479,7 @@
 
 ;;;; Magit
 (require 'magit)
-(global-magit-file-mode t)
+(cond ((fboundp 'global-magit-file-mode) (global-magit-file-mode t)))
 (global-set-key (kbd "C-c g g") 'magit-dispatch)
 (global-set-key (kbd "C-c g s") 'magit-status)
 (global-set-key (kbd "C-c g f") 'magit-file-dispatch)
@@ -488,15 +508,16 @@
 
 ;; I'm confused about the less worse option here.  I think the best
 ;; option is to use smie (the default).
-(setq ruby-use-smie t)
-
 (setq ruby-deep-indent-paren nil)
 (setq ruby-align-to-stmt-keywords t)
 
 (setq select-enable-clipboard t)
 
+
 (defun fredefox-ruby-mode-hook ()
   "Hook to run engaging 'ruby-mode'."
+  (require 'chruby)
+  (require 'zdi)
   (chruby-use-corresponding)
   (subword-mode t)
   (zdi-set-compile-command))
@@ -602,4 +623,8 @@ Requires that `sqlformat` is installed."
   (interactive "r")
   (sort-regexp-fields nil "\\w+" "\\&" beg end))
 
+(windmove-default-keybindings)
+(global-set-key (kbd "M-u") 'upcase-dwim)
+(global-set-key (kbd "M-l") 'downcase-dwim)
+
 ;;; init.el ends here