From 3aba2dc6d8a11271ab85e997ce8650efeb87dfe7 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 26 Oct 2012 00:51:39 +0200 Subject: [PATCH 1/4] .emacs.d/site-lisp/metalexpress.el --- .emacs.d/site-lisp/metalexpress.el | 49 ++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 .emacs.d/site-lisp/metalexpress.el diff --git a/.emacs.d/site-lisp/metalexpress.el b/.emacs.d/site-lisp/metalexpress.el new file mode 100644 index 0000000..9d57c19 --- /dev/null +++ b/.emacs.d/site-lisp/metalexpress.el @@ -0,0 +1,49 @@ +;;; metalexpress.el --- Listen to Metal Express Radio + +;; Copyright (C) 2012 Tom Willemsen + +;; Author: Tom Willemsen +;; Keywords: multimedia + +;; 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: + +;; Functions for easily listening to Metal Express Radio. + +;;; Code: + +(defgroup metal-express-radio nil + "Group for the Metal Express Radio listening functions." + :group 'multimedia) + +(defcustom metal-express-radio-playlist-url + "http://usa7-vn.mixstream.net/listen/8248.m3u" + "The URL of the Metal Express Radio stream.") + +;;;###autoload +(defun metal-express-radio-start () + "Start listening to Metal Express Radio." + (interactive) + (async-shell-command + (concat "mplayer " metal-express-radio-playlist-url) + "*Metal Express Radio*")) + +(defun metal-express-radio-stop () + "Stop listening to Metal Express Radio." + (interactive) + (kill-process (get-buffer-process "*Metal Express Radio*"))) + +(provide 'metalexpress) +;;; metalexpress.el ends here From 8136125d18d0dbff65d7921f4e2fef36d0d092e7 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 26 Oct 2012 00:52:39 +0200 Subject: [PATCH 2/4] .emacs.d/site-lisp/oni.el --- .emacs.d/site-lisp/oni.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/.emacs.d/site-lisp/oni.el b/.emacs.d/site-lisp/oni.el index 133bf4e..2a27e45 100644 --- a/.emacs.d/site-lisp/oni.el +++ b/.emacs.d/site-lisp/oni.el @@ -381,7 +381,8 @@ When dealing with braces, add another line and indent that too." (defun oni:org-mode-func () "Function for `org-mode-hook'." (auto-fill-mode) - (yas-minor-mode)) + (yas-minor-mode) + (setq-local comment-auto-fill-only-comments nil)) (defun oni:php-mode-func () "Function for `php-mode-hook'." From 2d3476b96a39b572a8733e10b00cdad8083edb04 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 26 Oct 2012 00:53:28 +0200 Subject: [PATCH 3/4] .emacs.d/site-lisp/wm-init.el --- .emacs.d/site-lisp/wm-init.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.emacs.d/site-lisp/wm-init.el b/.emacs.d/site-lisp/wm-init.el index 1ff0501..694acab 100644 --- a/.emacs.d/site-lisp/wm-init.el +++ b/.emacs.d/site-lisp/wm-init.el @@ -1,3 +1,3 @@ (async-shell-command "herbstluftwm" " herbstluftwm") (async-shell-command "dunst" " dunst") -(async-shell-command "xbindkeys -n" " xbindkeys") +(async-shell-command "xbindkeys" " xbindkeys") From 2e70340b951f485d45b95684e7910d1a78917d03 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 26 Oct 2012 00:54:23 +0200 Subject: [PATCH 4/4] .emacs.d/init.el --- .emacs.d/init.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 4dc6873..793ac7d 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -145,6 +145,18 @@ `((".*" . ,temporary-file-directory))) (setq browse-url-browser-function 'browse-url-generic) (setq browse-url-generic-program (getenv "BROWSER")) +(setq c-offsets-alist '((statement-block-intro . +) + (knr-argdecl-intro . 5) + (substatement-open . +) + (substatement-label . 0) + (label . 0) + (statement-case-open . +) + (statement-cont . +) + (arglist-intro . +) + (arglist-close . 0) + (inline-open . 0) + (brace-list-open . +) + (topmost-intro-cont first c-lineup-topmost-intro-cont c-lineup-gnu-DEFUN-intro-cont))) (setq comment-auto-fill-only-comments t) (setq custom-file "~/.emacs.d/custom.el") (setq custom-theme-directory "~/.emacs.d/themes") @@ -185,6 +197,8 @@ "whitespace before ':'" "whitespace after '('" "whitespace before ')'" + "whitespace after '['" + "whitespace before ']'" "the backslash is redundant between brackets" "continuation line over-indented for visual indent" "continuation line under-indented for visual indent"