Bahhhhhhh
This commit is contained in:
parent
47f1bffa23
commit
2cf9690180
47
init.el
47
init.el
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue