gergely/my-emacs-d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Change the title of a frame to the current file name

Browse Source
This commit is contained in:
Gergely Polonkai 2016-11-10 11:36:48 +01:00
parent fa68c7ce00
commit d76643ae93
1 changed files with 27 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
init.el
View File

@ -928,23 +928,30 @@
'(("lambda" . 955) ; λ '(("lambda" . 955) ; λ
("->" . 8594) ; → ("->" . 8594) ; →
("=>" . 8658) ; ⇒ ("=>" . 8658) ; ⇒
("map" . 8614))) ; ↦ ("map" . 8614)) ; ↦
;; …and some pairs to complete
;; TODO: maybe add-to-list is a better way to do it ;; …and some pairs to complete
(setq insert-pair-alist ;; TODO: maybe add-to-list is a better way to do it
'( insert-pair-alist '(
(40 41) ; () (40 41) ; ()
(91 93) ; [] (91 93) ; []
(123 125) ; {} (123 125) ; {}
(60 62) ; <> (60 62) ; <>
(34 34) ; "" (34 34) ; ""
(39 39) ; '' (39 39) ; ''
(96 39) ; `' (96 39) ; `'
(8220 8221) ; “” (8220 8221) ; “”
(8222 8221) ; „” (8222 8221) ; „”
(8216 8217) ; ‘’ (8216 8217) ; ‘’
(8249 8250) ; ‹› (8249 8250) ; ‹›
(8250 8249) ; ›‹ (8250 8249) ; ›‹
(171 187) ; «» (171 187) ; «»
(187 171) ; »« (187 171)) ; »«
))
;; Set the frame title to the current file name
frame-title-format '((:eval (concat system-name
": "
(if (buffer-file-name)
(abbreviate-file-name
(buffer-file-name))
"%b")))))