.emacs-csail

;; -*- mode: Emacs-Lisp;-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Package setup                                                          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'package)
(setq package-enable-at-startup nil)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(package-initialize)

(defun package-install-unless-installed (package)
    (unless (package-installed-p package)
      (package-refresh-contents)
      (package-install package)))
(package-install-unless-installed 'use-package)
;; (unless (package-installed-p 'use-package)
;;   (package-refresh-contents)
;;   (package-install 'use-package))

(setq use-package-always-ensure t)

;; (package-refresh-contents)
(setq henryhu-packages
      (list 'browse-kill-ring
	    'company-flow    
	    'dumb-jump
	    'flycheck-flow   
	    'fzf             
	    'inf-ruby        
	    'magit           
	    'move-text       
	    'prettier-js
            'python-docstring
	    'rg
	    'string-inflection
	    'scheme-complete
	    'use-package     
	    'web-mode        
	    'yaml-mode))
(mapcar #'package-install-unless-installed henryhu-packages)
;; For authentication signature check failed, see
;; https://emacs.stackexchange.com/questions/233/how-to-proceed-on-package-el-signature-check-failure.
;; (setq package-check-signature nil) and then use package-install
;; gnu-elpa-keyring-update

;; Zenburn theme
(add-to-list 'custom-theme-load-path "~/zenburn-emacs")
(load-theme 'zenburn t)

;; Possibly fixes some package-install: Bad Request errors
;; (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")

;; Set bash for M-x shell, M-x shell-command
(setq explicit-shell-file-name "/bin/bash")
(setenv "SHELL" "/bin/bash")

;; End package setup
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Window system settings                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Turn off Folding Mode.  Must do this _before_ loading InfoLab-wide
;;; common-emacs file.
(setq folding-auto-start nil)

(add-to-list 'default-frame-alist '(fullscreen . maximized)) ;start emacs maximized

;; Enable mouse support
(unless window-system
  (require 'mouse)
  (xterm-mouse-mode t)
  (global-set-key [mouse-4] (lambda ()
                              (interactive)
                              (scroll-down 1)))
  (global-set-key [mouse-5] (lambda ()
                              (interactive)
                              (scroll-up 1)))
  (defun track-mouse (e))
  (setq mouse-sel-mode t)
  )

;; ;;;Set window height
;; (if (window-system)
;;   (set-frame-height (selected-frame) 50))

;;; Start in fullscreen
(defun my-fullscreen ()
  (interactive)
  (set-frame-parameter nil 'fullscreen 'fullheight))

(defun my-non-fullscreen ()
  (interactive)
  (set-frame-parameter nil 'width 82)
  (set-frame-parameter nil 'fullscreen 'fullheight))

(defun toggle-fullscreen ()
  (interactive)
  (if (eq (frame-parameter nil 'fullscreen) 'maximized)  ;tests if already fullscreened
      (my-non-fullscreen)
    (my-fullscreen)))

(global-set-key (kbd "<f11>") 'toggle-fullscreen)
;;; (toggle-fullscreen)
;;; (toggle-fullscreen)
;;; (toggle-fullscreen)

;;; Alias for zooming (C-x C-+)
(defun zoom-in ()
  (interactive)
  (text-scale-adjust 2))
(defun zoom-out ()
  (interactive)
  (text-scale-adjust -2))
;;; Make zooming global
;;; https://stackoverflow.com/questions/18783227/emacs-zoom-in-out-globally
(defadvice text-scale-increase (around all-buffers (arg) activate)
  (dolist (buffer (buffer-list))
    (with-current-buffer buffer
      ad-do-it)))

;;;Typed text replaces the selection
(delete-selection-mode 1)

;;;When point is on a paired character the other is highlighted at no delay
(setq show-paren-delay 0)
(show-paren-mode 1)
(put 'upcase-region 'disabled nil)

;;; EDiffs split with windows on left and right instead of top and bottom
(setq ediff-split-window-function (quote split-window-horizontally))

(tool-bar-mode -1)
(menu-bar-mode -1)
(toggle-frame-maximized)

;; Enable line numbers globally
;; (global-linum-mode t) ; very slow for big files, esp. skip to file start

;; Prevent slowdown from major modes in files with longlines
;; Especially python-mode
;; https://emacs.stackexchange.com/questions/598/how-do-i-prevent-extremely-long-lines-making-emacs-slow
(add-hook
 'find-file-hook
 (defun my-find-file-care-about-long-lines ()
   (save-excursion
     (goto-char (point-min))
     (when (and (not (eq major-mode 'image-mode))
		(not (eq major-mode 'doc-view-mode))
                (search-forward-regexp ".\\{1000\\}" 50000 t)
                (y-or-n-p "Very long lines detected - continue without a major mode? "))
       (fundamental-mode)))))

;; Move line/region with M-up, M-down
(move-text-default-bindings)

;; ;; Try to get colors to display in M-x shell, e.g., in binding.pry
;; (add-to-list 'comint-output-filter-functions 'ansi-color-process-output)
;; (add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;; Open shell in same window, even on emacs 26
;; https://github.com/syl20bnr/spacemacs/issues/6820
(push (cons "\\*shell\\*" display-buffer--same-window-action)
      display-buffer-alist)

;; End Window system settings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Common commands                                                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Get common InfoLab settings:
(load "~start/common-emacs")

;; Insert string for the current time formatted like '2:34 PM'.
(defun now ()
  (interactive)			     ; permit invocation in minibuffer
  (insert (format-time-string "%D %-I:%M %p")))

;; Insert string for today's date nicely formatted in American style,
;; e.g. Sunday, September 17, 2000.
(defun today ()
  (interactive)			     ; permit invocation in minibuffer
  (insert (format-time-string "%A, %B %e, %Y")))

(defun rolldice ()
  (interactive)
  (shell-command "echo You rolled a $((1 + RANDOM % 6))\\! &"))

;; Enable super-merge mode better prefix binding
(setq smerge-command-prefix "\C-cs")

(global-set-key (kbd "C-j") #'newline-and-indent)

;; Use browse-kill-ring
(global-set-key "\C-cy" '(lambda ()
                           (interactive)
                           (browse-kill-ring)))

;; source: http://steve.yegge.googlepages.com/my-dot-emacs-file
(defun mv-file-and-buffer (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME."
  (interactive "sNew name: ")
  (let ((name (buffer-name))
        (filename (buffer-file-name)))
    (if (not filename)
        (message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
          (message "A buffer named '%s' already exists!" new-name)
        (progn
          (rename-file filename new-name 1)
          (rename-buffer new-name)
          (set-visited-file-name new-name)
          (set-buffer-modified-p nil))))))

;; Jump forward to the next argument in a function or item in a list,
;; and put it on a new line.  To re-indent a function, use C-M-j till
;; you see the end-of-list, then use C-M-h once.  If a comma is
;; already present at the end of the list, then use C-M-j instead of
;; C-M-h at the end of the list.
(fset 'newline-at-next-argument-or-item
      [?\C-\M-s ?\( ?\\ ?| ?, ?\\ ?| ?\\ ?\[ return ?\C-j])
(global-set-key "\C-\M-j" 'newline-at-next-argument-or-item)
(fset 'newline-at-arglist-or-list-end
      [?\C-\M-s ?\) ?\\ ?| ?\\ ?\] return ?\C-b ?\, ?\C-j ?\C-f])
(global-set-key "\C-\M-h" 'newline-at-arglist-or-list-end)

;; Used to continue search after M-x tags-search RET <term> RET
(global-set-key "\M-," 'tags-loop-continue)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Full width comment box                                                 ;;
;; from http://irreal.org/blog/?p=374                                     ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun bjm-comment-box (b e)
  (interactive "r")
  (let ((e (copy-marker e t)))
    (goto-char b)
    (end-of-line)
    (insert-char ?  (- fill-column (current-column)))
    (comment-box b e 1)
    (goto-char e)
    (set-marker e nil)))

(global-set-key (kbd "C-c b b") 'bjm-comment-box)

;; Eval-region similar to eval-sexp (overwriting find-file-read-only)
(global-set-key (kbd "C-x C-r") 'eval-region)

;; Write a commit message in emacs.  To exit, do C-c C-c.  Plays well
;; with Tramp.
(global-set-key (kbd "C-c c") 'magit-commit)

;; https://www.emacswiki.org/emacs/BuildTags#toc4
(defun create-tags (dir-name glob)
  "Create tags file."
  (interactive "DDirectory: \nsName glob: ")
  (eshell-command 
   (format "find %s -type f -name \"%s\" | etags -" dir-name glob)))

;; With a list of debug statements like backend-types.log open in one
;; buffer and a whoami run.py shell in another buffer, use
;; copy-paste-whoami-input-line to format the current line's sentence
;; and subjects into the Whoami shell, and move to the next line.
;; After doing so, without moving point, use
;; investigate-whoami-input-without-subject-substitutions to submit
;; the same query without the subject substitutions.
(fset 'copy-paste-whoami-input-line
      [?\C-s ?\" return ?\C-  ?\C-s ?\( ?\[ return ?\C-b ?\C-b ?\C-b ?\C-b ?\M-w ?\C-x ?o ?\C-y ?  ?| ?| ?  ?\C-x ?o ?\C-s ?\( ?\[ return ?\C-  ?\C-s ?\] ?\) return ?\C-b ?\C-b ?\M-w ?\C-x ?o ?\C-y ?\C-p ?\C-p ?\C-p ?\C-\M-% ?\' ?, ?  ?\' return ?& ?& return ?! ?\C-p ?\C-p ?\C-p ?\C-\M-% ?| ?| ?  ?\' return ?| ?| ?  return ?! ?\M-> backspace return ?\C-x ?o ?\C-n ?\C-a])
(fset 'investigate-whoami-input-without-subject-substitutions
      [?\C-x ?o ?\C-r ?| ?| ?\C-r return ?\C-  ?\C-r ?> ?  return ?\C-f ?\C-f ?\M-w ?\M-> ?\C-y return ?\C-x ?o])
(global-set-key (kbd "C-c C-w") 'copy-paste-whoami-input-line)
(global-set-key (kbd "C-c C-s") 'investigate-whoami-input-without-subject-substitutions)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Org mode                                                               ;;
;; from https://orgmode.org/worg/org-tutorials/orgtutorial_dto.html	  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'org)
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(setq org-log-done t)

;; End common commands
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stripe specific settings                                               ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;; DUMB JUMP CONFIG
;; (setq dumb-jump-default-project "~/")
;; (setq dumb-jump-force-searcher 'rg)
;; ;; Dumb jump mode overwrites C-M-q, just name each useful command
;; ;; instead.
;; (global-set-key (kbd "M-.") #'dumb-jump-go)
;; (global-set-key (kbd "C-.") #'dumb-jump-back)
;; (global-set-key (kbd "C-M-.") #'dumb-jump-go-prompt)
;; (global-set-key (kbd "C-M-,") #'dumb-jump-quick-look)
;;;;;;;;;;;; END DUMB JUMP CONFIG

;; Use FZF to find files by name in the global context
(global-set-key (kbd "C-c C-f") #'fzf)

;; cycle snake_case, camelCase, etc for ruby
(require 'string-inflection)
(global-set-key (kbd "C-c C-u") 'string-inflection-all-cycle)

;; ;; Kill and replace the sexp at point, ending with the last yank at
;; ;; the top of the kill ring.
;; (fset 'replace-sexp-at-point [134217848 114 101 112 108 tab 114 backspace 115 101 120 112 tab return])
;; (global-set-key "\C-\M-y" 'replace-sexp-at-point)

;; Kill the line at point, change buffer, rg the line, and return
(fset 'move-line-into-other-buffer
      [?\C-k ?\C-k ?\C-n ?\C-p ?\C-x ?o ?r ?g ?  ?\C-y return ?\C-x ?o])
(global-set-key "\C-c\C-r\C-g" 'move-line-into-other-buffer)

;; End Stripe specific settings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; BEGIN AUTOGEN                                                          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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.
 '(package-selected-packages
   (quote
    (pdf-tools rg python-docstring prettier-js magit inf-ruby fzf exec-path-from-shell flycheck-flow git-commit gh-md flymd markdown-preview-mode markdown-mode+ markdown-mode yaml-mode web-mode use-package string-inflection scheme-complete package+ move-text elisp-docstring-mode dumb-jump company-flow cl-generic browse-kill-ring))))
(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.
 )


;; end Autogen
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Python settings                                                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Lint in python
(load "~/.emacs.d/flycheck-pycodestyle.el")
(add-hook 'python-mode-hook 'flycheck-mode)

;; Python docstrings fill-paragraph conforms to community convention
(add-hook 'python-mode-hook 'python-docstring-mode)

;; Keys for indentation
(global-set-key (kbd "C-.") #'python-indent-shift-right)
(global-set-key (kbd "C-,") #'python-indent-shift-left)

;; Treat word_word or wordWord as word boundaries
(subword-mode +1) ;; (subword-mode 1) doesn't treat wordWord as boundary

;; Treat x = 1 as 3 sexps
;; (add-hook 'python-mode-hook ;; Also treats def blah(): as 3 sexps
;;           (lambda () (setq forward-sexp-function nil)))

(fset 'convert-texpdb-test-to-astroparse-test
   [?\C-s ?s ?e ?l ?f ?. ?a ?s ?s ?e ?r ?t ?c ?o ?u ?n ?t ?e ?q ?u ?a ?l ?\( ?c ?o ?n ?v ?e ?r ?t ?_ ?t ?o ?_ ?t ?e ?x ?t ?\( return ?\C-  ?\C-r ?s ?e ?l ?f ?. return ?s ?e ?n ?t ?e ?n ?c ?e ?  ?= ?  ?\C-\M-f ?\C-  ?\C-e backspace return ?t ?e ?x ?p ?s ?  ?= ?\C-n ?\M-^ ?\C-\M-f ?\C-  ?\C-e backspace return ?r ?e ?s ?u ?l ?t ?  ?= ?  ?s ?e ?l ?f ?. ?m ?o ?d ?e ?l ?. ?m ?a ?k ?e ?_ ?t ?e ?x ?p ?s ?\( ?s ?e ?n ?t ?e ?n ?c ?e ?\) return ?s ?e ?l ?f ?. ?a ?s ?s ?e ?r ?t ?C ?o ?n ?t ?a ?i ?n ?s ?T ?e ?x ?p ?s ?\( ?r ?e ?s ?u ?l ?t ?, ?  ?t ?e ?x ?p ?s ?\) ?\C-r ?t ?e ?x ?p ?s ?  ?= ?  ?\[ return ?\M-f ?\M-f ?\M-b ?\C-b ?\C-b])

;; End Python settings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Scheme settings                                                        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Prevent shebang on infolab .scm files from interfering with scheme-mode	
(defun scheme-mode-for-bash ()
  (interactive)
  (if (and
       (> (length (buffer-string)) 53)
       (string-match
	"exec csi .*"
	(buffer-string)))
      (scheme-mode)))
(add-hook 'sh-mode-hook 'scheme-mode-for-bash)

;; Scheme autocomplete
(autoload 'scheme-smart-complete "scheme-complete" nil t)
(eval-after-load 'scheme
  '(define-key scheme-mode-map "\t" 'scheme-complete-or-indent))
;; Scheme eldoc
(autoload 'scheme-get-current-symbol-info "scheme-complete" nil t)
(add-hook 'scheme-mode-hook
	  (lambda ()
	    (make-local-variable 'eldoc-documentation-function)
	    (setq eldoc-documentation-function 'scheme-get-current-symbol-info)
	    (eldoc-mode)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Tramp configuration                                                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq tramp-auto-save-directory "/tmp")

;; Speed up Tramp (https://emacs.stackexchange.com/a/37855)
(setq remote-file-name-inhibit-cache nil)
(setq vc-ignore-dir-regexp
      (format "%s\\|%s"
              vc-ignore-dir-regexp
              tramp-file-name-regexp))
(setq tramp-verbose 1)
;; Other Tramp perf optimizations (git:michaelsilver/emacs-config)
(setq tramp-completion-reread-directory-timeout nil)
(customize-set-variable 'tramp-use-ssh-controlmaster-options nil)

;; Open dired buffer for home directory on my favorite computers
(defun nav ()
  (interactive)
  (infolab-ssh "navassa"))
(defun spr ()
  (interactive)
  (infolab-ssh "spratly"))
(defun wal ()
  (interactive)
  (infolab-ssh "wallis"))
(defun sno ()
  (interactive)
  (ssh "henryhu" "snowflake.myddns.me" "~"))
(defun slu ()
  (interactive)
  (ssh "henryhu" "slushy.myddns.me" "~"))
(defun ice ()
  (interactive)
  (ssh "henryhu" "slushy.myddns.me" "/media/henryhu/icecube"))
(defun rac ()
  (interactive)
  (ssh "racecar" "192.168.1.21" "~"))
(defun nlp ()
  (interactive)
  (ssh "ubuntu" "ec2-54-88-185-120.compute-1.amazonaws.com" "~"))

;; Athena dialup, which requires two-factor authentication.  First
;; passcode prompt: type in MIT passcode.  Second passcode prompt:
;; type "1" for push, "2" for call, and "3" for SMS.
(defun ath ()
  (interactive)
  (ssh "henryhu" "athena.dialup.mit.edu" "~"))

(defun infolab-ssh (host)
  (interactive "sHostname: ")
  (let ((infolab-hostname (concat host ".csail.mit.edu")))
    (ssh "henryhu" infolab-hostname "~")))

(defun ssh (user host dir)
  (interactive "sUser: \nsFull Hostname: \nsDirectory: ")
  (dired (concat "/ssh:" user "@" host ":" dir))
  ;; Flycheck causes saves to freeze in Tramp
  ;; (https://github.com/flycheck/flycheck/issues/54)
  (add-hook 'python-mode-hook (lambda (flycheck-mode 0))))

;; End tramp configuration