emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

No NARF, only DOOM

Browse source
This commit is contained in:
Henrik Lissner 2016-05-20 22:37:30 -04:00
parent a984bf4f26
commit ad225d2591
104 changed files with 1404 additions and 1409 deletions
Download patch file Download diff file Expand all files Collapse all files

36
core/defuns/defuns-ui.el
View file

@ -1,10 +1,9 @@
;;; defuns-ui.el
;; for ../core-ui.el
;;;###autoload (autoload 'narf:toggle-fullscreen "defuns-ui" nil t)
;;;###autoload (autoload 'narf:set-columns "defuns-ui" nil t)
;;;###autoload (autoload 'doom:toggle-fullscreen "defuns-ui" nil t)
;;;###autoload (autoload 'doom:set-columns "defuns-ui" nil t)
(after! evil
(evil-define-command narf:set-columns (&optional bang columns)
(evil-define-command doom:set-columns (&optional bang columns)
"Adjusts visual-fill-column-width on the fly."
(interactive "<!><a>")
(if (or (= (length columns) 0) bang)
@ -19,33 +18,33 @@
(visual-fill-column--adjust-window)
(visual-fill-column-mode 1)))
(evil-define-command narf:toggle-fullscreen ()
(evil-define-command doom:toggle-fullscreen ()
(interactive)
(set-frame-parameter nil 'fullscreen (if (not (frame-parameter nil 'fullscreen)) 'fullboth))))
;;;###autoload
(defun narf/reset-theme ()
(defun doom/reset-theme ()
(interactive)
(narf/load-theme (or narf-current-theme narf-default-theme)))
(doom/load-theme (or doom-current-theme doom-default-theme)))
;;;###autoload
(defun narf/load-font (font)
(defun doom/load-font (font)
(interactive)
(set-frame-font font t)
(setq narf-current-font font))
(setq doom-current-font font))
;;;###autoload
(defun narf/load-theme (theme &optional suppress-font)
(defun doom/load-theme (theme &optional suppress-font)
(interactive)
(when narf-current-theme
(disable-theme narf-current-theme))
(when doom-current-theme
(disable-theme doom-current-theme))
(load-theme theme t)
(unless suppress-font
(narf/load-font narf-current-font))
(setq narf-current-theme theme))
(doom/load-font doom-current-font))
(setq doom-current-theme theme))
;;;###autoload
(defun narf/show-as (how &optional pred)
(defun doom/show-as (how &optional pred)
(let* ((beg (match-beginning 1))
(end (match-end 1))
(ok (or (not pred) (funcall pred beg end))))
@ -54,16 +53,17 @@
nil))
;;;###autoload
(defun narf/imenu-list-quit ()
(defun doom/imenu-list-quit ()
(interactive)
(quit-window)
(mapc (lambda (b) (with-current-buffer b
(when imenu-list-minor-mode
(imenu-list-minor-mode -1))))
(narf/get-visible-buffers (narf/get-real-buffers))))
(doom/get-visible-buffers (doom/get-real-buffers))))
;;;###autoload
(defun narf|hide-mode-line (&rest _)
(defun doom|hide-mode-line (&rest _)
(set-window-fringes (selected-window) 0 0 nil)
(setq mode-line-format nil))
(provide 'defuns-ui)