editor-preferences/Emacs/visual-early.el

;; Macoy's primarily visual customizations (make sure to run visual_late.el too)
;; Note that there's still things in custom-set-variables and custom-set-faces which affect visuals (see .emacs)

;; Don't ever split horizontally automatically. I like two columns, not 2x2 (especially important on 4k screen)
(setq split-height-threshold nil)

;; Themes are generally safe
(setq custom-safe-themes t)

;; turn on highlighting current line
(global-hl-line-mode 1)

;; For theming: Make base16 not have distinct fringes, for a more minimal look
(require 'base16-theme)
(setq base16-distinct-fringe-background nil)

;; Hide toolbar (only needed on Linux?)
(tool-bar-mode -1)
(toggle-scroll-bar -1)
(menu-bar-mode -1)

;; Don't display tooltips in separate windows; use the echo area instead.
;; Tooltips are ugly by default and sometimes get locked displaying on Windows
(tooltip-mode -1)
(setq tooltip-use-echo-area t)

;; Set cursor to I-beam
(modify-all-frames-parameters (list (cons 'cursor-type '(bar . 2))))
;; 4k monitor demands extra thicc cursor
(when (or (string-equal (user-login-name) "macoy")
          (string-equal (user-login-name) "Macoy.Madson"))
  (modify-all-frames-parameters (list (cons 'cursor-type '(bar . 3)))))

;; Scrolling
;; https://www.emacswiki.org/emacs/SmoothScrolling
(setq mouse-wheel-scroll-amount '(2 ((shift) . 2))) ;; Two lines at a time
(setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling

;; When the cursor scrolls off the screen, this makes the window scroll by a dozen or so lines
;;  instead of jumping to the top of the window
;; Disabled because of poor performance in general. We will use it for isearch later
;; so that results aren't right at the bottom of the buffer
;; (require 'smooth-scrolling)
;; (smooth-scrolling-mode 1)
;; This is a hack to work around smooth scrolling only being problematic on next-line and prev-line.
;; It's not really worth the effort, but I'm keeping this here in case I change my mind later
;; (defun macoy-prev-line-noscroll ()
;;   (interactive)
;;   (smooth-scrolling-mode 0)
;;   (forward-line -1)
;;   (smooth-scrolling-mode 1)
;;   )

;; (defun macoy-next-line-noscroll ()
;;   (interactive)
;;   (smooth-scrolling-mode 0)
;;   (forward-line)
;;   (smooth-scrolling-mode 1)
;;   )

;; (global-set-key (kbd "<up>") 'macoy-prev-line-noscroll)
;; (global-set-key (kbd "<down>") 'macoy-next-line-noscroll)

;; Make scrolling less jumpy: this makes it so emacs never centers the cursor if you go scroll off
;;  screen, instead, it will scroll by one line. This isn't ideal (smooth-scrolling is ideal), but
;;  performance is more important in this case
(setq scroll-step 1)
(setq scroll-conservatively 10000)
;; This causes next-line to be ridiculously slow when turned on, so I've disabled it
(setq auto-window-vscroll nil)

;;
;; Powerline: nicer status bar
;;
(require 'powerline)
(setq powerline-default-separator 'slant)
(setq powerline-display-hud nil)
(setq powerline-display-buffer-size nil)
(setq powerline-display-mule-info nil)
;; (set-face-attribute 'mode-line nil :height 110)
;; (setq powerline-text-scale-factor 1.3)
;; (setq powerline-height 25)
(powerline-default-theme)
;; powerline-default-theme
;; powerline-center-theme
;; powerline-center-evil-theme
;; powerline-vim-theme
;; powerline-nano-theme

;; Instead of wrapping at character, wrap at word. This slightly improves readability
(setq visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow))
(global-visual-line-mode 1)

;; After wrapping, try to line up the text with the wrapped line column
(define-globalized-minor-mode my-global-adaptive-wrap-mode adaptive-wrap-prefix-mode
  (lambda () (adaptive-wrap-prefix-mode 1)))
(my-global-adaptive-wrap-mode 1)
(setq-default adaptive-wrap-extra-indent 1)

;; Toggle off wrapping (useful for multiple-cursors operations)
(defun macoy-toggle-wrapping ()
  "Toggle line wrapping for the current buffer"
  (interactive)
  (toggle-truncate-lines))

(global-set-key (kbd "C-<f9>") 'macoy-toggle-wrapping)

;; Show whitespace
(when (require 'whitespace)
  ;; Not enabled globally because it looks a bit too ugly for my tastes; I can toggle it when needed
  (global-whitespace-mode 0)
  (setq whitespace-style '(tab-mark space-mark))

  ;; (global-whitespace-mode 1)
  ;; (setq whitespace-style '(space-mark))

  ;; whitespace-trailing
  ;; whitespace-indentation
  (set-face-foreground 'whitespace-indentation (face-background 'match))
  (set-face-background 'whitespace-indentation (face-foreground 'match))
  ;; (setq whitespace-style '(face indentation::tab trailing))
  (setq whitespace-line-column 100)
  (setq whitespace-newline nil)

  ;; (set-face-foreground 'whitespace-indentation (face-foreground 'font-lock-comment-face))

 ;; Doesn't work
  ;; (set-face-foreground 'whitespace-tab (face-foreground 'font-lock-comment-face))
  ;; Use | for tabs
  ;; (setq whitespace-display-mappings
  ;; '((tab-mark 9 [124 9] [92 9])))

  ;; Attempt at a global mode which only shows bad setups. Almost works, but Elisp isn't good
  ;; (setq macoy-whitespace-style-minimal '(face indentation trailing))
  ;; (setq macoy-whitespace-style-verbose '(tab-mark space-mark))

  ;; (global-whitespace-mode 1)
  ;; (setq whitespace-style macoy-whitespace-style-minimal)

  ;; (setq macoy-whitespace-verbose nil)
  ;; (defun macoy-toggle-whitespace-mode ()
  ;;    (interactive)
  ;;    ;; Toggle off and on to redraw buffer (could probably just call the function which does this...)
  ;;    (whitespace-mode 0)
  ;;    (setq macoy-whitespace-verbose (not macoy-whitespace-verbose))
  ;;    (if macoy-whitespace-verbose
  ;;        (setq whitespace-style macoy-whitespace-style-verbose)
  ;;      (setq whitespace-style macoy-whitespace-style-minimal))
  ;;    (whitespace-mode 1))

  (defun macoy-toggle-whitespace-mode ()
    (interactive)
    (if (bound-and-true-p whitespace-mode)
        (whitespace-mode 0)
      (whitespace-mode)))
  (global-set-key (kbd "S-<f9>") 'macoy-toggle-whitespace-mode))

;;
;; Narrow/widen
;;
(defun macoy-toggle-narrow ()
  (interactive)
  (if (buffer-narrowed-p)
      (widen)
    (narrow-to-defun)))

(global-set-key (kbd "C-S-<f9>") 'macoy-toggle-narrow)

;;
;; Auto Theming
;;

;; Follow the instructions at https://github.com/makuto/auto-base16-theme to get all this set up
(when (string-equal (user-login-name) "mmadson")
  (setq macoy-auto-theme-schemer2-bin "c:/Users/mmadson/go/bin/schemer2.exe")
  (setq macoy-auto-theme-script-dir "f:/gitRepos/auto-base16-theme")
  (setq macoy-auto-theme-output-file "c:/Users/mmadson/AppData/Roaming/.emacs.d/elpa/base16-theme-20180320.2254/base16-my-auto-theme.el"))
(when (string-equal (user-login-name) "macoy")
  (setq macoy-auto-theme-schemer2-bin "schemer2")
  (setq macoy-auto-theme-script-dir "~/Development/code/repositories/auto-base16-theme")  
  (setq macoy-auto-theme-output-file "~/.emacs.d/elpa/base16-theme-20180320.2254/base16-my-auto-theme.el"))

(defun macoy-generate-auto-theme ()
  "Create a base16 auto-theme using AutoBase16Theme.py based on the image selected."
  (interactive)

  (let ((default-directory macoy-auto-theme-script-dir))
    (compile
     (format "%s -format img::colors -in \"%s\" -out colors.txt && python3 AutoBase16Theme.py emacs-base16-theme-template.el %s"
             macoy-auto-theme-schemer2-bin (read-file-name "Image: ") macoy-auto-theme-output-file))))

;; Reference Windows command:
;;c:/Users/mmadson/go/bin/schemer2.exe -format img::colors -in C:/Users/mmadson/Downloads/Wallpapers/32\ -\ fHFDkjY.jpg -out colors.txt && python3 AutoBase16Theme.py emacs-base16-theme-template.el c:/Users/mmadson/AppData/Roaming/.emacs.d/elpa/base16-theme-20180320.2254/base16-my-auto-theme.el