ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Move all lui settings to separate file

Browse source
This commit is contained in:
Tom Willemse 2018-06-07 00:38:16 -07:00
parent 0e21fddb0c
commit 23e6561685
2 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/.emacs.d/init.el
View file

@ -396,20 +396,6 @@
(with-eval-after-load 'lui (load "oni-lui-init")) (with-eval-after-load 'lui (load "oni-lui-init"))
(defun oni:set-circe-margin-width ()
(setq right-margin-width 5))
(add-hook 'lui-mode-hook #'oni:set-circe-margin-width)
(defun oni:set-lui-prompt-wrap-prefix ()
(setq wrap-prefix " "))
(add-hook 'lui-mode-hook #'oni:set-lui-prompt-wrap-prefix)
(add-hook 'lui-mode-hook 'visual-line-mode)
(setq lui-fill-type nil)
(eval-when-compile (require 'jabber)) (eval-when-compile (require 'jabber))
(setq jabber-account-list (setq jabber-account-list

18
emacs/.emacs.d/init/oni-lui-init.el
View file

@ -27,11 +27,23 @@
(require 'lui) (require 'lui)
(with-eval-after-load 'lui (defun oni-lui-init--set-margin-width ()
(setq lui-time-stamp-position 'right-margin)) "Set the margin width to 5."
(setq right-margin-width 5))
(defun oni-lui-init--set-prompt-wrap-prefix ()
"Set the wrap prefix to two spaces."
(setq wrap-prefix " "))
(with-eval-after-load 'lui (with-eval-after-load 'lui
(setq lui-time-stamp-format "%H:%M")) (setq lui-time-stamp-position 'right-margin
lui-time-stamp-format "%H:%M"))
(add-hook 'lui-mode-hook #'oni-lui-init--set-margin-width)
(add-hook 'lui-mode-hook #'oni-lui-init--set-prompt-wrap-prefix)
(add-hook 'lui-mode-hook 'visual-line-mode)
(setq lui-fill-type nil)
(provide 'oni-lui-init) (provide 'oni-lui-init)
;;; oni-lui-init.el ends here ;;; oni-lui-init.el ends here