mirror of
https://github.com/fabrizioschiavi/pragmatapro.git
synced 2024-08-17 00:40:30 +03:00
Create pragmatapro-prettify-symbols-v0.830.el
This commit is contained in:
parent
bda10495e3
commit
e1ada51969
289
emacs_snippets/pragmatapro-prettify-symbols-v0.830.el
Normal file
289
emacs_snippets/pragmatapro-prettify-symbols-v0.830.el
Normal 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))
|
Loading…
Reference in New Issue
Block a user