From f313ba9c6aa869b2f615a23b97fd2c91024236e3 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 26 Feb 2019 00:51:53 -0800 Subject: Add oni-circe and oni-lui --- oni-lui.el | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100644 oni-lui.el (limited to 'oni-lui.el') diff --git a/oni-lui.el b/oni-lui.el new file mode 100644 index 0000000..2c22eb4 --- /dev/null +++ b/oni-lui.el @@ -0,0 +1,52 @@ +;;; oni-lui.el --- LUI configuration -*- lexical-binding: t; -*- + +;; Copyright (C) 2019 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: local +;; Version: 20190226004504 +;; Package-Requires: (circe) + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Configuration for the Linewise User Interface package. + +;;; Code: + +(require 'lui) + +(defun oni-lui--set-margin-width () + "Set the margin width to 5." + (setq right-margin-width 5)) + +(defun oni-lui--set-prompt-wrap-prefix () + "Set the wrap prefix to two spaces." + (setq wrap-prefix " ")) + +(with-eval-after-load 'lui + (setq lui-time-stamp-position 'right-margin + lui-time-stamp-format "%H:%M")) + +(add-hook 'lui-mode-hook #'oni-lui--set-margin-width) +(add-hook 'lui-mode-hook #'oni-lui--set-prompt-wrap-prefix) +(add-hook 'lui-mode-hook 'visual-line-mode) + +(setq lui-fill-type nil) + +;;;###autoload(with-eval-after-load 'lui (require 'oni-lui)) + +(provide 'oni-lui) +;;; oni-lui.el ends here -- cgit v1.2.3-54-g00ecf