From 92eba9c8697c65fa3912b0379322e3370ecfb678 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 27 Nov 2012 11:12:59 +0100 Subject: .emacs.d/site-lisp/oni.el --- .emacs.d/site-lisp/oni.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to '.emacs.d/site-lisp/oni.el') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index 286f19b..f35249d 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -228,7 +228,8 @@ If COUNT has been specified indent by that much, otherwise look at (visual-line-mode) (setq mode-line-format (append (cddr jabber-chat-header-line-format) '(global-mode-string)) - header-line-format nil)) + header-line-format nil + wrap-prefix (make-string 8 ?\ ))) (defun oni:jabber-roster-mode-func () "Function for `jabber-roster-mode-hook'." @@ -278,7 +279,7 @@ If COUNT has been specified indent by that much, otherwise look at to add yasnippet's expand function to hippie-expand." (require other) (add-to-list 'hippie-expand-try-functions-list - 'yas/hippie-try-expand)) + 'yas/hippie-try-expand t)) (defun oni:lua-mode-func() "Function for `lua-mode-hook'." @@ -609,6 +610,11 @@ for easy selection." "Function for `write-file-hooks'." (time-stamp)) +(defun oni:yas-minor-mode-func () + "Function for `yas-minor-mode-hook'." + (define-key yas-minor-mode-map (kbd "TAB") nil) + (define-key yas-minor-mode-map [(tab)] nil)) + (define-skeleton html-tag "Testing creation of an html tag" "Tagname:" -- cgit v1.2.3-54-g00ecf From bb9e6aab9d1bd89b12d6bcd418c969ac97c86d7d Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 28 Nov 2012 10:13:49 +0100 Subject: .emacs.d/site-lisp/oni.el --- .emacs.d/site-lisp/oni.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to '.emacs.d/site-lisp/oni.el') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index f35249d..1c99555 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -104,6 +104,13 @@ DOT are intentionally being skipped." (local-set-key "\C-j" 'oni:newline-and-indent) (rainbow-mode)) +(defun oni:current-jabber-status () + "Return a string representing the current jabber status." + (or (and (not *jabber-connected*) "Offline") + (and (not (string= *jabber-current-status* "")) + *jabber-current-status*) + "Online")) + (defun oni:diary-display-func () "Function for `diary-display-hook'." (diary-fancy-display)) -- cgit v1.2.3-54-g00ecf From ac510449fc004f0057edebfa749cdfeeec9fae7a Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Tue, 4 Dec 2012 17:45:20 +0100 Subject: .emacs.d/site-lisp/oni.el --- .emacs.d/site-lisp/oni.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to '.emacs.d/site-lisp/oni.el') diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index 1c99555..2adf288 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -58,11 +58,9 @@ DOT are intentionally being skipped." "A mailbox map for use with `tmm-prompt'.") (defvar oni:required-packages - '(graphviz-dot-mode htmlize magit rainbow-delimiters - rainbow-mode yasnippet markdown-mode flymake - flymake-cursor pony-mode sauron dispass - expand-region fill-column-indicator - git-auto-commit-mode idomenu magit smex) + '(graphviz-dot-mode htmlize magit rainbow-delimiters rainbow-mode + yasnippet markdown-mode flymake flymake-cursor sauron expand-region + fill-column-indicator git-auto-commit-mode idomenu magit smex) "List of all the packages I have (want) installed.") (defun oni:after-save-func () @@ -71,7 +69,8 @@ DOT are intentionally being skipped." (executable-make-buffer-file-executable-if-script-p) (let ((dom-dir (locate-dominating-file (buffer-file-name) "Makefile"))) (when dom-dir - (shell-command (concat "make -C " dom-dir " TAGS >/dev/null 2>&1"))))) + (shell-command + (concat "make -C " dom-dir " TAGS >/dev/null 2>&1"))))) (defun oni:before-save-func () "Function for `before-save-hook'." -- cgit v1.2.3-54-g00ecf