Skip to content

Instantly share code, notes, and snippets.

View incandescentman's full-sized avatar

Jay Dixit incandescentman

View GitHub Profile
Meric could be a prickly friend—curt, dismissive, and oblivious towards social niceties. He was as unlikely to ask after one’s wellbeing or the state of one’s relations as the guy serving you a court summons. He didn’t expect to hear from you regularly, nor was he prone to just checking in. A few years ago, he'd gotten hit crossing the street by one of those evangelical bicyclists, and wound up with two fractured ribs and a collapsed lung. He'd dissuaded his friends from visiting him in the hospital, claiming he preferred to recuperate on his own. But as infuriating as his grumpiness could be, there was something calming about him like a sand dune. He was no flatterer—his sympathies had tangible value. He‘d been known to joke that he was a termite in the social network.
Meric could be a prickly friend—curt, dismissive, and oblivious towards social niceties. He was as unlikely to ask after one’s wellbeing or the state of one’s relations as the guy serving you a court summons. He didn’t expect to hear from you regularly, nor was he prone to just checking in. A few years ago, he'd gotten hit crossing the street by one of those evangelical bicyclists and wound up with a mandibular dislocation and two broken ribs. He dissuaded his friends from visiting him in the hospital, claiming he preferred to recuperate on his own. As infuriating as his grumpiness could be, there was something calming about him like a sand dune. He was no flatterer—his sympathies had tangible value. He‘d been known to joke that he was a termite in the social network.

[#C] create an auto-capitalization-predicate-exceptions-list?

I’d like to create a plain-text list of words that are exceptions to auto-capitalization. So for e.g. if I type e.g. like I have in this sentence, I don’t want the next word to be automatically capitalized.

See my existing code:

(setq auto-capitalize-predicate
      (lambda () (not (looking-back "\\([Ee]\\.g\\|[Uu]\\.S\\|[Ii]\\.e\\|\\.\\.\\)\\.[^.]*" (- (point) 20)))))
(executable-find "hunspell")
(setq-default ispell-program-name "hunspell")
(setq ispell-really-hunspell t)
(setq flyspell-default-dictionary "en_US")
(setq ispell-dictionary "en_US")
(setq ispell-program-name "/usr/local/bin/hunspell")
(setenv "DICTIONARY" "en_US")
Debugger entered--Lisp error: (wrong-type-argument listp #("Test" 0 4 (:parent (#1))))
org-element-set-contents(#("Test" 0 4 (:parent (#0))))
apply(org-element-set-contents #("Test" 0 4 (:parent (#0))) nil)
#[(s) "\306\307\310#\311\312 \211:\204\313\202\" @9\203! AA\202\" )\"\210\314\315\n \211:\2043\313\202@ @9\203? AA\202@ )#\210 \316\211\n ;\203V\317\320\f #\202\\\321 A@\f\"*\211;\203n\322 \313\f $\202z A\323 A@\f #\240\210 +\210\nA A@\240\210\n @\240*\207" [s new old element property value replace-regexp-in-string "\n" " " mapc #[(blob) "\305 \211;\203\306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] nil apply org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put] 6](#("Test" 0 4 (:parent (#0))))
#[(--data) "\211:\204 ;\205\306\202 @9\205 @)?\206\337 \203,\307 \310\">\206\337\n\2047\311\f\"\202\337\n\312=\203\\\311\f\211:\204J\313\202W @9
Debugger entered--Lisp error: (wrong-type-argument listp #("Test" 0 4 (:parent (#1))))
org-element-set-contents(#("Test" 0 4 (:parent (#0))))
apply(org-element-set-contents #("Test" 0 4 (:parent (#0))) nil)
#[(s) "\306\307\310#\311\312 \211:\204\313\202\" @9\203! AA\202\" )\"\210\314\315\n \211:\2043\313\202@ @9\203? AA\202@ )#\210 \316\211\n ;\203V\317\320\f #\202\\\321 A@\f\"*\211;\203n\322 \313\f $\202z A\323 A@\f #\240\210 +\210\nA A@\240\210\n @\240*\207" [s new old element property value replace-regexp-in-string "\n" " " mapc #[(blob) "\305 \211;\203\306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] nil apply org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put] 6](#("Test" 0 4 (:parent (#0))))
#[(--data) "\211:\204 ;\205\306\202 @9\205 @)?\206\337 \203,\307 \310\">\206\337\n\2047\311\f\"\202\337\n\312=\203\\\311\f\211:\204J\313\202W @9
Debugger entered--Lisp error: (wrong-type-argument listp #("Test document" 0 13 (:parent (#1))))
org-element-set-contents(#("Test document" 0 13 (:parent (#0))))
apply(org-element-set-contents #("Test document" 0 13 (:parent (#0))) nil)
#[(s) "\306\307\310#\311\312 \211:\204\313\202\" @9\203! AA\202\" )\"\210\314\315\n \211:\2043\313\202@ @9\203? AA\202@ )#\210 \316\211\n ;\203V\317\320\f #\202\\\321 A@\f\"*\211;\203n\322 \313\f $\202z A\323 A@\f #\240\210 +\210\nA A@\240\210\n @\240*\207" [s new old element property value replace-regexp-in-string "\n" " " mapc #[(blob) "\305 \211;\203\306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] nil apply org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put] 6](#("Test document" 0 13 (:parent (#0))))
#[(--data) "\211:\204 ;\205\306\202 @9\205 @)?\206\337 \203,\307 \310\">\206\337\n\2047\311\f\"\202\337\n\312
Debugger entered--Lisp error: (void-variable org-planning-line-re)
org-element--current-element(168330 element planning nil)
byte-code("\212\214~\210b\210 \205\306\307!\204\n\205\310\311\"\312 \f;\203+\313\314 \f#\2021\315\fA@ \"*1\311\2112\3113 \204f\3164\317 \21156\3205P7\321 ,\203\\\3223\311y\210\323\311w\210\324 \210\202H1U\203\225\325\3268\203\217\327 \f;\203\205\313\314 \f#\202\213\315\fA@ \"*\202\220 \"\210\202H\330\3164\317 \21156\3205P+1\316#\203\274\311y\210\323\311w\210\324 \210\3223\202H dU\203\310S\202\3119\331 \f;\203\335\313\314 \f#\202\343\315\fA@ \"*\206\3511b\210\3329\f;\203\375\313\314 \f#\202\315\fA@ \"*\211:X\205.:b\205.\3279\f;\203$\313\314 \f#\202*\315\fA@ \"*\2119)\204\3539\203Gm\203A9\202G9`2*\332\f\f;\203Y\313\314 \f#\202_\315\fA@ \"*\206z\212\3164\317 \21156\3205P7\333 \210,`)\f;:8\203\257`U\203\223\325\326;\"\210\202\257<\211<\205\246\334 \206\246\335<\336 \")\203\257\32
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
get-file-buffer(nil)
org-find-base-buffer-visiting(nil)
org-get-agenda-file-buffer(nil)
org-refile-get-targets(nil (#("tinyhabits" 0 10 (fontified t face org-level-1 line-prefix nil wrap-prefix #(" " 0 2 (face org-indent))))))
org-refile-get-location("Refile subtree \"tinyhabits\" to" nil confirm nil)
org-refile(nil)
#<subr call-interactively>(org-refile record nil)
ad-Advice-call-interactively(#<subr call-interactively> org-refile record nil)
apply(ad-Advice-call-interactively #<subr call-interactively> (org-refile record nil))
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
get-file-buffer(nil)
org-find-base-buffer-visiting(nil)
org-get-agenda-file-buffer(nil)
org-refile-get-targets(nil (#("ferry" 0 5 (fontified t line-prefix nil wrap-prefix #(" " 0 2 (face org-indent)) face org-level-1))))
org-refile-get-location("Refile subtree \"ferry\" to" nil confirm nil)
org-refile(nil)
#<subr call-interactively>(org-refile nil nil)
ad-Advice-call-interactively(#<subr call-interactively> org-refile)
apply(ad-Advice-call-interactively #<subr call-interactively> org-refile)