Bahhhhhhh

This commit is contained in:
Case Duckworth 2021-09-13 22:10:42 -05:00
parent 47f1bffa23
commit 2cf9690180
1 changed files with 33 additions and 14 deletions

47
init.el
View File

@ -469,8 +469,8 @@ AKA, DO NOT USE THIS FUNCTION!!!"
(:hook visual-line-mode))
(setup (:straight-if (define-repeat-map
:host nil
:repo "https://tildegit.org/acdw/define-repeat-map.el")
:host nil
:repo "https://tildegit.org/acdw/define-repeat-map.el")
(acdw/system :home))
(defun acdw/other-window-or-switch-buffer-backward ()
@ -607,14 +607,21 @@ AKA, DO NOT USE THIS FUNCTION!!!"
;; requires extension:
;; https://addons.mozilla.org/en-US/firefox/addon/edit-with-emacs1/
(setup (:straight edit-server)
(when (and (daemonp)
(require 'edit-server nil :noerror))
(edit-server-start)
(setup (:straight-if edit-server
(daemonp))
(:require edit-server)
(edit-server-start)
(:advise edit-server-make-frame :before
(defun edit-server@set-a-variable (&rest _)
(setq-local edit-server-frame-p t)))))
(:option edit-server-url-major-mode-alist
(list (cons (rx (| "reddit.com"
"tildes.net"))
'markdown-mode)
(cons (rx "github.com")
'gfm-mode)))
(:advise edit-server-make-frame :before
(defun edit-server@set-a-variable (&rest _)
(setq-local edit-server-frame-p t))))
(setup eldoc
(:option eldoc-idle-delay 0.1
@ -979,6 +986,11 @@ successive invocations."
(setup flymake
(defvar-local flymake-inhibit nil
"Buffer-local variable to inhibit `flymake'.")
(add-to-list 'safe-local-variable-values '(flymake-inhibit . t))
(add-to-list 'safe-local-variable-values '(flymake-inhibit . nil))
(defvar flymake-inhibit-major-modes nil
"Which major-modes NOT to enable `flymake' in.")
@ -1512,12 +1524,19 @@ browser defined in `browse-url-secondary-browser-function'."
(with-eval-after-load 'org-export
(:option (append org-export-filter-final-output-functions)
#'org-export-remove-zero-width-spaces))
(:hook variable-pitch-mode
olivetti-mode
(defun acdw/org-fix-lines-before-save ()
(:hook #'variable-pitch-mode
#'olivetti-mode
;; This is super ugly because I need to add a function to
;; `before-save-hook', but only in org-mode buffers. So I make a hook
;; to make a hook. I'm sure there's a better way to do this.
(defun org-mode@fix-blank-lines-on-save ()
(add-hook 'before-save-hook
#'acdw-org/fix-blank-lines-in-buffer 0 :local))
(defun acdw-org/fix-blank-lines-in-buffer ()
(acdw-org/fix-blank-lines t))
0 :local))
(defun org-mode@wc-stupid ()
(unless (and wc-mode
(> 0 (+ (or wc-orig-words 0)