Emacs configuration for Clojure on MacOS

.emacs.d.clojure/customizations/ui.el

@@ -0,0 +1,104 @@
+;; These customizations change the way emacs looks and disable/enable
+;; some user interface elements. Some useful customizations are
+;; commented out, and begin with the line "CUSTOMIZE". These are more
+;; a matter of preference and may require some fiddling to match your
+;; preferences
+
+;; Turn off the menu bar at the top of each frame because it's distracting
+(menu-bar-mode -1)
+
+;; Show line numbers
+(global-linum-mode)
+
+;; Change cursor type to underline
+(set-default 'cursor-type 'hbar)
+
+;; You can uncomment this to remove the graphical toolbar at the top. After
+;; awhile, you won't need the toolbar.
+(when (fboundp 'tool-bar-mode)
+   (tool-bar-mode -1))
+
+;; Don't show native OS scroll bars for buffers because they're redundant
+(when (fboundp 'scroll-bar-mode)
+  (scroll-bar-mode -1))
+
+;; Color Themes
+;; Read http://batsov.com/articles/2012/02/19/color-theming-in-emacs-reloaded/
+;; for a great explanation of emacs color themes.
+;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Custom-Themes.html
+;; for a more technical explanation.
+(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
+(add-to-list 'load-path "~/.emacs.d/themes")
+
+;; set theme
+(load-theme 'darcula t)
+
+;; increase font size for better readability
+;;(set-face-attribute 'default nil :height 140)
+
+;; Set font family and size
+(set-frame-font "Monaco 16" nil t)
+
+;; Maximize Emacs window on startup
+(add-to-list 'default-frame-alist '(fullscreen . maximized))
+
+;;(windmove-default-keybindings)
+
+;; Change META button for MacOS from Option to Cmd
+(setq mac-option-modifier nil
+  mac-command-modifier 'meta
+  x-select-enable-clipboart t)
+
+
+
+;; Uncomment the lines below by removing semicolons and play with the
+;; values in order to set the width (in characters wide) and height
+;; (in lines high) Emacs will have whenever you start it
+;; (setq initial-frame-alist '((top . 0) (left . 0) (width . 177) (height . 53)))
+
+;; These settings relate to how emacs interacts with your operating system
+(setq ;; makes killing/yanking interact with the clipboard
+      x-select-enable-clipboard t
+
+      ;; I'm actually not sure what this does but it's recommended?
+      x-select-enable-primary t
+
+      ;; Save clipboard strings into kill ring before replacing them.
+      ;; When one selects something in another program to paste it into Emacs,
+      ;; but kills something in Emacs before actually pasting it,
+      ;; this selection is gone unless this variable is non-nil
+      save-interprogram-paste-before-kill t
+
+      ;; Shows all options when running apropos. For more info,
+      ;; https://www.gnu.org/software/emacs/manual/html_node/emacs/Apropos.html
+      apropos-do-all t
+
+      ;; Mouse yank commands yank at point instead of at click.
+      mouse-yank-at-point t)
+
+;; No cursor blinking, it's distracting
+(blink-cursor-mode 1)
+
+;; full path in title bar
+(setq-default frame-title-format "%b (%f)")
+
+;; don't pop up font menu
+(global-set-key (kbd "s-t") '(lambda () (interactive)))
+
+;; no bell
+(setq ring-bell-function 'ignore)
+
+
+(global-hl-line-mode)
+
+(setq confirm-kill-emacs 'y-or-n-p)
+
+;; Changes all yes/no questions to y/n type
+(fset 'yes-or-no-p 'y-or-n-p)
+
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (message "Emacs ready in %s with %d garbage collections."
+                     (format "%.2f seconds"
+                             (float-time  (time-subtract after-init-time before-init-time)))
+                     gcs-done)))