Smoother scrolling and more symbols
And a bit of reorganization.
This commit is contained in:
Howard Abrams
parent
bba1e52a06
commit
1250e152c6
3 changed files with 102 additions and 77 deletions
|
|
@ -250,12 +250,14 @@ The =dashboard= project hooks to [[help:emacs-startup-hook][emacs-startup-hook]]
|
|||
"Shows the extra stuff with the dashboard."
|
||||
(interactive)
|
||||
(switch-to-buffer "*dashboard*")
|
||||
(setq-local mode-line-format nil)
|
||||
(delete-other-windows)
|
||||
(split-window-horizontally)
|
||||
(other-window 1)
|
||||
(switch-to-buffer "*cheatsheet*")
|
||||
(ignore-errors
|
||||
(cheatsheet-mode)
|
||||
(setq-local mode-line-format nil)
|
||||
(erase-buffer)
|
||||
(insert (cheatsheet--format))
|
||||
(setq buffer-read-only t))
|
||||
|
|
|
|||
165
ha-display.org
165
ha-display.org
|
|
@ -25,6 +25,7 @@ A literate programming file to configure the Emacs UI.
|
|||
;;; Code:
|
||||
#+end_src
|
||||
|
||||
* Visual Settings
|
||||
Let's turn off the menu and other settings:
|
||||
#+begin_src emacs-lisp
|
||||
(when (display-graphic-p)
|
||||
|
|
@ -36,6 +37,7 @@ Let's turn off the menu and other settings:
|
|||
frame-inhibit-implied-resize t))
|
||||
#+end_src
|
||||
|
||||
** All the Icons
|
||||
And let’s make this Emacs look more like a fancy IDE with [[https://github.com/domtronn/all-the-icons.el][all-the-icons]]:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
|
|
@ -55,6 +57,94 @@ And let’s make this Emacs look more like a fancy IDE with [[https://github.com
|
|||
#+end_src
|
||||
|
||||
This also expands the [[file:ha-config.org::*Leader Sequences][Major Mode Hydra]] title sequence with a pretty icon.
|
||||
|
||||
** Symbols and Emojis
|
||||
|
||||
Display these two symbols as one character, as using [[Ligatures]] often stretches wider, and the following are nice to be collapsed:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(add-hook 'text-mode-hook (lambda ()
|
||||
(dolist (pair '(("!?" . "‽")
|
||||
("ae" . "æ")
|
||||
("..." . "…") ; ??
|
||||
("??" . "⁇")
|
||||
;; ("<<" . "«")
|
||||
;; (">>" . "»")
|
||||
("AE" . "Æ")))
|
||||
(push pair prettify-symbols-alist))))
|
||||
#+end_src
|
||||
|
||||
And turn the /prettifier/ on:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(global-prettify-symbols-mode 1)
|
||||
#+end_src
|
||||
|
||||
How, we <<We can write loudly!?>>
|
||||
Also, we need a font for the symbols, and both Apple and Linux supplies different ones:
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(set-fontset-font t 'symbol
|
||||
(cond
|
||||
((ha-running-on-macos?)
|
||||
(cond
|
||||
((member "Apple Symbols" (font-family-list)) "Apple Symbols")))
|
||||
((ha-running-on-linux?)
|
||||
(cond
|
||||
((member "Symbola" (font-family-list)) "Symbola")))))
|
||||
#+END_SRC
|
||||
|
||||
In Emacs 28.1, we have better Unicode 14 support. Which means, we need to install either [[https://fonts.google.com/noto/specimen/Noto+Emoji][Noto Emoji]] or [[https://github.com/googlefonts/noto-emoji][Noto Color Emoji]]. Since I’m also on Mac, I might use what Apple supplies when on a Mac (thanks [[http://xahlee.info/emacs/emacs/emacs_list_and_set_font.html][Xah Lee]]):
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
;; set font for emoji (should come after setting symbols)
|
||||
(set-fontset-font t 'emoji
|
||||
(cond
|
||||
((member "Apple Color Emoji" (font-family-list)) "Apple Color Emoji")
|
||||
((member "Noto Color Emoji" (font-family-list)) "Noto Color Emoji")
|
||||
((member "Noto Emoji" (font-family-list)) "Noto Emoji")
|
||||
((member "Symbola" (font-family-list)) "Symbola")))
|
||||
#+end_src
|
||||
|
||||
Test this out: 😄 😱 😸 👸 👽 🙋
|
||||
|
||||
Not use what I'm doing with the [[https://github.com/domtronn/all-the-icons.el][all-the-icons]] package, but the Doom Modeline uses much of this.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package all-the-icons)
|
||||
#+end_src
|
||||
|
||||
*Note:* Install everything with the function, =all-the-icons-install-fonts=.
|
||||
** Ultra Scroll
|
||||
|
||||
The [[https://github.com/jdtsmith/ultra-scroll][ultra-scroll]] project allows smoother scrolling of text and images. While this splits text at the top/bottom of buffer windows, we no longer work within a 80x24 text matrix. Large images would
|
||||
either be "there or not" which resulted large jumps and large distractions.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package ultra-scroll
|
||||
:straight (:type git :host github :repo "jdtsmith/ultra-scroll")
|
||||
:config
|
||||
(setq scroll-conservatively 101 ; important!
|
||||
scroll-margin 0)
|
||||
(ultra-scroll-mode 1))
|
||||
#+END_SRC
|
||||
** Ligatures
|
||||
Seems like getting ligatures to work in Emacs has been a Holy Grail. On Mac, I've used special builds that have hacks, but now with Emacs 27 and Harfbuzz, I should be able to get --> to look like it should.
|
||||
|
||||
#+begin_src emacs-lisp :tangle no
|
||||
(setq prettify-symbols-unprettify-at-point 'right-edge)
|
||||
|
||||
(global-prettify-symbols-mode +1)
|
||||
(prettify-symbols-mode +1)
|
||||
#+end_src
|
||||
|
||||
We'll start using that instead, but setting this [[file:ha-programming.org::*Ligatures][over here]] in the programming section.
|
||||
|
||||
Also note that adding a /little/ extra space between lines makes text files easier to read.
|
||||
#+begin_src emacs-lisp
|
||||
(add-hook 'text-mode-hook (lambda () (setq-local line-spacing 0.1)))
|
||||
#+end_src
|
||||
|
||||
* Mode Line
|
||||
Let's install and load some of packages from the [[https://github.com/hlissner/doom-emacs][Doom Emacs]] project, like [[https://github.com/seagle0128/doom-modeline][doom-modeline]] and maybe the themes:
|
||||
#+begin_src emacs-lisp
|
||||
|
|
@ -260,7 +350,7 @@ Simple function that gives me the font information based on the size I need. Re
|
|||
(let ((fav-font (format "%s-%d" ha-fixed-font size)))
|
||||
(set-face-attribute 'default nil :font fav-font)
|
||||
(set-face-attribute 'fixed-pitch nil :family ha-fixed-font :inherit 'default :height 1.0)
|
||||
(set-face-attribute 'variable-pitch nil :family ha-variable-font :inherit 'default :height 1.2)))
|
||||
(set-face-attribute 'variable-pitch nil :family ha-variable-font :inherit 'default :height 1.0)))
|
||||
#+end_src
|
||||
|
||||
Define /interactive/ functions to quickly adjusting the font size based on my computing scenario:
|
||||
|
|
@ -455,79 +545,6 @@ Now that I’m using v29 of Emacs, I can /un-decorate/ the non-full-sized frames
|
|||
#+begin_src emacs-lisp
|
||||
(add-to-list 'default-frame-alist '(undecorated-round . t))
|
||||
#+end_src
|
||||
* Emojis, Icons and Whatnot
|
||||
Display these two symbols as one:
|
||||
#+begin_src emacs-lisp
|
||||
(add-hook 'text-mode-hook (lambda ()
|
||||
(dolist (pair '(("!?" . "‽")
|
||||
("ae" . "æ")
|
||||
("AE" . "Æ")
|
||||
|
||||
;; If we have ligatures, why these?
|
||||
;; ("->" . ?→)
|
||||
;; ("<-" . ?←)
|
||||
;; ("=>" . ?⇒)
|
||||
))
|
||||
(push pair prettify-symbols-alist))))
|
||||
#+end_src
|
||||
|
||||
And turn the prettifier on:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(global-prettify-symbols-mode 1)
|
||||
#+end_src
|
||||
|
||||
Also, we need a font for the symbols, and both Apple and Linux supplies different ones:
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(set-fontset-font t 'symbol
|
||||
(cond
|
||||
((ha-running-on-macos?)
|
||||
(cond
|
||||
((member "Apple Symbols" (font-family-list)) "Apple Symbols")))
|
||||
((ha-running-on-linux?)
|
||||
(cond
|
||||
((member "Symbola" (font-family-list)) "Symbola")))))
|
||||
|
||||
#+END_SRC
|
||||
|
||||
In Emacs 28.1, we have better Unicode 14 support. Which means, we need to install either [[https://fonts.google.com/noto/specimen/Noto+Emoji][Noto Emoji]] or [[https://github.com/googlefonts/noto-emoji][Noto Color Emoji]]. Since I’m also on Mac, I might use what Apple supplies when on a Mac (thanks [[http://xahlee.info/emacs/emacs/emacs_list_and_set_font.html][Xah Lee]]):
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
;; set font for emoji (should come after setting symbols)
|
||||
(set-fontset-font t 'emoji
|
||||
(cond
|
||||
((member "Apple Color Emoji" (font-family-list)) "Apple Color Emoji")
|
||||
((member "Noto Color Emoji" (font-family-list)) "Noto Color Emoji")
|
||||
((member "Noto Emoji" (font-family-list)) "Noto Emoji")
|
||||
((member "Symbola" (font-family-list)) "Symbola")))
|
||||
#+end_src
|
||||
|
||||
Test this out: 😄 😱 😸 👸 👽 🙋
|
||||
|
||||
Not use what I'm doing with the [[https://github.com/domtronn/all-the-icons.el][all-the-icons]] package, but the Doom Modeline uses much of this.
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(use-package all-the-icons)
|
||||
#+end_src
|
||||
|
||||
*Note:* Install everything with the function, =all-the-icons-install-fonts=.
|
||||
* Ligatures
|
||||
Seems like getting ligatures to work in Emacs has been a Holy Grail. On Mac, I've used special builds that have hacks, but now with Emacs 27 and Harfbuzz, I should be able to get --> to look like it should.
|
||||
|
||||
#+begin_src emacs-lisp :tangle no
|
||||
(setq prettify-symbols-unprettify-at-point 'right-edge)
|
||||
|
||||
(global-prettify-symbols-mode +1)
|
||||
(prettify-symbols-mode +1)
|
||||
#+end_src
|
||||
|
||||
We'll start using that instead, but setting this [[file:ha-programming.org::*Ligatures][over here]] in the programming section.
|
||||
|
||||
Also note that adding a /little/ extra space between lines makes text files easier to read.
|
||||
#+begin_src emacs-lisp
|
||||
(add-hook 'text-mode-hook (lambda () (setq-local line-spacing 0.1)))
|
||||
#+end_src
|
||||
* Technical Artifacts :noexport:
|
||||
|
||||
Let's =provide= a name so we can =require= this file:
|
||||
|
|
|
|||
|
|
@ -333,13 +333,19 @@ The [[https://github.com/minad/org-modern][org-modern]] project attempts to do a
|
|||
(use-package org-modern
|
||||
:straight (:host github :repo "minad/org-modern")
|
||||
:after org
|
||||
:hook ( ; (add-hook 'org-mode-hook #'org-modern-mode)
|
||||
:hook ((org-mode . org-modern-mode)
|
||||
(org-agenda-finalize . org-modern-agenda))
|
||||
:custom
|
||||
(org-modern-table nil)
|
||||
(org-pretty-entities t)
|
||||
(setq org-modern-fold-stars '(("▸" . "▾")
|
||||
("▹" . "▿")
|
||||
("▸" . "▾")
|
||||
("▹" . "▿")
|
||||
("▸" . "▾")))
|
||||
:config
|
||||
(set-face-attribute 'org-modern-symbol nil :family "Iosevka")
|
||||
(global-org-modern-mode))
|
||||
(set-face-attribute 'org-ellipsis nil :inherit 'default :box nil :underline nil)
|
||||
(set-face-attribute 'org-modern-symbol nil :family "Iosevka"))
|
||||
#+end_src
|
||||
|
||||
I like the smaller code blocks as well as the <2022-06-16 Thu> timestamps.
|
||||
|
|
|
|||
Loading…
Reference in a new issue