Clean up

core/core-evil.el

@@ -208,7 +208,7 @@
 
     (progn ; ex-commands
       (evil-ex-define-cmd "echo" 'my:echo)
-      (evil-ex-define-cmd "pres[ent]" 'toggle-presentation-mode)
+      (evil-ex-define-cmd "cycle" 'cycle-font)
       (evil-ex-define-cmd "togglet[heme]" 'toggle-theme)
       (evil-ex-define-cmd "full[scr]" 'toggle-frame-fullscreen)
       (evil-ex-define-cmd "k[ill]" 'kill-this-buffer)      ; Kill current buffer

core/core-ui.el

@@ -4,7 +4,6 @@
 (when window-system
   ;; No transparency!
   (set-frame-parameter nil 'alpha '(94 70))
-
   (let* ((font (nth 0 *fonts))
          (font-name (nth 0 font))
          (font-size (nth 1 font))
@@ -23,7 +22,7 @@
 ;;;; GUI Settings ;;;;;;;;;;;;;;;;;;;;;;
 (tooltip-mode -1)
 (blink-cursor-mode 1)        ; blink cursor
-;; (global-hl-line-mode 1)   ; highlight line
+(global-hl-line-mode 1)   ; highlight line
 
 (setq linum-format " %3d")
 
@@ -52,10 +51,6 @@
   (tooltip-mode -1)
   (blink-cursor-mode 1))
 
-;; Show full path in window title
-;; (setq frame-title-format
-;;       '(:eval (if (buffer-file-name) (abbreviate-file-name (buffer-file-name)) "%b")))
-
 
 ;;;; Modeline ;;;;;;;;;;;;;;;;;;;;;;;;;;
 (use-package uniquify

core/defuns-ui.el

@@ -40,6 +40,7 @@
 
 ;;;###autoload
 (defun cycle-font ()
+  "Cycle between fonts specified in *fonts in init.el"
   (interactive)
   (if (>= my/cycle-font-i (1- (length *fonts)))
       (setq my/cycle-font-i 0)