DeCarabas/Init-Files
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Shrug?

Browse source
This commit is contained in:
John Doty 2021-04-15 06:41:59 -07:00
parent 682a096041
commit 97decd4df4
2 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
.emacs.d/custom.el
View file

@ -84,8 +84,8 @@
'(tab-width 4) '(tab-width 4)
'(tags-revert-without-query t) '(tags-revert-without-query t)
'(tramp-completion-reread-directory-timeout nil) '(tramp-completion-reread-directory-timeout nil)
'(tramp-default-method "sshx") '(tramp-default-method "sshx" nil (tramp))
'(tramp-use-ssh-controlmaster-options nil) '(tramp-use-ssh-controlmaster-options nil nil (tramp))
'(transient-mark-mode t) '(transient-mark-mode t)
'(truncate-lines t) '(truncate-lines t)
'(typescript-indent-level 2) '(typescript-indent-level 2)

20
.emacs.d/init.el
View file

@ -273,6 +273,19 @@
(emacs-lisp-docstring-fill-column t)) (emacs-lisp-docstring-fill-column t))
(fill-paragraph nil region))) (fill-paragraph nil region)))
(defun my--fix-aspell ()
"Fix aspell location when it's not there, by looking in
hard-coded locations."
(require 'ispell)
(if (and (not (executable-find ispell-program-name))
(file-exists-p "c:/msys64/usr/bin/aspell.exe"))
(progn
(message "Redirecting aspell to known location")
(setq ispell-program-name "c:/msys64/usr/bin/aspell.exe"))))
(add-hook 'ispell-minor-mode-hook 'my--fix-aspell)
(add-hook 'flyspell-mode-hook 'my--fix-aspell)
;; ================================================================= ;; =================================================================
;; Text mode configuration. ;; Text mode configuration.
;; ================================================================= ;; =================================================================
@ -280,6 +293,7 @@
"Doty's hook for text mode." "Doty's hook for text mode."
(setq fill-column 70) (setq fill-column 70)
(turn-on-auto-fill) (turn-on-auto-fill)
(my--fix-aspell)
(flyspell-mode)) (flyspell-mode))
(add-hook 'text-mode-hook 'my-text-mode-hook) (add-hook 'text-mode-hook 'my-text-mode-hook)
@ -732,6 +746,7 @@
(defun my-org-mode-hook () (defun my-org-mode-hook ()
"My org mode hook." "My org mode hook."
(turn-off-filladapt-mode) (turn-off-filladapt-mode)
(my--fix-aspell)
(require 'ox-quip)) (require 'ox-quip))
(use-package org (use-package org
@ -778,7 +793,7 @@
(interactive) (interactive)
(dolist (dolist
(ev (split-string (ev (split-string
(shell-command-to-string "cmd /c \" \"%ProgramFiles(x86)%\\Microsoft Visual Studio\\2017\\Enterprise\\VC\\Auxiliary\\Build\\vcvarsall.bat\" x64 && set \"") (shell-command-to-string "cmd /c \" \"%ProgramFiles(x86)%\\Microsoft Visual Studio\\2019\\BuildTools\\VC\\Auxiliary\\Build\\vcvars64.bat\" && set \"")
"[\n]+")) "[\n]+"))
(letrec ((spev (split-string ev "=")) (letrec ((spev (split-string ev "="))
(vn (car spev)) (vn (car spev))
@ -808,7 +823,8 @@
;; ================================================================= ;; =================================================================
;; Magit stuff ;; Magit stuff
;; ================================================================= ;; =================================================================
(global-set-key (kbd "C-x g") 'magit-status) (use-package magit :ensure
:bind ("C-x g" . magit-status))
;; ================================================================= ;; =================================================================