tec/emacs-config
tec/emacs-config
1
0
Fork 0
Code Issues 4 Pull requests Releases Activity

Config: spelling fixes

Browse source
This commit is contained in:
TEC 2021-03-26 03:02:04 +08:00
parent 32c02a7330
commit 6af9b3333c
Signed by: tec
GPG key ID: 779591AFDB81F06C
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
config.org
View file

@ -1904,7 +1904,7 @@ table
"✔" "✔"
;; Box drawing ;; Box drawing
"▶" "◀") "▶" "◀")
"Charachters that should never be affected by `emojify-mode'.") "Characters that should never be affected by `emojify-mode'.")
(defadvice! emojify-delete-from-data () (defadvice! emojify-delete-from-data ()
"Ensure `emojify-disabled-emojis' don't appear in `emojify-emojis'." "Ensure `emojify-disabled-emojis' don't appear in `emojify-emojis'."
@ -2803,7 +2803,7 @@ configuration tweaks.
#+end_src #+end_src
*** Org-style emphasis *** Org-style emphasis
Let's do our *bold*, /italic/, and _underline_ in org-syntax, using IRC control charachters Let's do our *bold*, /italic/, and _underline_ in org-syntax, using IRC control characters
#+name: org-emph-to-irc #+name: org-emph-to-irc
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun lui-org-to-irc () (defun lui-org-to-irc ()
@ -4229,7 +4229,7 @@ Entries of the form (subject . id)."
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-directory "~/.org" ; let's put files here (setq org-directory "~/.org" ; let's put files here
org-use-property-inheritance t ; it's convenient to have properties inherited org-use-property-inheritance t ; it's convenient to have properties inherited
org-log-done 'time ; having the time a item is done sounds convininet org-log-done 'time ; having the time a item is done sounds convenient
org-list-allow-alphabetical t ; have a. A. a) A) list bullets org-list-allow-alphabetical t ; have a. A. a) A) list bullets
org-export-in-background t ; run export processes in external emacs process org-export-in-background t ; run export processes in external emacs process
org-catch-invisible-edits 'smart ; try not to accidently do weird stuff in invisible regions org-catch-invisible-edits 'smart ; try not to accidently do weird stuff in invisible regions
@ -4960,7 +4960,7 @@ producing nice short links, like an inferior version of ~reftex-label~.
and truncate individual words to conform to this budget. and truncate individual words to conform to this budget.
To arrive at a budget that accounts for words undershooting their requisite average length, To arrive at a budget that accounts for words undershooting their requisite average length,
the number of charachters in the budget freed by short words is distributed among the words the number of characters in the budget freed by short words is distributed among the words
exceeding the average length. This adjusts the per-word budget to be the maximum feasable for exceeding the average length. This adjusts the per-word budget to be the maximum feasable for
this particular situation, rather than the universal maximum average. this particular situation, rather than the universal maximum average.
@ -8624,7 +8624,7 @@ Then let's bind the content to a function, and define some nice helpers.
(defvar tec/tex-last-delim-char nil (defvar tec/tex-last-delim-char nil
"Last open delim expanded in a tex document") "Last open delim expanded in a tex document")
(defvar tec/tex-delim-dot-second t (defvar tec/tex-delim-dot-second t
"When the `tec/tex-last-delim-char' is . a second charachter (this) is prompted for") "When the `tec/tex-last-delim-char' is . a second character (this) is prompted for")
(defun tec/get-open-delim-char () (defun tec/get-open-delim-char ()
"Exclusivly read next char to tec/tex-last-delim-char" "Exclusivly read next char to tec/tex-last-delim-char"
(setq tec/tex-delim-dot-second nil) (setq tec/tex-delim-dot-second nil)
@ -8694,7 +8694,7 @@ Let's enhance ~TeX-fold-math~ a bit
("≤" ("le")) ("≤" ("le"))
("≥" ("ge")) ("≥" ("ge"))
("≠" ("ne")) ("≠" ("ne"))
;; conviniance shorts -- these don't work nicely ATM ;; convenience shorts -- these don't work nicely ATM
;; ("‹" ("left")) ;; ("‹" ("left"))
;; ("›" ("right")) ;; ("›" ("right"))
;; private macros ;; private macros
@ -8712,8 +8712,8 @@ Let's enhance ~TeX-fold-math~ a bit
(,(lambda (num den) (if (and (TeX-string-single-token-p num) (TeX-string-single-token-p den)) (,(lambda (num den) (if (and (TeX-string-single-token-p num) (TeX-string-single-token-p den))
(concat num "／" den) (concat num "／" den)
(concat "❪" num "／" den "❫"))) ("frac")) (concat "❪" num "／" den "❫"))) ("frac"))
(,(lambda (arg) (concat "√" (TeX-fold-parenthesize-as-neccesary arg))) ("sqrt")) (,(lambda (arg) (concat "√" (TeX-fold-parenthesize-as-necessary arg))) ("sqrt"))
(,(lambda (arg) (concat "⭡" (TeX-fold-parenthesize-as-neccesary arg))) ("vec")) (,(lambda (arg) (concat "⭡" (TeX-fold-parenthesize-as-necessary arg))) ("vec"))
("‘{1}’" ("text")) ("‘{1}’" ("text"))
;; private commands ;; private commands
("|{1}|" ("abs")) ("|{1}|" ("abs"))
@ -8761,7 +8761,7 @@ Let's enhance ~TeX-fold-math~ a bit
)) ))
(defun string-offset-roman-chars (offset word) (defun string-offset-roman-chars (offset word)
"Shift the codepoint of each charachter in WORD by OFFSET with an extra -6 shift if the letter is lowercase" "Shift the codepoint of each character in WORD by OFFSET with an extra -6 shift if the letter is lowercase"
(apply 'string (apply 'string
(mapcar (lambda (c) (mapcar (lambda (c)
(string-offset-apply-roman-char-exceptions (string-offset-apply-roman-char-exceptions
@ -8808,7 +8808,7 @@ Such special cases should be remapped to another value, as given in `string-offs
(cdr (assoc char string-offset-roman-char-exceptions)) (cdr (assoc char string-offset-roman-char-exceptions))
char)) char))
(defun TeX-fold-parenthesize-as-neccesary (tokens &optional suppress-left suppress-right) (defun TeX-fold-parenthesize-as-necessary (tokens &optional suppress-left suppress-right)
"Add ❪ ❫ parenthesis as if multiple LaTeX tokens appear to be present" "Add ❪ ❫ parenthesis as if multiple LaTeX tokens appear to be present"
(if (TeX-string-single-token-p tokens) tokens (if (TeX-string-single-token-p tokens) tokens
(concat (if suppress-left "" "❪") (concat (if suppress-left "" "❪")
@ -8875,7 +8875,7 @@ but more convenient, like =;=.
(?D ("\\Delta" "\\nabla" "\\deg")) (?D ("\\Delta" "\\nabla" "\\deg"))
;; no idea why \Phi isnt on 'F' in first place, \phi is on 'f'. ;; no idea why \Phi isnt on 'F' in first place, \phi is on 'f'.
(?F ("\\Phi")) (?F ("\\Phi"))
;; now just conveniance ;; now just convenience
(?. ("\\cdot" "\\dots")) (?. ("\\cdot" "\\dots"))
(?: ("\\vdots" "\\ddots")) (?: ("\\vdots" "\\ddots"))
(?* ("\\times" "\\star" "\\ast"))) (?* ("\\times" "\\star" "\\ast")))