3d8849e68b
**TL;DR:** Most of these changes predicate behavior on the platform: - At buildtime this is `localSystem == $something`. (`localSystem` is from `readTree`) - At runtime this is `(memq window-system '(ns))`. - Add `coreutils` so `dired` listing with `--group-directories-first` works because that flag depends on the GNU version of `ls`. **Background:** I need to support a bunch of OSX users at $WORK. As such, I'm planning on using my MBP for the next few weeks to build empathy for our userbase and polish some currently rough edges. If I'm going to get an serious work done, I need my Emacs setup. Step one is making sure it can build and run. Change-Id: I918efccfa5f149e218aeea476c2c7df1c7b64ae8 Reviewed-on: https://cl.tvl.fyi/c/depot/+/7309 Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com>
99 lines
3.6 KiB
EmacsLisp
99 lines
3.6 KiB
EmacsLisp
;;; fonts.el --- Font preferences -*- lexical-binding: t -*-
|
|
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
;; Version: 0.0.1
|
|
;; Package-Requires: ((emacs "24.3"))
|
|
|
|
;;; Commentary:
|
|
;; Control my font preferences with ELisp.
|
|
|
|
;;; Code:
|
|
|
|
;; TODO: `defcustom' font-size.
|
|
;; TODO: `defcustom' fonts.
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'prelude)
|
|
(require 'cycle)
|
|
(require 'maybe)
|
|
(require 'cl-lib)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Constants
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; TODO: Troubleshoot why "8" appears so large on my desktop.
|
|
|
|
;; TODO: Consider having a different font size when I'm using my 4K monitor.
|
|
|
|
(defconst fonts-size "10"
|
|
"My preferred default font-size.")
|
|
|
|
(defconst fonts-size-step 10
|
|
"The amount (%) by which to increase or decrease a font.")
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Functions
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defun fonts-set (font &optional size)
|
|
"Change the font to `FONT' with option integer, SIZE, in pixels."
|
|
(if (maybe-some? size)
|
|
(set-frame-font (string-format "%s %s" font size) nil t)
|
|
(set-frame-font font nil t)))
|
|
|
|
(defun fonts-increase-size ()
|
|
"Increase font size."
|
|
(interactive)
|
|
(->> (face-attribute 'default :height)
|
|
(+ fonts-size-step)
|
|
(set-face-attribute 'default (selected-frame) :height)))
|
|
|
|
(defun fonts-decrease-size ()
|
|
"Decrease font size."
|
|
(interactive)
|
|
(->> (face-attribute 'default :height)
|
|
(+ (- fonts-size-step))
|
|
(set-face-attribute 'default (selected-frame) :height)))
|
|
|
|
(defun fonts-reset-size ()
|
|
"Restore font size to its default value."
|
|
(interactive)
|
|
(fonts-set (fonts-current) fonts-size))
|
|
|
|
(defun fonts-enable-ligatures ()
|
|
"Call this function to enable ligatures."
|
|
(interactive)
|
|
(let ((alist '((33 . ".\\(?:\\(?:==\\|!!\\)\\|[!=]\\)")
|
|
(35 . ".\\(?:###\\|##\\|_(\\|[#(?[_{]\\)") ;;
|
|
(36 . ".\\(?:>\\)")
|
|
(37 . ".\\(?:\\(?:%%\\)\\|%\\)")
|
|
(38 . ".\\(?:\\(?:&&\\)\\|&\\)")
|
|
(42 . ".\\(?:\\(?:\\*\\*/\\)\\|\\(?:\\*[*/]\\)\\|[*/>]\\)") ;;
|
|
(43 . ".\\(?:\\(?:\\+\\+\\)\\|[+>]\\)")
|
|
(45 . ".\\(?:\\(?:-[>-]\\|<<\\|>>\\)\\|[<>}~-]\\)")
|
|
(46 . ".\\(?:\\(?:\\.[.<]\\)\\|[.=-]\\)") ;;
|
|
(47 . ".\\(?:\\(?:\\*\\*\\|//\\|==\\)\\|[*/=>]\\)")
|
|
(48 . ".\\(?:x[a-zA-Z]\\)")
|
|
(58 . ".\\(?:::\\|[:=]\\)")
|
|
(59 . ".\\(?:;;\\|;\\)")
|
|
(60 . ".\\(?:\\(?:!--\\)\\|\\(?:~~\\|->\\|\\$>\\|\\*>\\|\\+>\\|--\\|<[<=-]\\|=[<=>]\\||>\\)\\|[*$+~/<=>|-]\\)")
|
|
(61 . ".\\(?:\\(?:/=\\|:=\\|<<\\|=[=>]\\|>>\\)\\|[<=>~]\\)")
|
|
(62 . ".\\(?:\\(?:=>\\|>[=>-]\\)\\|[=>-]\\)")
|
|
(63 . ".\\(?:\\(\\?\\?\\)\\|[:=?]\\)")
|
|
(91 . ".\\(?:]\\)")
|
|
(92 . ".\\(?:\\(?:\\\\\\\\\\)\\|\\\\\\)")
|
|
(94 . ".\\(?:=\\)")
|
|
(119 . ".\\(?:ww\\)")
|
|
(123 . ".\\(?:-\\)")
|
|
(124 . ".\\(?:\\(?:|[=|]\\)\\|[=>|]\\)")
|
|
(126 . ".\\(?:~>\\|~~\\|[>=@~-]\\)"))))
|
|
(dolist (char-regexp alist)
|
|
(set-char-table-range composition-function-table (car char-regexp)
|
|
`([,(cdr char-regexp) 0 font-shape-gstring])))))
|
|
|
|
(provide 'fonts)
|
|
;;; fonts.el ends here
|