From 23e6561685ebb73a738ed5f6ee758e943f738b93 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 7 Jun 2018 00:38:16 -0700 Subject: [PATCH] Move all lui settings to separate file --- emacs/.emacs.d/init.el | 14 -------------- emacs/.emacs.d/init/oni-lui-init.el | 18 +++++++++++++++--- 2 files changed, 15 insertions(+), 17 deletions(-) diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index da540bc..5939772 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -396,20 +396,6 @@ (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)) (setq jabber-account-list diff --git a/emacs/.emacs.d/init/oni-lui-init.el b/emacs/.emacs.d/init/oni-lui-init.el index 93ee82e..290f824 100755 --- a/emacs/.emacs.d/init/oni-lui-init.el +++ b/emacs/.emacs.d/init/oni-lui-init.el @@ -27,11 +27,23 @@ (require 'lui) -(with-eval-after-load 'lui - (setq lui-time-stamp-position 'right-margin)) +(defun oni-lui-init--set-margin-width () + "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 - (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) ;;; oni-lui-init.el ends here