text-mode-abbrevs.el (4974B)
1 ;;; text-mode-abbrevs.el --- My text-mode abbrevs -*- lexical-binding: t; -*- 2 3 ;; Copyright (C) 2020 Jamie Beardslee 4 5 ;; Author: Jamie Beardslee <jdb@jamzattack.xyz> 6 ;; Keywords: abbrev 7 8 ;; This program is free software; you can redistribute it and/or modify 9 ;; it under the terms of the GNU General Public License as published by 10 ;; the Free Software Foundation, either version 3 of the License, or 11 ;; (at your option) any later version. 12 13 ;; This program is distributed in the hope that it will be useful, 14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 ;; GNU General Public License for more details. 17 18 ;; You should have received a copy of the GNU General Public License 19 ;; along with this program. If not, see <https://www.gnu.org/licenses/>. 20 21 ;;; Commentary: 22 23 ;; This is just a file containing my text-mode abbrevs 24 25 ;;; Code: 26 27 (dolist (thing '(my-english-words-abbrevs 28 my-english-phrase-abbrevs 29 my-music-dynamic-abbrevs 30 my-music-instrument-abbrevs 31 my-music-harmony-abbrevs 32 my-music-misc-abbrevs)) 33 (makunbound thing)) 34 35 (defvar my-music-dynamic-abbrevs 36 '(("dyn" "dynamics") 37 ("dmp" "/mezzo piano/") 38 ("dp" "/piano/") 39 ("dpp" "/pianissimo/") 40 ("dppp" "/pianississimo/") 41 ("dmf" "/mezzo forte/") 42 ("df" "/forte/") 43 ("dff" "/fortissimo/") 44 ("dfff" "/fortississimo/")) 45 "Abbrevs for music dynamics. 46 47 Dynamics are prefixed with \"d\" and are surrounded by \"/\" for 48 org-mode italicisation. 49 50 e.g. dpp -> /pianissimo/.") 51 52 (defvar my-music-instrument-abbrevs 53 '(("ins" "instrument") 54 ("inss" "instruments") 55 ("instn" "instrumentation") 56 ("orch" "orchestra") 57 ("str" "string") 58 ("strs" "strings") 59 ("stri" "string instrument") 60 ("stris" "string instruments") 61 ("strq" "string quartet") 62 63 ("vln" "violin") 64 ("vla" "viola") 65 ("vc" "cello") 66 ("ww" "woodwind") 67 ("brs" "brass") 68 69 ("pno" "piano") 70 ("satb" "SATB") 71 ("S" "soprano") 72 ("A" "alto") 73 ("T" "tenor") 74 ("B" "bass")) 75 "Abbrevs for musical instruments.") 76 77 (defvar my-music-harmony-abbrevs 78 '(("mdn" "modulation") 79 ("mdns" "modulations") 80 ("mdt" "modulate") 81 ("mdts" "modulates") 82 ("chrm" "chromatic") 83 ("vl" "voice leading") 84 ("fph" "four-part harmony") 85 ("hmny" "harmony") 86 ("hmnc" "harmonic") 87 ("mldy" "melody") 88 ("mldc" "melodic") 89 90 ("prl" "parallel") 91 ("ctry" "contrary") 92 ("ped" "pedal") 93 94 ("accd" "accidental") 95 ("rsed" "raised") 96 ("lwed" "lowered") 97 98 ("dom" "dominant") 99 ("sdom" "subdominant") 100 ("pdom" "predominant") 101 ("fng" "functioning") 102 ("fnl" "functional") 103 ("fn" "function") 104 ("fns" "functions") 105 106 ("susn" "suspension") 107 ("susd" "suspended") 108 ("sus4" "suspended fourth") 109 ("diss" "dissonant") 110 111 ("embn" "embellishing note") 112 ("embns" "embellinging notes") 113 ("nbn" "neighbour note") 114 ("nbns" "neighbour notes") 115 ("ant" "anticipate") 116 ("antn" "anticipation") 117 ("cons" "consonant") 118 119 ("pat" "pattern") 120 ("pats" "patterns") 121 ("ans" "analysis")) 122 "Abbrevs for musical terms related to harmony.") 123 124 (defvar my-music-misc-abbrevs 125 '(("msc" "music") 126 ("clsc" "classical") 127 ("ag" "Avant-Garde") 128 ("brq" "Baroque") 129 ("rns" "Renaissance") 130 ("op" "Opus") 131 ("nr" "№") 132 ("mvmt" "movement")) 133 "Miscellaneous music-related abbrevs.") 134 135 (defvar my-english-word-abbrevs 136 '(("i" "I" ) 137 ("ds" "does") 138 ("n" "and") 139 ("r" "are") 140 ("rt" "return") 141 ("sd" "should") 142 ("th" "there") 143 ("u" "you") 144 ("ur" "your") 145 ("ure" "you are") 146 ("w" "want") 147 ("hv" "have") 148 ("k" "know") 149 ("ab" "about") 150 ("dn" "down") 151 ("sts" "sometimes") 152 ("thx" "thanks") 153 ("misc" "miscellaneous")) 154 "Abbrevs for common typos and simplifications of single 155 words.") 156 157 (defvar my-english-phrase-abbrevs 158 '(("afaik" "as far as i know") 159 ("atm" "at the moment") 160 ("btw" "by the way") 161 ("cnt" "can't") 162 ("dnt" "don't") 163 ("ddnt" "didn't") 164 ("dsnt" "doesn't") 165 ("hnt" "haven't") 166 ("hs" "here's") 167 ("ie" "i.e.") 168 ("iirc" "if I recall correctly") 169 ("imo" "in my opinion") 170 ("tbf" "to be fair") 171 ("im" "I'm") 172 ("isnt" "isn't") 173 ("pov" "point of view") 174 ("sa" "See also:") 175 ("shnt" "shouldn't") 176 ("ths" "this is") 177 ("ti" "that is,") 178 ("tr" "there are") 179 ("ts" "there is") 180 ("ty" "thank you") 181 ("uc" "you see") 182 ("ull" "you'll") 183 ("uv" "you've") 184 ("wnt" "won't") 185 ("wrt" "with respect to") 186 ("wsnt" "wasn't") 187 ("wtdb" "What's the difference between") 188 ("evt" "every time"))) 189 190 (define-abbrev-table 'text-mode-abbrev-table 191 `( 192 ;; English 193 ,@my-english-word-abbrevs 194 ,@my-english-phrase-abbrevs 195 ;; Music 196 ,@my-music-dynamic-abbrevs 197 ,@my-music-instrument-abbrevs 198 ,@my-music-harmony-abbrevs 199 ,@my-music-misc-abbrevs 200 )) 201 202 (provide 'text-mode-abbrevs) 203 ;;; text-mode-abbrevs.el ends here