Make the prettify-symbols-mode section easier to read
This commit is contained in:
parent
e343fda9e1
commit
8b2e5d8659
@ -1185,18 +1185,22 @@ Because we can.
|
|||||||
And set up all the pretty symbols.
|
And set up all the pretty symbols.
|
||||||
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
;; Add some symbols to be prettified
|
|
||||||
(setq prettify-symbols-alist
|
(setq prettify-symbols-alist
|
||||||
'(("lambda" . 955) ; λ
|
'(("lambda" . 955) ; λ
|
||||||
("function" . 402) ; ƒ
|
("function" . 402) ; ƒ
|
||||||
("->" . 8594) ; →
|
("->" . 8594) ; →
|
||||||
("=>" . 8658) ; ⇒
|
("=>" . 8658) ; ⇒
|
||||||
("map" . 8614) ; ↦
|
("map" . 8614) ; ↦
|
||||||
("not" . 172)) ; ¬
|
("not" . 172))) ; ¬
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
;; …and some pairs to complete
|
…and some pairs to complete
|
||||||
;; TODO: maybe add-to-list is a better way to do it
|
|
||||||
insert-pair-alist '(
|
*************** TODO Maybe add-to-list is a better way to do it
|
||||||
|
*************** END
|
||||||
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(setq insert-pair-alist '(
|
||||||
(40 41) ; ()
|
(40 41) ; ()
|
||||||
(91 93) ; []
|
(91 93) ; []
|
||||||
(123 125) ; {}
|
(123 125) ; {}
|
||||||
@ -1210,14 +1214,16 @@ And set up all the pretty symbols.
|
|||||||
(8249 8250) ; ‹›
|
(8249 8250) ; ‹›
|
||||||
(8250 8249) ; ›‹
|
(8250 8249) ; ›‹
|
||||||
(171 187) ; «»
|
(171 187) ; «»
|
||||||
(187 171)) ; »«
|
(187 171))) ; »«
|
||||||
|
#+END_SRC
|
||||||
|
|
||||||
;; Set the frame title to the current file name
|
Finally, set the frame title to the current file name
|
||||||
frame-title-format '((:eval (concat system-name
|
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(setq frame-title-format '((:eval (concat system-name
|
||||||
": "
|
": "
|
||||||
(if (buffer-file-name)
|
(if (buffer-file-name)
|
||||||
(abbreviate-file-name
|
(abbreviate-file-name (buffer-file-name))
|
||||||
(buffer-file-name))
|
|
||||||
"%b")))))
|
"%b")))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
@ -2967,6 +2973,8 @@ This is a big one; I use a lot of customisation here.
|
|||||||
(require 'org-protocol)
|
(require 'org-protocol)
|
||||||
;; Make it possible to encrypt headings
|
;; Make it possible to encrypt headings
|
||||||
(require 'org-crypt)
|
(require 'org-crypt)
|
||||||
|
;; Make it possible to use inline tasks
|
||||||
|
(require 'org-inlinetask)
|
||||||
|
|
||||||
:custom
|
:custom
|
||||||
(org-log-into-drawer t)
|
(org-log-into-drawer t)
|
||||||
|
Loading…
Reference in New Issue
Block a user