summary refs log tree commit diff
path: root/emacs.d/custom/fcuny-ui.el
blob: 23c51b82cf5a2dd8c71464c6d32b2e6b9fab30c8 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
(use-package fringe
  :custom
  (left-fringe-width 5)
  (right-fringe-width 5))

(use-package scroll-bar
  :config
  (scroll-bar-mode -1))

(use-package tool-bar
  :config
  (tool-bar-mode -1))

(use-package frame
  :bind (("C-c C-m" . toggle-frame-fullscreen)
         ("C-c C-=" . text-scale-increase)
         ("C-c C--" . text-scale-decrease))
  :config
  (blink-cursor-mode -1)
  (setq frame-title-format "%b")
  (set-frame-font "Source Code Pro-14")
  (when (memq window-system '(mac ns))
    (add-to-list 'default-frame-alist '(fullscreen . maximized))
    (add-to-list 'default-frame-alist '(ns-appearance . nil))
    (add-to-list 'default-frame-alist '(ns-transparent-titlebar . nil))
    (setq ns-use-native-fullscreen nil)
    (setq mac-allow-anti-aliasing t)))

(use-package time
  :ensure t
  :config
  (progn
    (setf display-time-default-load-average nil
          display-time-use-mail-icon t
          display-time-24hr-format t)
    (display-time-mode t)))

(use-package hl-line
  :hook ((prog-mode puppet-mode dired-mode org-mode markdown-mode) . hl-line-mode)
  :custom
  (hl-line-sticky-flag nil))

(use-package uniquify
  :defer 5
  :config
  ;; don't muck with special buffers
  (setq uniquify-ignore-buffers-re "^\\*")
  (setq uniquify-buffer-name-style 'forward)
  (setq uniquify-separator "/"))

(use-package hydra
  :ensure t)

(provide 'fcuny-ui)