mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
Jim Myhrberg
749b7add73
I was having issues with the small right pointing triangle character rendering properly with Monaco. But the normal sized one renders fine in with Monaco and Menlo fonts.
94 lines
3.1 KiB
EmacsLisp
94 lines
3.1 KiB
EmacsLisp
;; Disable splash page
|
|
(setq inhibit-startup-message t)
|
|
|
|
;; Set default font
|
|
(set-face-attribute 'default nil :family "Monaco" :height 110)
|
|
;; (set-face-attribute 'default nil :family "Menlo" :height 110)
|
|
|
|
;; Load Theme
|
|
(if window-system (require 'birds-of-paradise-plus-theme)
|
|
(require 'tomorrow-night-paradise-theme))
|
|
|
|
;; Disable menu-bar
|
|
(menu-bar-mode 0)
|
|
|
|
;; Disable toolbar
|
|
(tool-bar-mode -1)
|
|
|
|
;; Disable Scrollbar
|
|
(set-scroll-bar-mode 'nil)
|
|
|
|
;; Show matching parentheses
|
|
(show-paren-mode t)
|
|
|
|
;; Show column number globally
|
|
(column-number-mode t)
|
|
|
|
;; Highlight current line globally
|
|
(global-hl-line-mode t)
|
|
|
|
;; Customize line numbers
|
|
(setq linum+-smart-format " %%%dd ")
|
|
(setq linum+-dynamic-format " %%%dd ")
|
|
|
|
;; Linum+ resets linum-format to "smart" when it's loaded, hence we have to
|
|
;; use a eval-after-load hook to set it to "dynamic".
|
|
(eval-after-load "linum+"
|
|
'(progn
|
|
(setq linum-format 'dynamic)))
|
|
|
|
;; meaningful names for buffers with the same name
|
|
(require 'uniquify)
|
|
(setq uniquify-buffer-name-style 'forward)
|
|
(setq uniquify-separator "/")
|
|
(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
|
|
(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
|
|
|
|
;; Display whitespace characters globally
|
|
(global-whitespace-mode t)
|
|
|
|
;; Customize Whitespace Characters
|
|
;; - Newline: \u00AC = ¬
|
|
;; - Tab: \u25B6 = ▶
|
|
;; \u25B8 = ▸
|
|
(setq whitespace-display-mappings
|
|
(quote ((newline-mark ?\n [?\u00AC ?\n] [?$ ?\n])
|
|
(tab-mark ?\t [?\u25B6 ?\t] [?\u00BB ?\t] [?\\ ?\t]))))
|
|
|
|
(setq whitespace-style
|
|
(quote (face tabs trailing space-before-tab newline
|
|
indentation space-after-tab tab-mark newline-mark
|
|
empty)))
|
|
|
|
;; Cursor
|
|
(blink-cursor-mode t)
|
|
(setq initial-frame-alist
|
|
(cons '(cursor-type . bar) (copy-alist initial-frame-alist)))
|
|
(setq default-frame-alist
|
|
(cons '(cursor-type . bar) (copy-alist default-frame-alist)))
|
|
|
|
;; Transparency (via helpers.el)
|
|
(setq transparency-level 98)
|
|
(transparency-set-value transparency-level)
|
|
(add-hook 'after-make-frame-functions
|
|
(lambda (selected-frame)
|
|
(set-frame-parameter selected-frame 'alpha transparency-level)))
|
|
|
|
;; Relative line numbers -- from: http://stackoverflow.com/a/6928112/42146
|
|
;; (defvar my-linum-format-string "%3d ")
|
|
;; ;; (add-hook 'linum-before-numbering-hook 'my-linum-get-format-string)
|
|
;; (defun my-linum-get-format-string ()
|
|
;; (let* ((width (1+ (length (number-to-string
|
|
;; (count-lines (point-min) (point-max))))))
|
|
;; (format (concat "%" (number-to-string width) "d")))
|
|
;; (setq my-linum-format-string format)))
|
|
;; (defvar my-linum-current-line-number 0)
|
|
;; (setq linum-format 'my-linum-relative-line-numbers)
|
|
;; (defun my-linum-relative-line-numbers (line-number)
|
|
;; (let ((offset (abs(- line-number my-linum-current-line-number))))
|
|
;; (propertize (format my-linum-format-string offset) 'face 'linum)))
|
|
;; (defadvice linum-update (around my-linum-update)
|
|
;; (let ((my-linum-current-line-number (line-number-at-pos)))
|
|
;; ad-do-it))
|
|
;; (ad-activate 'linum-update)
|