fabrizioschiavi/pragmatapro
1
1
Fork 0
mirror of https://github.com/fabrizioschiavi/pragmatapro.git synced 2024-07-14 16:20:30 +03:00
Code Issues Projects Releases Wiki Activity

Create pragmatapro-prettify-symbols-v0.830.el

Browse Source
This commit is contained in:
Fabrizio Schiavi 2023-12-20 09:44:26 +01:00
parent bda10495e3
commit e1ada51969
1 changed files with 289 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

289
emacs_snippets/pragmatapro-prettify-symbols-v0.830.el Normal file
View File

@ -0,0 +1,289 @@
(setq prettify-symbols-unprettify-at-point 'right-edge)
(defconst pragmatapro-prettify-symbols-alist
(mapcar (lambda (s)
`(,(car s)
.
,(vconcat
(apply 'vconcat
(make-list
(- (length (car s)) 1)
(vector (decode-char 'ucs #X0020) '(Br . Bl))))
(vector (decode-char 'ucs (cadr s))))))
'(("[INFO ]" #XE280)
("[WARN ]" #XE281)
("[PASS ]" #XE282)
("[VERBOSE]" #XE283)
("[KO]" #XE284)
("[OK]" #XE285)
("[PASS]" #XE286)
("[ERROR]" #XE2C0)
("[DEBUG]" #XE2C1)
("[INFO]" #XE2C2)
("[WARN]" #XE2C3)
("[WARNING]" #XE2C4)
("[ERR]" #XE2C5)
("[FATAL]" #XE2C6)
("[TRACE]" #XE2C7)
("[FIXME]" #XE2C8)
("[TODO]" #XE2C9)
("[BUG]" #XE2CA)
("[NOTE]" #XE2CB)
("[HACK]" #XE2CC)
("[MARK]" #XE2CD)
("[FAIL]" #XE2CE)
("# ERROR" #XE2F0)
("# DEBUG" #XE2F1)
("# INFO" #XE2F2)
("# WARN" #XE2F3)
("# WARNING" #XE2F4)
("# ERR" #XE2F5)
("# FATAL" #XE2F6)
("# TRACE" #XE2F7)
("# FIXME" #XE2F8)
("# TODO" #XE2F9)
("# BUG" #XE2FA)
("# NOTE" #XE2FB)
("# HACK" #XE2FC)
("# MARK" #XE2FD)
("# FAIL" #XE2FE)
("// ERROR" #XE2E0)
("// DEBUG" #XE2E1)
("// INFO" #XE2E2)
("// WARN" #XE2E3)
("// WARNING" #XE2E4)
("// ERR" #XE2E5)
("// FATAL" #XE2E6)
("// TRACE" #XE2E7)
("// FIXME" #XE2E8)
("// TODO" #XE2E9)
("// BUG" #XE2EA)
("// NOTE" #XE2EB)
("// HACK" #XE2EC)
("// MARK" #XE2ED)
("// FAIL" #XE2EE)
("!=" #X100140)
("!==" #X100141)
("!==" #X100142)
("!≡" #X100143)
("!≡≡" #X100144)
("#(" #X10014C)
("#_" #X10014D)
("#{" #X10014E)
("#?" #X10014F)
("##" #X100150)
("#_(" #X100151)
("#[" #X100152)
("%=" #X100160)
("&%" #X10016C)
("&&" #X10016D)
("&+" #X10016E)
("&-" #X10016F)
("&/" #X100170)
("&=" #X100171)
("&&&" #X100172)
("$>" #X10017A)
("(|" #X100180)
("*>" #X100186)
("++" #X10018C)
("+++" #X10018D)
("+=" #X10018E)
("+>" #X10018F)
("++=" #X100190)
("--" #X1001A0)
("-<" #X1001A1)
("-<<" #X1001A2)
("-=" #X1001A3)
("->" #X1001A4)
("->>" #X1001A5)
("---" #X1001A6)
("-->" #X1001A7)
("-+-" #X1001A8)
("-\\/" #X1001A9)
("-|>" #X1001AA)
("-<|" #X1001AB)
("->-" #X1001AC)
("-<-" #X1001AD)
("-|" #X1001AE)
("-||" #X1001AF)
("-|:" #X1001B0)
(".=" #X1001B9)
("//=" #X1001D4)
("/=" #X1001D5)
("/==" #X1001D6)
("/-\\" #X1001D7)
("/-:" #X1001D8)
("/->" #X1001D9)
("/=>" #X1001DA)
("/-<" #X1001DB)
("/=<" #X1001DC)
("/=:" #X1001DD)
(":=" #X1001EC)
(":≡" #X1001ED)
(":=>" #X1001EE)
(":-\\" #X1001EF)
(":=\\" #X1001F0)
(":-/" #X1001F1)
(":=/" #X1001F2)
(":-|" #X1001F3)
(":=|" #X1001F4)
(":|-" #X1001F5)
(":|=" #X1001F6)
("<$>" #X100200)
("<*" #X100201)
("<*>" #X100202)
("<+>" #X100203)
("<-" #X100204)
("<<=" #X100205)
("<=>" #X100207)
("<>" #X100208)
("<|>" #X100209)
("<<-" #X10020A)
("<|" #X10020B)
("<=<" #X10020C)
("<~" #X10020D)
("<~~" #X10020E)
("<<~" #X10020F)
("<$" #X100210)
("<+" #X100211)
("<!>" #X100212)
("<@>" #X100213)
("<#>" #X100214)
("<%>" #X100215)
("<^>" #X100216)
("<&>" #X100217)
("<?>" #X100218)
("<.>" #X100219)
("</>" #X10021A)
("<\\>" #X10021B)
("<\">" #X10021C)
("<:>" #X10021D)
("<~>" #X10021E)
("<**>" #X10021F)
("<<^" #X100220)
("<=" #X100221)
("<->" #X100222)
("<!--" #X100223)
("<--" #X100224)
("<~<" #X100225)
("<==>" #X100226)
("<|-" #X100227)
("<||" #X100228)
("<<|" #X100229)
("<-<" #X10022A)
("<-->" #X10022B)
("<<==" #X10022C)
("<==" #X10022D)
("<-\\" #X10022E)
("<-/" #X10022F)
("<=\\" #100230)
("<=/" #X100231)
("=<<" #X100240)
("==" #X100241)
("===" #X100242)
("==>" #X100243)
("=>" #X100244)
("=~" #X100245)
("=>>" #X100246)
("=~=" #X100247)
("==>>" #X100248)
("=>=" #X100249)
("=<=" #X10024A)
("=<" #X10024B)
("==<" #X10024C)
("=<|" #X10024D)
("=/=" #X10024F)
("=/<" #X100250)
("=|" #X100251)
("=||" #X100252)
("=|:" #X100253)
(">-" #X100260)
(">>-" #X100262)
(">>=" #X100263)
(">=>" #X100264)
(">>^" #X100265)
(">>|" #X100266)
(">!=" #X100267)
(">->" #X100268)
(">==" #X100269)
(">=" #X10026A)
(">/=" #X10026B)
(">-|" #X10026C)
(">=|" #X10026D)
(">-\\" #X10026E)
(">=\\" #X10026F)
(">-/" #X100270)
(">=/" #X100271)
(">λ=" #X100272)
("?." #X10027F)
("^=" #X100283)
("^<<" #X100288)
("^>>" #X100289)
("\\=" #X100294)
("\\==" #X100295)
("\\/=" #X100296)
("\\-/" #X100297)
("\\-:" #X100298)
("\\->" #X100299)
("\\=>" #X10029A)
("\\-<" #X10029B)
("\\=<" #X10029C)
("\\=:" #X10029D)
("|=" #X1002A9)
("|>=" #X1002AA)
("|>" #X1002AB)
("|+|" #X1002AC)
("|->" #X1002AD)
("|-->" #X1002AE)
("|=>" #X1002AF)
("|==>" #X1002B0)
("|>-" #X1002B1)
("|<<" #X1002B2)
("||>" #X1002B3)
("|>>" #X1002B4)
("|-" #X1002B5)
("||-" #X1002B6)
("||=" #X1002B7)
("|)" #X1002B8)
("|]" #X1002B9)
("|-:" #X1002BA)
("|=:" #X1002BB)
("|-<" #X1002BC)
("|=<" #X1002BD)
("|--<" #X1002BE)
("|==<" #X1002BF)
("~=" #X1002CA)
("~>" #X1002CB)
("~~>" #X1002CC)
("~>>" #X1002CD)
("[[" #X1002CF)
("[|" #X1002D0)
("_|_" #X1002D7)
("]]" #X1002E0)
("≡≡" #X1002F3)
("≡≡≡" #X1002F4)
("≡:≡" #X1002F5)
("≡/" #X1002F6)
("≡/≡" #X1002F7)
)))
(defun add-pragmatapro-prettify-symbols-alist ()
(setq prettify-symbols-alist pragmatapro-prettify-symbols-alist))
;; enable prettified symbols on comments
(defun setup-compose-predicate ()
(setq prettify-symbols-compose-predicate
(defun my-prettify-symbols-default-compose-p (start end _match)
"Same as `prettify-symbols-default-compose-p', except compose symbols in comments as well."
(let* ((syntaxes-beg (if (memq (char-syntax (char-after start)) '(?w ?_))
'(?w ?_) '(?. ?\\)))
(syntaxes-end (if (memq (char-syntax (char-before end)) '(?w ?_))
'(?w ?_) '(?. ?\\))))
(not (or (memq (char-syntax (or (char-before start) ?\s)) syntaxes-beg)
(memq (char-syntax (or (char-after end) ?\s)) syntaxes-end)
(nth 3 (syntax-ppss))))))))
;; main hook fn, just add to text-mode/prog-mode
(defun prettify-hook ()
(add-pragmatapro-prettify-symbols-alist)
(setup-compose-predicate))