diff options
Diffstat (limited to '.emacs.d/site-lisp/my-smt.el')
-rw-r--r-- | .emacs.d/site-lisp/my-smt.el | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/.emacs.d/site-lisp/my-smt.el b/.emacs.d/site-lisp/my-smt.el index 1010ddb..32009a2 100644 --- a/.emacs.d/site-lisp/my-smt.el +++ b/.emacs.d/site-lisp/my-smt.el @@ -83,19 +83,29 @@ WIDGET is ignored." ispell-local-dictionary flyspell-default-dictionary))))) +(smt/defwidget my-smt-position + :text (lambda (widget) + (ignore widget) + (format-mode-line "%l/%c:%p"))) + (smt/defrow my-smt-right :prototype 'default-right :widgets '(my-smt-jabber-activity major-mode my-smt-current-dictionary my-smt-flycheck-errors - version-control minor-modes)) + version-control minor-modes) + :margin 16) (smt/defrow my-smt-left :prototype 'default-left :widgets '(buffer-info my-smt-buffer-identification my-smt-po-counters which-function)) +(smt/defrow my-smt-position + :prototype 'default-position + :widgets '(my-smt-position)) + (defun my-smt-major-mode-style (widget) (ignore widget) '(:fill "#ccc" :font-family "Fantasque Sans" :filter nil @@ -107,7 +117,7 @@ WIDGET is ignored." (smt/make-widget :prototype 'major-mode :style 'my-smt-major-mode-style))) - :rows '(my-smt-left default-position my-smt-right)) + :rows '(my-smt-left my-smt-position my-smt-right)) (provide 'my-smt) ;;; my-smt.el ends here |