Add some misc changes

config/ublt-appearance.el

@@ -508,8 +508,7 @@
 
 ;;; Bigger minibuffer text
 (defun ublt/minibuffer-setup ()
-  (set (make-local-variable 'face-remapping-alist)
-       '((default :height 1.0)))
+  (setq-local face-remapping-alist '((default :height 1.0)))
   (setq line-spacing 0.3))
 (add-hook 'minibuffer-setup-hook #'ublt/minibuffer-setup)
 

config/ublt-dark-theme.el

@@ -924,7 +924,7 @@ scaled. This \"base face\" trick is used by `ublt-themes'."
    `(comint-highlight-prompt
      ((,class (,@prompt))))
    `(comint-highlight-input
-     ((,class (:background ,bg+1 :foreground ,fg-1))))
+     ((,class (:background ,bg+1))))
 
    `(cider-repl-prompt-face
      ((,class (:inherit font-lock-constant-face))))

config/ublt-editing.el

@@ -170,6 +170,7 @@ See `http://ergoemacs.org/emacs/modernization_upcase-word.html'
   :hook (pullover-mode . (lambda () (call-interactively 'evil-insert)))
   :bind (:map pullover-mode-map
               ([remap ublt/kill-this-buffer] . pullover-cancel)))
+
 (use-package markdown-mode
   :custom (pullover-major-mode 'gfm-mode))
 

config/ublt-helm.el

@@ -141,9 +141,10 @@ all of the sources."
     (when (ublt/helm-should-use-variable-pitch? helm-sources)
       (variable-pitch-mode +1))
     (setq line-spacing 0.3)
-    (visual-line-mode -1)
-    ;; (text-scale-increase 1)
-    ))
+    ;; FIX: This doesn't work. Find a way to hide the cursor.
+    (setq cursor-type 'bar)
+    ;; (text-scale-decrease 1)
+    (visual-line-mode -1)))
 
 (use-package helm
   :hook (helm-after-initialize . ublt/helm-tweak-appearance))

init.el

@@ -71,6 +71,8 @@
      (load "ublt-straight-recipes")
 
      (straight-use-package 'use-package)
+     (require 'use-package)
+
      ;; We don't want to declare a package twice.
      (setq straight-use-package-by-default t)
 

lib/ublt-fix-jumpy-scroll.el

@@ -27,9 +27,7 @@ of window's top part restricted by `scroll-margin' if needed."
           ;; Fix window-cursor, move text down to meet the initial line
           (scroll-down (count-screen-lines initial now)))))))
 
-;;; Note that we don't count the screen lines between the current
-;;; point and the window's bottom edge. That calculation would
-;;; probably be too involved.
+;;; FIX: This is slow.
 (defun ublt/avoid-bottom-scroll-margin (&rest _)
   "Scroll text together with cursor (i.e. preserving `point') out
 of window's bottom part restricted by `scroll-margin' if needed."