Doom emacs files

config.el

;;; $DOOMDIR/config.el -*- lexical-binding: t; -*-

;; -- GENERAL SETTINGS ---------------------------------------------------------

;; theme
(setq doom-theme 'doom-zenburn)

;; yes to line numbers
(setq display-line-numbers-type t)

;; remove doom dashboard items
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-shortmenu)
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-footer)
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-loaded)

;; default frame size
(add-to-list 'default-frame-alist '(left . 300))
(add-to-list 'default-frame-alist '(top . 0))
(add-to-list 'default-frame-alist '(height . 60))
(add-to-list 'default-frame-alist '(width . 120))

;; no audible or visual bell when emacs is mad
(setq ring-bell-function 'ignore)

;; use the tab key to make 2 spaces
(setq tab-width 2)
(setq indent-tabs-mode nil)
(setq tab-always-indent t)

;; no backup~ files
(setq make-backup-files nil)

;; no #autosave# files
(setq auto-save-default nil)

;; word wrap
(global-visual-line-mode t)

;; turn off smartparens
(remove-hook 'doom-first-buffer-hook #'smartparens-global-mode)

;; no period after two spaces (we're free!)
(setq sentence-end-double-space nil)

;; set scratch buffer mode to markdown mode which is more useful
(setq initial-major-mode 'markdown-mode)

;; just quit already
(setq confirm-kill-emacs nil)

;; -- GENERAL KEYBINDINGS ----------------------------------

;; allow upcase (C-x C-u) and downcase (C-x C-l) region
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)

;; jump to other window (split screen)
(map! [C-tab] #'other-window)

;; jump to other frame (split window)
(map! "C-\`" #'other-frame)

;; remap option and command keys
(setq mac-command-modifier 'meta
      mac-right-command-modifier 'meta
      mac-option-modifier 'hyper
      mac-right-option-modifier 'hyper
      ns-command-modifier 'meta
      ns-right-command-modifier 'meta
      ns-option-modifier 'hyper
      ns-right-option-modifier 'hyper)

;; quick function key bindings
(map! [f4] (lambda () (interactive) (find-file "~/.doom.d/config.el")))
(map! [f5] 'vterm)
(map! [f6] (lambda () (interactive) (switch-to-buffer "*scratch*")))
(map! [f7] 'writeroom-mode)
(map! [f8] 'magit-status)

;; -- MODES ------------------------------------------------

;; -- STATA --------

;; better Stata ado-mode
(require 'ado-mode)

;; Stata name
(setq ado-stata-home
      "/Applications/Stata/")

;; ;; my comment style for Stata
;; (defun my-Stata-comment-style ()
;;   "Change comment style for ESS Stata"
;;   (if (string= mode-name "Ado")
;;       (progn
;;         (setq comment-start "// "
;;                comment-end   ""))))

;; ;; add my Stata comment style to hook
;; (add-hook 'ado-mode-hook 'my-Stata-comment-style)

;; ;; don't indent closing brace
;; (setq ado-close-under-line-flag nil)

;; ;; intent 4 spaces with continued line (not 2)
;; (setq ado-continued-statement-indent-spaces 2)

;; -- VTERM --------

(setq shell-file-name "bash")
(setq shell-command-switch "-i")

;; -- ESS ----------

(setq ess-use-flymake nil)
(setq sp-escape-quotes-after-insert nil)

;; use same file name for output
(setq polymode-weaver-output-file-format "%s")
(setq polymode-exporter-output-file-format "%s")

;; do not display output file
(setq polymode-display-output-file nil)

;; -- R ------------

(require 'ess-site)
(setq ess-style 'RStudio)
(setq inferior-R-args "--no-save")
'(ess-smart-S-assign-key nil)

;; patch to fix issue with tibble color until patched in ess
(defun my-inferior-ess-init ()
  (setq-local ansi-color-for-comint-mode 'filter)
  (smartparens-mode 1))
(add-hook 'inferior-ess-mode-hook 'my-inferior-ess-init)

;; functions for R pipes
;; (h/t https://emacs.stackexchange.com/a/8055)
(defun then_R_pipe ()
  "R - %>% operator or 'then' pipe operator"
  (interactive)
  (just-one-space 1)
  (insert "%>%")
  (just-one-space 1)
  )
(defun base_R_pipe ()
  "R - |> operator or 'base' pipe operator"
  (interactive)
  (just-one-space 1)
  (insert "|>")
  (just-one-space 1)
  )

;; remap ";" key:
;; ;                      -->     "<-"
;; Control + ;            -->     "|>"
;; Control + Meta + ;     -->     "%>%"
;; NB: quick tap ; to get semicolon
(dolist (map (list ess-mode-map inferior-ess-mode-map))
  (define-key map (kbd ";") 'ess-insert-assign))
(dolist (map (list ess-mode-map inferior-ess-mode-map))
  (define-key map (kbd "C-M-;") 'then_R_pipe))
(dolist (map (list ess-mode-map inferior-ess-mode-map))
  (define-key map (kbd "C-;") 'base_R_pipe))

;; -- Stan ---------

(require 'stan-mode)

;; -- Markdown -----

(add-hook 'markdown-mode-hook 'pandoc-mode)

;; -- Quarto -------

(require 'quarto-mode)

;; -- Writeroom ----

;; modification to writeroom mode
(defun my-writeroom-mode()
  ;; turn off line numbers
  (display-line-numbers-mode -1)
  ;; turn off mixed-pitch-mode
  (mixed-pitch-mode -1))
(add-hook 'writeroom-mode-hook 'my-writeroom-mode)

;; -- LaTeX --------

;; fix for issue with emacs < 30
(setq major-mode-remap-alist major-mode-remap-defaults)

;; -- TEMPLATES --------------------------------------------

(set-file-template! "\\.[R|r]$" :trigger "__script.R" :mode 'ess-r-mode)
(set-file-template! "\\.gitignore$" :trigger "__gitignore" :mode 'gitignore-mode)
(set-file-template! "makefile$" :trigger "__makefile" :mode 'makefile-bsdmake-mode)
(set-file-template! "\\.md$" :trigger "__markdown.md" :mode 'markdown-mode)
(set-file-template! "\\.[R|r]md$" :trigger "__rmarkdown.Rmd" :mode 'markdown-mode)
(set-file-template! "\\.[Q|q]md$" :trigger "__quarto.qmd" :mode 'markdown-mode)
(set-file-template! "\\.sql$" :trigger "__script.sql" :mode 'sql-mode)

;; END config.el

init.el

;;; init.el -*- lexical-binding: t; -*-

;; This file controls what Doom modules are enabled and what order they load
;; in. Remember to run 'doom sync' after modifying it!

;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
;;      documentation. There you'll find a link to Doom's Module Index where all
;;      of our modules are listed, including what flags they support.

;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
;;      'C-c c k' for non-vim users) to view its documentation. This works on
;;      flags as well (those symbols that start with a plus).
;;
;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
;;      directory (for easy access to its source code).

(doom! :input
       ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
       ;;chinese
       ;;japanese
       ;;layout            ; auie,ctsrnm is the superior home row

       :completion
       ;;company           ; the ultimate code completion backend
       ;;helm              ; the *other* search engine for love and life
       ;;ido               ; the other *other* search engine...
       ;;ivy               ; a search engine for love and life
       ;;vertico           ; the search engine of the future

       :ui
       ;;deft              ; notational velocity for Emacs
       doom              ; what makes DOOM look the way it does
       doom-dashboard    ; a nifty splash screen for Emacs
       ;;doom-quit         ; DOOM quit-message prompts when you quit Emacs
       ;;(emoji +unicode)  ; 🙂
       ;;hl-todo           ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
       ;;hydra
       ;;indent-guides     ; highlighted indent columns
       ;;ligatures         ; ligatures and symbols to make your code pretty again
       ;;minimap           ; show a map of the code on the side
       modeline          ; snazzy, Atom-inspired modeline, plus API
       ;;nav-flash         ; blink cursor line after big motions
       ;;neotree           ; a project drawer, like NERDTree for vim
       ;;ophints           ; highlight the region an operation acts on
       (popup +defaults)   ; tame sudden yet inevitable temporary windows
       ;;tabs              ; a tab bar for Emacs
       ;;treemacs          ; a project drawer, like neotree but cooler
       ;;unicode           ; extended unicode support for various languages
       (vc-gutter +pretty) ; vcs diff in the fringe
       vi-tilde-fringe   ; fringe tildes to mark beyond EOB
       ;;window-select     ; visually switch windows
       workspaces        ; tab emulation, persistence & separate workspaces
       zen               ; distraction-free coding or writing

       :editor
       ;;(evil +everywhere); come to the dark side, we have cookies
       file-templates    ; auto-snippets for empty files
       ;;fold              ; (nigh) universal code folding
       ;;(format +onsave)  ; automated prettiness
       ;;god               ; run Emacs commands without modifier keys
       ;;lispy             ; vim for lisp, for people who don't like vim
       ;;multiple-cursors  ; editing in many places at once
       ;;objed             ; text object editing for the innocent
       ;;parinfer          ; turn lisp into python, sort of
       ;;rotate-text       ; cycle region at point between text candidates
       snippets          ; my elves. They type so I don't have to
       word-wrap         ; soft wrapping with language-aware indent

       :emacs
       dired             ; making dired pretty [functional]
       electric          ; smarter, keyword-based electric-indent
       ;;ibuffer         ; interactive buffer management
       undo              ; persistent, smarter undo for your inevitable mistakes
       vc                ; version-control and Emacs, sitting in a tree

       :term
       ;;eshell            ; the elisp shell that works everywhere
       ;;shell             ; simple shell REPL for Emacs
       ;;term              ; basic terminal emulator for Emacs
       vterm             ; the best terminal emulation in Emacs

       :checkers
       ;;syntax            ; tasing you for every semicolon you forget
       (spell +flyspell) ; tasing you for misspelling mispelling
       ;;grammar           ; tasing grammar mistake every you make

       :tools
       ;;ansible
       ;;biblio            ; Writes a PhD for you (citation needed)
       ;;debugger          ; FIXME stepping through code, to help you add bugs
       ;;direnv
       ;;docker
       ;;editorconfig      ; let someone else argue about tabs vs spaces
       ;;ein               ; tame Jupyter notebooks with emacs
       (eval +overlay)     ; run code, run (also, repls)
       ;;gist              ; interacting with github gists
       lookup              ; navigate your code and its documentation
       ;;lsp               ; M-x vscode
       magit             ; a git porcelain for Emacs
       ;;make              ; run make tasks from Emacs
       ;;pass              ; password manager for nerds
       ;;pdf               ; pdf enhancements
       ;;prodigy           ; FIXME managing external services & code builders
       ;;rgb               ; creating color strings
       ;;taskrunner        ; taskrunner for all your projects
       ;;terraform         ; infrastructure as code
       ;;tmux              ; an API for interacting with tmux
       ;;tree-sitter       ; syntax and parsing, sitting in a tree...
       ;;upload            ; map local to remote projects via ssh/ftp

       :os
       (:if IS-MAC macos)  ; improve compatibility with macOS
       ;;tty               ; improve the terminal Emacs experience

       :lang
       ;;agda              ; types of types of types of types...
       ;;beancount         ; mind the GAAP
       ;;(cc +lsp)         ; C > C++ == 1
       ;;clojure           ; java with a lisp
       ;;common-lisp       ; if you've seen one lisp, you've seen them all
       ;;coq               ; proofs-as-programs
       ;;crystal           ; ruby at the speed of c
       ;;csharp            ; unity, .NET, and mono shenanigans
       ;;data              ; config/data formats
       ;;(dart +flutter)   ; paint ui and not much else
       ;;dhall
       ;;elixir            ; erlang done right
       ;;elm               ; care for a cup of TEA?
       emacs-lisp        ; drown in parentheses
       ;;erlang            ; an elegant language for a more civilized age
       (ess +stan)               ; emacs speaks statistics
       ;;factor
       ;;faust             ; dsp, but you get to keep your soul
       ;;fortran           ; in FORTRAN, GOD is REAL (unless declared INTEGER)
       ;;fsharp            ; ML stands for Microsoft's Language
       ;;fstar             ; (dependent) types and (monadic) effects and Z3
       ;;gdscript          ; the language you waited for
       ;;(go +lsp)         ; the hipster dialect
       ;;(graphql +lsp)    ; Give queries a REST
       ;;(haskell +lsp)    ; a language that's lazier than I am
       ;;hy                ; readability of scheme w/ speed of python
       ;;idris             ; a language you can depend on
       json              ; At least it ain't XML
       ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
       ;;javascript        ; all(hope(abandon(ye(who(enter(here))))))
       julia             ; a better, faster MATLAB
       ;;kotlin            ; a better, slicker Java(Script)
       (latex +latexmk)               ; writing papers in Emacs has never been so fun
       ;;lean              ; for folks with too much to prove
       ;;ledger            ; be audit you can be
       lua               ; one-based indices? one-based indices
       markdown          ; writing docs for people to ignore
       ;;nim               ; python + lisp at the speed of c
       ;;nix               ; I hereby declare "nix geht mehr!"
       ;;ocaml             ; an objective camel
       (org +jupyter +pandoc)               ; organize your plain life in plain text
       ;;php               ; perl's insecure younger brother
       ;;plantuml          ; diagrams for confusing people more
       ;;purescript        ; javascript, but functional
       python            ; beautiful is better than ugly
       ;;qt                ; the 'cutest' gui framework ever
       ;;racket            ; a DSL for DSLs
       ;;raku              ; the artist formerly known as perl6
       ;;rest              ; Emacs as a REST client
       ;;rst               ; ReST in peace
       ;;(ruby +rails)     ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
       ;;(rust +lsp)       ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
       ;;scala             ; java, but good
       ;;(scheme +guile)   ; a fully conniving family of lisps
       sh                ; she sells {ba,z,fi}sh shells on the C xor
       ;;sml
       ;;solidity          ; do you need a blockchain? No.
       ;;swift             ; who asked for emoji variables?
       ;;terra             ; Earth and Moon in alignment for performance.
       ;;web               ; the tubes
       ;;yaml              ; JSON, but readable
       ;;zig               ; C, but simpler

       :email
       ;;(mu4e +org +gmail)
       ;;notmuch
       ;;(wanderlust +gmail)

       :app
       ;;calendar
       ;;emms
       ;;everywhere        ; *leave* Emacs!? You must be joking
       ;;irc               ; how neckbeards socialize
       ;;(rss +org)        ; emacs as an RSS reader
       ;;twitter           ; twitter client https://twitter.com/vnought

       :config
       ;;literate
       (default +bindings))

packages.el

;; -*- no-byte-compile: t; -*-
;;; $DOOMDIR/packages.el

(package! ado-mode)
(package! stan-mode)
(package! pandoc-mode)
(package! quarto-mode)
(package! doom-snippets :ignore t)
(package! solaire-mode :disable t)

;; END packages.el