From ae2aa8ec914f970dd225928a9fdb6fd917eaf2bb Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 27 Sep 2012 23:32:30 +0200 Subject: .emacs.d/init.el --- .emacs.d/init.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 662facf..2711797 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -802,6 +802,9 @@ for easy selection." (setq eshell-prompt-regexp "^[#$]> ") (setq fci-rule-color "darkred") (setq flymake-gui-warnings-enabled nil) +(setq flymake-info-line-regexp + (eval-when-compile + (regexp-opt '("Invalid name")))) (setq flymake-log-file-name (expand-file-name "~/.emacs.d/flymake.log")) (setq flymake-log-level 0) (setq flymake-warn-line-regexp @@ -809,7 +812,8 @@ for easy selection." (regexp-opt '("warning" "Warning" "Missing docstring" - "String statement has no effect")))) + "String statement has no effect" + "No value passed for parameter")))) (setq frame-title-format '(:eval (concat "emacs: " (buffer-name)))) (setq geiser-repl-history-filename "~/.emacs.d/geiser-history") (setq gtags-auto-update t) @@ -1027,7 +1031,7 @@ for easy selection." (add-to-list 'auto-mode-alist '("\\.jl$" . sawfish-mode)) (add-to-list 'auto-mode-alist '("\\.js\\(on\\)?$" . js2-mode)) -(add-to-list 'auto-mode-alist '("\\.m\\(ark\\)?do?wn$" . markdown-mode)) +(add-to-list 'auto-mode-alist '("\\.m\\(ark\\)?d\\(?:o?wn\\)?$" . markdown-mode)) (add-to-list 'auto-mode-alist '("\\.php[345]?$" . php-mode)) (add-to-list 'auto-mode-alist '("\\.po\\'\\|\\.po\\." . po-mode)) (add-to-list 'auto-mode-alist '("\\.tpl$" . html-mode)) -- cgit v1.2.3-54-g00ecf From 0f499232222940cd44a3d712353ec87af88c274d Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 27 Sep 2012 23:32:48 +0200 Subject: .emacs.d/themes/new-theme.el --- .emacs.d/themes/new-theme.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/.emacs.d/themes/new-theme.el b/.emacs.d/themes/new-theme.el index a2234ca..06c7e20 100644 --- a/.emacs.d/themes/new-theme.el +++ b/.emacs.d/themes/new-theme.el @@ -34,6 +34,7 @@ '(font-lock-comment-face ((t (:foreground "#a9a9a9" :slant italic)))) '(font-lock-keyword-face ((t (:foreground "#cfce29")))) '(font-lock-type-face ((t (:foreground "#78a2c1")))) + '(highlight ((t (:background "#171719")))) '(ido-subdir ((t (:foreground "#ff5d55")))) '(jabber-chat-prompt-foreign ((t (:foreground "#ff5d55")))) '(jabber-chat-prompt-local ((t (:foreground "#78a2c1")))) @@ -43,7 +44,10 @@ '(mode-line ((t (:background "#222224" :foreground "#eeeeec" :box nil)))) '(mode-line-inactive ((t (:background "#171719" :foreground "#999999" :box nil)))) '(region ((t (:background "#2729b6")))) - '(highlight ((t (:background "#171719")))) + '(flymake-errline ((t (:background "#8b1a1a")))) + '(flymake-infoline ((t (:background "#00008b")))) + '(flymake-warnline ((t (:background "#be3e00")))) + '(font-lock-string-face ((t (:foreground "#ff9800")))) ) (provide-theme 'new) -- cgit v1.2.3-54-g00ecf From db951570b2bf44ea1ce6e1c9ebc9f271bf8c84bc Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 27 Sep 2012 23:33:58 +0200 Subject: .emacs.d/.gitignore --- .emacs.d/.gitignore | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 .emacs.d/.gitignore diff --git a/.emacs.d/.gitignore b/.emacs.d/.gitignore new file mode 100644 index 0000000..2fa1670 --- /dev/null +++ b/.emacs.d/.gitignore @@ -0,0 +1,15 @@ +tramp +elpa +bookmarks +abbrev_defs +custom.el +*.elc +ac-comphist.dat +auto-save-list/ +url/ +packages/ +newsticker/ +templates/ +rinit.* +!rinit.org +history -- cgit v1.2.3-54-g00ecf From 5134421f281c7de1729a8e187d267395be331342 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 28 Sep 2012 10:40:07 +0200 Subject: .conkerorrc/init.js --- .conkerorrc/init.js | 3 +++ 1 file changed, 3 insertions(+) diff --git a/.conkerorrc/init.js b/.conkerorrc/init.js index d8305af..e8af74e 100644 --- a/.conkerorrc/init.js +++ b/.conkerorrc/init.js @@ -131,6 +131,9 @@ define_webjump("google", define_webjump("github", "https://github.com/search?q=%s&type=Everything&repo=&langOverride=&start_value=1", $alternative="https://github.com"); +define_webjump("mdn", + "https://developer.mozilla.org/en-US/search?q=%s", + $alternative="https://developer.mozilla.org/"); // Archlinux define_webjump("arch/wiki", "https://wiki.archlinux.org/index.php?search=%s", -- cgit v1.2.3-54-g00ecf From 01e05f9d67991624a1eb5ae455a7ca926674e18b Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 28 Sep 2012 10:41:45 +0200 Subject: .emacs.d/themes/new-theme.el --- .emacs.d/themes/new-theme.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/.emacs.d/themes/new-theme.el b/.emacs.d/themes/new-theme.el index 06c7e20..b5010e1 100644 --- a/.emacs.d/themes/new-theme.el +++ b/.emacs.d/themes/new-theme.el @@ -30,9 +30,13 @@ (custom-theme-set-faces 'new '(default ((t (:background "#111113" :foreground "#eeeeec")))) + '(flymake-errline ((t (:background "#8b1a1a")))) + '(flymake-infoline ((t (:background "#00008b")))) + '(flymake-warnline ((t (:background "#be3e00")))) '(font-lock-comment-delimiter-face ((t (:foreground "#a9a9a9" :slant italic :weight bold)))) '(font-lock-comment-face ((t (:foreground "#a9a9a9" :slant italic)))) '(font-lock-keyword-face ((t (:foreground "#cfce29")))) + '(font-lock-string-face ((t (:foreground "#ffbd5c")))) '(font-lock-type-face ((t (:foreground "#78a2c1")))) '(highlight ((t (:background "#171719")))) '(ido-subdir ((t (:foreground "#ff5d55")))) @@ -44,10 +48,6 @@ '(mode-line ((t (:background "#222224" :foreground "#eeeeec" :box nil)))) '(mode-line-inactive ((t (:background "#171719" :foreground "#999999" :box nil)))) '(region ((t (:background "#2729b6")))) - '(flymake-errline ((t (:background "#8b1a1a")))) - '(flymake-infoline ((t (:background "#00008b")))) - '(flymake-warnline ((t (:background "#be3e00")))) - '(font-lock-string-face ((t (:foreground "#ff9800")))) ) (provide-theme 'new) -- cgit v1.2.3-54-g00ecf From df6be906492b103c56b12917874a7a2b3ae911ee Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:46:05 +0200 Subject: .emacs.d/site-lisp/eltuki.el --- .emacs.d/site-lisp/eltuki.el | 198 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 198 insertions(+) create mode 100644 .emacs.d/site-lisp/eltuki.el diff --git a/.emacs.d/site-lisp/eltuki.el b/.emacs.d/site-lisp/eltuki.el new file mode 100644 index 0000000..cc5d1b3 --- /dev/null +++ b/.emacs.d/site-lisp/eltuki.el @@ -0,0 +1,198 @@ +;;; eltuki.el --- Tekuti functions + +;; Copyright (C) 2012 Tom Willemsen + +;; Author: Tom Willemsen +;; Keywords: convenience + +;; 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: + +;; Tekuti functions. + +;;; Code: + +(require 'org) + +(defgroup eltuki + nil + "tekuti functions in Emacs." + :group 'external) + +(defcustom eltuki-blog-dir "~/blog" + "Plain blog post directory, not the git repository." + :group 'eltuki + :type 'string) + +(defcustom eltuki-default-status "publish" + "Default status to use when status is unknown." + :group 'eltuki + :type 'string) + +(defcustom eltuki-default-comment-status "open" + "Default status for comments." + :group 'eltuki + :type 'string) + +(defun eltuki-new-post () + (interactive) + (switch-to-buffer (get-buffer-create "*eltuki*")) + (org-mode)) + +(defun eltuki-get-title () + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^#\\+TITLE: \\(.*\\)$" nil t) + (buffer-substring-no-properties + (match-beginning 1) (match-end 1)) + (error "Post has no title.")))) + +(defun eltuki-set-title (title) + (interactive "MTitle: ") + (setq title (concat " " title)) + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^#\\+TITLE:\\(.*\\)$" nil t) + (replace-match title t t nil 1) + (insert "#+TITLE:" title "\n") + (unless (= (char-after) ?\n) + (insert-char ?\n))))) + +(defun eltuki-get-timestamp () + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^#\\+TIMESTAMP: \\([[:digit:]]+\\)$" nil t) + (match-string 1) + (format-time-string "%s")))) + +(defun eltuki-set-timestamp () + (interactive) + (save-excursion + (goto-char (point-min)) + (let ((newtime (format-time-string " %s"))) + (if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t) + (replace-match newtime nil t nil 1) + (search-forward "\n\n") + (backward-char) + (insert "#+TIMESTAMP:" newtime "\n"))))) + +(defun eltuki-get-tags () + (save-excursion + (goto-char (point-min)) + (when (re-search-forward "^#\\+TAGS: \\(.*\\)$" nil t) + (buffer-substring-no-properties + (match-beginning 1) (match-end 1))))) + +(defun eltuki-set-tags (tags) + (interactive "MTags: ") + (setq tags (concat " " tags)) + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t) + (replace-match tags t t nil 1) + (search-forward "\n\n") + (backward-char) + (insert "#+TAGS:" tags "\n")))) + +(defun eltuki-get-status () + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^#\\+STATUS: \\(draft\\|publish\\)$" nil t) + (buffer-substring-no-properties + (match-beginning 1) (match-end 1)) + eltuki-default-status))) + +(defun eltuki-toggle-status () + (interactive) + (save-excursion + (goto-char (point-min)) + (let ((newstatus (if (string= (eltuki-get-status) "draft") + " publish" + " draft"))) + (if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t) + (replace-match newstatus t t nil 1) + (search-forward "\n\n") + (backward-char) + (insert "#+STATUS:" newstatus "\n"))))) + +(defun eltuki-get-comment-status () + (save-excursion + (goto-char (point-min)) + (if (re-search-forward + "^#\\+COMMENTSTATUS: \\(open\\|closed\\)$" nil t) + (buffer-substring-no-properties + (match-beginning 1) (match-end 1)) + eltuki-default-comment-status))) + +(defun eltuki-toggle-comment-status () + (interactive) + (save-excursion + (goto-char (point-min)) + (let ((newstatus (if (string= (eltuki-get-comment-status) "closed") + " open" + " closed"))) + (if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t) + (replace-match newstatus t t nil 1) + (search-forward "\n\n") + (backward-char) + (insert "#+COMMENTSTATUS:" newstatus "\n"))))) + +(defun eltuki-slugify-string (str) + (while (string-match "[^a-zA-Z0-9 ]+" str) + (setq str (replace-match "" nil t str))) + (while (string-match " +" str) + (setq str (replace-match "-" nil t str))) + (downcase str)) + +(defun eltuki-get-directory () + (concat + eltuki-blog-dir "/" + (format-time-string "%Y%%2f%m%%2f%d%%2f") + (eltuki-slugify-string (eltuki-get-title)))) + +(defun eltuki-write-content (dir) + (with-current-buffer (org-export-region-as-html + (point-min) (point-max) t "*eltuki-html*") + (write-region (point-min) (point-max) (concat dir "/content")))) + +(defun eltuki-write-metadata (dir) + (let ((timestamp (eltuki-get-timestamp)) + (tags (eltuki-get-tags)) + (status (eltuki-get-status)) + (title (eltuki-get-title)) + (name (eltuki-slugify-string (eltuki-get-title))) + (commentstatus (eltuki-get-comment-status))) + (with-temp-buffer + (insert "timestamp: " timestamp "\n" + "tags: " tags "\n" + "status: " status "\n" + "title: " title "\n" + "name: " name "\n" + "comment_status: " commentstatus) + (write-region (point-min) (point-max) (concat dir "/metadata"))))) + +(defun eltuki-finish () + (interactive) + (let ((buffer (get-buffer "*eltuki*")) + (dest (eltuki-get-directory))) + (unless (file-exists-p dest) + (mkdir dest)) + + (eltuki-write-content dest) + (eltuki-write-metadata dest) + (kill-buffer buffer))) + +(provide 'eltuki) +;;; eltuki.el ends here -- cgit v1.2.3-54-g00ecf From b4e8c45e18cec74210e8d3d5c0d46ebcc41e5024 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:47:17 +0200 Subject: .config/awesome/rc.lua --- .config/awesome/ext.lua | 67 ++++++++++++++++++++++ .config/awesome/oni.lua | 73 ++++++++++++++++++++++++ .config/awesome/rc.lua | 145 +++++------------------------------------------- 3 files changed, 154 insertions(+), 131 deletions(-) create mode 100644 .config/awesome/ext.lua create mode 100644 .config/awesome/oni.lua diff --git a/.config/awesome/ext.lua b/.config/awesome/ext.lua new file mode 100644 index 0000000..d564867 --- /dev/null +++ b/.config/awesome/ext.lua @@ -0,0 +1,67 @@ +local client=client +local awful=awful +local pairs=pairs +local table=table + +module("ext") + +-- Returns true if all pairs in table1 are present in table2 +function match(table1, table2) + for k, v in pairs(table1) do + if table[k] ~= v and not table2[k]:find(v) then + return false + end + end + + return true +end + +--- Spawns cmd if no client can be found matching properties +-- If such a client can be found, pop to first tag where it is +-- visible, and give it focus +function run_or_raise(cmd, properties) + local clients = client.get() + local focused = awful.client.next(0) + local findex = 0 + local matched_clients = { } + local n = 0 + + for i, c in pairs(clients) do + -- make an array of matched clients + if match(properties, c) then + n = n + 1 + matched_clients[n] = c + + if n == focused then + findex = n + end + end + end + + if n > 0 then + local c = matched_clients[1] + + -- if the focused window matched switch focus to next in list + if 0 < findex and findex < n then + c = matched_clients[findex + 1] + end + + local ctags = c:tags() + + if table.getn(ctags) == 0 then + -- ctags is empty, show client on current tag + local curtag = awful.tag.selected() + awful.client.movetotag(curtag, c) + else + -- Otherwise, pop to first tag client is visible on + awful.tag.viewonly(ctags[1]) + end + + -- And then focus the client + client.focus = c + c:raise() + awful.screen.focus(c.screen) + return + end + awful.util.spawn(cmd) +end diff --git a/.config/awesome/oni.lua b/.config/awesome/oni.lua new file mode 100644 index 0000000..7cc5df1 --- /dev/null +++ b/.config/awesome/oni.lua @@ -0,0 +1,73 @@ +local awful = awful +local beautiful = beautiful +local client = client +local ext = require("ext") +local lfs = require("lfs") +local pairs = pairs +local string = string +local table = table +local widget = widget + +module("oni") + +local maildirfmt = "/home/slash/documents/mail/%s/inbox/new/" + +function mailcount(account) + local i = 0 + local dir = string.format(maildirfmt, account) + + for file in lfs.dir(dir) do + if file ~= "." and file ~= ".." then + i = i + 1 + end + end + + return i +end + +local function showmail(name) + awful.util.spawn("emacsclient -e '(oni:view-mail \"" .. name .. "\")'") +end + +function mailcount_widgets(label, account, name) + widgets = {} + widgets.label = widget({ type = "textbox" }) + widgets.label.text = string.format(" %s: ", label) + widgets.count = widget({ type = "textbox" }) + widgets.count.text = string.format(" %d ", mailcount(account)) + widgets.count.bg = beautiful.bg_focus + widgets.count:buttons( + awful.util.table.join( + awful.button({ }, 1, function (c) showmail(name) end))) + + return widgets +end + +function focus_raise(direction) + awful.client.focus.bydirection(direction) + if client.focus then client.focus:raise() end +end + +function ror_browser() + ext.run_or_raise("conkeror", { class = "Conkeror" }) +end + +function ror_editor() + ext.run_or_raise("emacsclient -c -a emacs", { class = "Emacs" }) +end + +function ror_term() + ext.run_or_raise("urxvt", { class = "URxvt" }) +end + +function run_browser() + awful.util.spawn("conkeror") +end + +function run_editor() + awful.util.spawn("emacsclient -c -a emacs") +end + +function run_term() + awful.util.spawn("urxvt") +end diff --git a/.config/awesome/rc.lua b/.config/awesome/rc.lua index 5e07a09..b83de13 100644 --- a/.config/awesome/rc.lua +++ b/.config/awesome/rc.lua @@ -4,12 +4,9 @@ require("awful.rules") require("beautiful") require("bowl") require("keychain") -require("lfs") require("naughty") - -oni = { } -- Container for custom functions. - -oni.maildirfmt = "/home/slash/documents/mail/%s/inbox/new/" +require("ext") +require("oni") --- Error handling -- Check if awesome encountered an error during startup and fell back to @@ -35,111 +32,6 @@ do end) end ---- Functions -function oni.focus_raise(direction) - awful.client.focus.bydirection(direction) - if client.focus then client.focus:raise() end -end - -function oni.mailcount(account) - local i = 0 - local dir = string.format(oni.maildirfmt, account) - - for file in lfs.dir(dir) do - if file ~= "." and file ~= ".." then - i = i + 1 - end - end - - return i -end - -function oni.mailcount_text() - return string.format(" ryu: %d aet: %d gmail: %d 9f: %d --", - oni.mailcount("ryuslash.org"), - oni.mailcount("aethon"), - oni.mailcount("gmail"), - oni.mailcount("ninthfloor")) -end - -function oni.mailcount_widgets(label, account, name) - widgets = {} - widgets.label = widget({ type = "textbox" }) - widgets.label.text = string.format(" %s: ", label) - widgets.count = widget({ type = "textbox" }) - widgets.count.text = string.format(" %d ", oni.mailcount(account)) - widgets.count.bg = beautiful.bg_focus - widgets.count:buttons( - awful.util.table.join( - awful.button({ }, 1, - function (c) - awful.util.spawn("emacsclient -e '(oni:view-mail \"" .. name .. "\")'") - end))) - - return widgets -end - --- Returns true if all pairs in table1 are present in table2 -function oni.match(table1, table2) - for k, v in pairs(table1) do - if table[k] ~= v and not table2[k]:find(v) then - return false - end - end - - return true -end - ---- Spawns cmd if no client can be found matching properties --- If such a client can be found, pop to first tag where it is --- visible, and give it focus -function oni.run_or_raise(cmd, properties) - local clients = client.get() - local focused = awful.client.next(0) - local findex = 0 - local matched_clients = { } - local n = 0 - - for i, c in pairs(clients) do - -- make an array of matched clients - if oni.match(properties, c) then - n = n + 1 - matched_clients[n] = c - - if n == focused then - findex = n - end - end - end - - if n > 0 then - local c = matched_clients[1] - - -- if the focused window matched switch focus to next in list - if 0 < findex and findex < n then - c = matched_clients[findex + 1] - end - - local ctags = c:tags() - - if table.getn(ctags) == 0 then - -- ctags is empty, show client on current tag - local curtag = awful.tag.selected() - awful.client.movetotag(curtag, c) - else - -- Otherwise, pop to first tag client is visible on - awful.tag.viewonly(ctags[1]) - end - - -- And then focus the client - client.focus = c - c:raise() - awful.screen.focus(c.screen) - return - end - awful.util.spawn(cmd) -end - -- {{{ Variable definitions -- Themes define colours, icons, and wallpapers beautiful.init("/home/slash/.config/awesome/themes/custom/theme.lua") @@ -347,29 +239,20 @@ globalkeys = awful.util.table.join( sub({ }, "f", function () oni.focus_raise("right") end), sub({ }, "b", function () oni.focus_raise("left") end), sub({ }, "n", function () oni.focus_raise("down") end), - sub({ }, "p", function () oni.focus_raise("up") end), - sub({ }, "e", - function () oni.run_or_raise("emacsclient -c -a emacs", - { class = "Emacs" }) end), - sub({ "Shift", }, "e", - function () awful.util.spawn("emacsclient -c -a emacs") end), - sub({ }, "c", - function () oni.run_or_raise("urxvt", - { class = "URxvt" }) end), - sub({ "Shift", }, "c", - function () awful.util.spawn("urxvt") end), - sub({ }, "w", - function () oni.run_or_raise("conkeror", - { class = "Conkeror" }) end), - sub({ "Shift", }, "w", - function () awful.util.spawn("conkeror") end) }), + sub({ }, "p", function () oni.focus_raise("up") end) }), awful.key({ "Control", "Mod1" }, "l", function () awful.util.spawn("i3lock -c 000000") end), - awful.key({ modkey, }, "Left", awful.tag.viewprev ), - awful.key({ modkey, }, "Right", awful.tag.viewnext ), - awful.key({ modkey, }, "Escape", awful.tag.history.restore), - - awful.key({ modkey, }, "w", function () mymainmenu:show({keygrabber=true}) end), + awful.key({ "Mod4", }, "c", oni.ror_term), + awful.key({ "Mod4", "Shift" }, "c", oni.run_term), + awful.key({ "Mod4", }, "e", oni.ror_editor), + awful.key({ "Mod4", "Shift" }, "e", oni.run_editor), + awful.key({ "Mod4", }, "w", oni.ror_browser), + awful.key({ "Mod4", "Shift" }, "w", oni.run_browser), + awful.key({ modkey, }, "Left", awful.tag.viewprev ), + awful.key({ modkey, }, "Right", awful.tag.viewnext ), + awful.key({ modkey, }, "Escape", awful.tag.history.restore), + + -- awful.key({ modkey, }, "w", function () mymainmenu:show({keygrabber=true}) end), -- Layout manipulation awful.key({ modkey, "Shift" }, "j", function () awful.client.swap.byidx( 1) end), -- cgit v1.2.3-54-g00ecf From 59a8f44e4d3374f61e8989c648aeb324885afc6b Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:48:59 +0200 Subject: .conkerorrc/init.js --- .conkerorrc/init.js | 88 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 88 insertions(+) diff --git a/.conkerorrc/init.js b/.conkerorrc/init.js index e8af74e..3d247ba 100644 --- a/.conkerorrc/init.js +++ b/.conkerorrc/init.js @@ -167,3 +167,91 @@ remove_hook("download_added_hook", open_download_buffer_automatically); hints_minibuffer_annotation_mode(true); theme_load("naquadah"); + +var gh_url = "http://github.com/"; +function read_url_github_ad_command_handler(input) +{ + var m = /^gh\s+@(\S+)(?:\s+((?:un)?follow))?/.exec(input); + if (m) { + if (m[2]) + return gh_url + "users/follow?target="; + return gh_url + m[1]; + } + + return null; +} + +function read_url_github_my_command_handler(input) +{ + var m = /^gh\s+my\s+(dashboard|issues|notifications|profile|pulls|stars)/.exec(input); + + if (m) { + switch (m[1]) { + case "dashboard": + case "notifications": + case "stars": + return gh_url + m[1]; + case "issues": + case "pulls": + return gh_url + "dashboard/" + m[1]; + case "profile": + return gh_url + "settings/" + m[1]; + } + } + + return null; +} + +function read_url_github_repo_command_handler(input) +{ + var m = /^gh\s+(\S+\/\S+)(?:\s+(\#\d+|\@\S+|issues|pulls|wiki|graphs|network|admin)(?:\s+(\#\d+|new))?)?$/.exec(input); + + if (m) { + repo_url = gh_url + m[1] + "/"; + + switch (m[2]) { + case "issues": + issues_url = repo_url + m[2] + "/"; + + if (m[3]) { + if (m[3][0] == '#') + return issues_url + m[3].substring(1); + else if (m[3] == "new") + return issues_url + m[3]; + else + break; + } + + return issues_url; + case "pulls": + case "wiki": + case "graphs": + case "network": + case "admin": + return repo_url + m[2]; + default: + // Still need watch and unwatch + if (m[2]) { + if (m[2][0] == '#') + return repo_url + "issues/" + m[2].substring(1); + else if (m[2][0] == '@') + return repo_url + "tree/" + m[2].substring(1); + else + break; + } + + return repo_url; + } + } + + return null; +} + +function read_url_github_command_handler(input) +{ + return read_url_github_ad_command_handler(input) + || read_url_github_my_command_handler(input) + || read_url_github_repo_command_handler(input); +} + +read_url_handler_list = [read_url_github_command_handler]; -- cgit v1.2.3-54-g00ecf From 2745411925ac33e1560226ebb6a4438039d9ddc3 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:50:02 +0200 Subject: .emacs.d/init.el --- .emacs.d/init.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 2711797..3b660e1 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -813,7 +813,8 @@ for easy selection." "Warning" "Missing docstring" "String statement has no effect" - "No value passed for parameter")))) + "No value passed for parameter" + "imported but unused")))) (setq frame-title-format '(:eval (concat "emacs: " (buffer-name)))) (setq geiser-repl-history-filename "~/.emacs.d/geiser-history") (setq gtags-auto-update t) @@ -925,6 +926,7 @@ for easy selection." ("marmalade" . "http://marmalade-repo.org/packages/"))) (setq package-load-list '((htmlize "1.39") (lua-mode "20111107") + (python "0.24.2") all)) (setq php-function-call-face 'font-lock-function-name-face) (setq php-mode-force-pear t) -- cgit v1.2.3-54-g00ecf From 5943855ab586bc8b726b89235e4732040de8d4c2 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:50:41 +0200 Subject: .emacs.d/site-lisp/quick-edit-mode.el --- .emacs.d/site-lisp/quick-edit-mode.el | 41 +++++++++++++++++++++++++---------- 1 file changed, 29 insertions(+), 12 deletions(-) diff --git a/.emacs.d/site-lisp/quick-edit-mode.el b/.emacs.d/site-lisp/quick-edit-mode.el index effd30f..821c738 100644 --- a/.emacs.d/site-lisp/quick-edit-mode.el +++ b/.emacs.d/site-lisp/quick-edit-mode.el @@ -26,32 +26,49 @@ (defvar quick-edit-map (let ((map (make-sparse-keymap))) - (define-key map "n" 'next-line) - (define-key map "p" 'previous-line) - (define-key map "f" 'forward-char) + (define-key map "/" 'undo) + (define-key map "0" 'delete-window) + (define-key map "1" 'delete-other-windows) + (define-key map "2" 'split-window-below) + (define-key map "3" 'split-window-right) + (define-key map "K" 'kill-whole-line) + (define-key map "V" 'scroll-down-command) + (define-key map "a" 'oni:move-beginning-of-dwim) (define-key map "b" 'backward-char) + (define-key map "d" 'oni:kill-region-or-forward-char) (define-key map "e" 'oni:move-end-of-dwim) - (define-key map "a" 'oni:move-beginning-of-dwim) - (define-key map "V" 'scroll-down-command) + (define-key map "f" 'forward-char) + (define-key map "j" 'newline-and-indent) + (define-key map "k" 'oni:kill-region-or-line) + (define-key map "n" 'next-line) + (define-key map "o" 'other-window) + (define-key map "p" 'previous-line) (define-key map "v" 'scroll-up-command) - (define-key map "/" 'undo) (define-key map "w" 'oni:kill-region-or-backward-char) - (define-key map "d" 'oni:kill-region-or-forward-char) - (define-key map "k" 'oni:kill-region-or-line) - (define-key map "K" 'kill-whole-line) - (define-key map "j" 'newline-and-indent) + (define-key map (kbd "C-b") 'electric-buffer-list) + (define-key map (kbd "C-g") 'quick-edit-mode) (define-key map (kbd "RET") 'quick-edit-mode) map) "Keymap for quick-edit-mode.") +(defun qe-locally-disable () + "Disable quick-edit mode in the minibuffer" + (when (eq overriding-local-map quick-edit-map) + (setq-local overriding-local-map nil))) + ;;;###autoload (define-minor-mode quick-edit-mode "Quickly edit stuff." :lighter " qe" :global t (if quick-edit-mode - (setq overriding-local-map quick-edit-map) - (setq overriding-local-map nil))) + (progn + (setq overriding-local-map quick-edit-map) + (add-hook 'minibuffer-setup-hook 'qe-locally-disable) + (add-hook 'special-mode-hook 'qe-locally-disable)) + (setq overriding-local-map nil) + (remove-hook 'minibuffer-setup-hook 'qe-locally-disable) + (remove-hook 'special-mode-hook 'qe-locally-disable))) (provide 'quick-edit-mode) ;;; quick-edit-mode.el ends here -- cgit v1.2.3-54-g00ecf From 86db852e0cc298ddb454d9c2251e6e5395b1a206 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:51:08 +0200 Subject: .emacs.d/themes/new-theme.el --- .emacs.d/themes/new-theme.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/.emacs.d/themes/new-theme.el b/.emacs.d/themes/new-theme.el index b5010e1..c4df5e6 100644 --- a/.emacs.d/themes/new-theme.el +++ b/.emacs.d/themes/new-theme.el @@ -32,9 +32,10 @@ '(default ((t (:background "#111113" :foreground "#eeeeec")))) '(flymake-errline ((t (:background "#8b1a1a")))) '(flymake-infoline ((t (:background "#00008b")))) - '(flymake-warnline ((t (:background "#be3e00")))) + '(flymake-warnline ((t (:background "#9a3200")))) '(font-lock-comment-delimiter-face ((t (:foreground "#a9a9a9" :slant italic :weight bold)))) '(font-lock-comment-face ((t (:foreground "#a9a9a9" :slant italic)))) + '(font-lock-doc-face ((t (:foreground "#9ad870")))) '(font-lock-keyword-face ((t (:foreground "#cfce29")))) '(font-lock-string-face ((t (:foreground "#ffbd5c")))) '(font-lock-type-face ((t (:foreground "#78a2c1")))) -- cgit v1.2.3-54-g00ecf From e4d7dde73a49983712e4b9fb0af2051e328ae12f Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 3 Oct 2012 02:51:34 +0200 Subject: .stumpwmrc --- .stumpwmrc | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/.stumpwmrc b/.stumpwmrc index e2f6662..8c258e7 100644 --- a/.stumpwmrc +++ b/.stumpwmrc @@ -127,9 +127,15 @@ (format-expand *window-formatters* *window-format* (current-window))))) -(set-prefix-key (kbd "C-z")) +(set-prefix-key (kbd "C-i")) (define-key *top-map* (kbd "C-M-l") "run-i3lock") +(define-key *top-map* (kbd "KP_Begin") "vsplit") +(define-key *top-map* (kbd "KP_Divide") "remove") +(define-key *top-map* (kbd "KP_Left") "only") +(define-key *top-map* (kbd "KP_Multiply") "fnext") +(define-key *top-map* (kbd "KP_Right") "hsplit") +(define-key *top-map* (kbd "KP_End") "pull-hidden-next") (define-key *root-map* (kbd "c") "raise-urxvt") (define-key *root-map* (kbd "C") "run-urxvt") -- cgit v1.2.3-54-g00ecf From 52cc4fcaa5a74910e294a2034a1a4f4e2df8209f Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 4 Oct 2012 22:05:33 +0200 Subject: .emacs.d/snippets/org-mode/heading --- .emacs.d/snippets/org-mode/heading | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 .emacs.d/snippets/org-mode/heading diff --git a/.emacs.d/snippets/org-mode/heading b/.emacs.d/snippets/org-mode/heading new file mode 100644 index 0000000..9d5451e --- /dev/null +++ b/.emacs.d/snippets/org-mode/heading @@ -0,0 +1,9 @@ +# -*- mode: snippet -*- +# name: Heading +# key: * +# -- +${1:*} ${2:TODO} $3 +${1:$(make-string (length text) ?\ )} :PROPERTIES: +${1:$(make-string (length text) ?\ )} :CATEGORY: $4 +${1:$(make-string (length text) ?\ )} :END: +${1:$(make-string (length text) ?\ )} $0 \ No newline at end of file -- cgit v1.2.3-54-g00ecf From 898bf6dfb32e0078d1857ed1c7c28bd801a58f5c Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Thu, 4 Oct 2012 22:05:50 +0200 Subject: .emacs.d/snippets/org-mode/codeblock --- .emacs.d/snippets/org-mode/codeblock | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 .emacs.d/snippets/org-mode/codeblock diff --git a/.emacs.d/snippets/org-mode/codeblock b/.emacs.d/snippets/org-mode/codeblock new file mode 100644 index 0000000..a200b08 --- /dev/null +++ b/.emacs.d/snippets/org-mode/codeblock @@ -0,0 +1,7 @@ +# -*- mode: snippet -*- +# name: codeblock +# key: code +# -- +#+begin_src $1 + $0 +#+end_src \ No newline at end of file -- cgit v1.2.3-54-g00ecf From 489ef112e4647456d08db342e5e919ca8e41b85f Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 5 Oct 2012 16:48:11 +0200 Subject: .emacs.d/snippets/html-mode/generic-block --- .emacs.d/snippets/html-mode/generic-block | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 .emacs.d/snippets/html-mode/generic-block diff --git a/.emacs.d/snippets/html-mode/generic-block b/.emacs.d/snippets/html-mode/generic-block new file mode 100644 index 0000000..82d40c7 --- /dev/null +++ b/.emacs.d/snippets/html-mode/generic-block @@ -0,0 +1,8 @@ +# -*- mode: snippet -*- +# name: Template Block +# key: % +# condition: pony-tpl-minor-mode +# -- +{% $1 %} + $0 +{% end$1 %} \ No newline at end of file -- cgit v1.2.3-54-g00ecf From ac7f5b48318ae8f0eb3db3866c863797b51a1b1c Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 5 Oct 2012 16:48:33 +0200 Subject: .emacs.d/snippets/html-mode/for --- .emacs.d/snippets/html-mode/for | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 .emacs.d/snippets/html-mode/for diff --git a/.emacs.d/snippets/html-mode/for b/.emacs.d/snippets/html-mode/for new file mode 100644 index 0000000..01d9c44 --- /dev/null +++ b/.emacs.d/snippets/html-mode/for @@ -0,0 +1,8 @@ +# -*- mode: snippet -*- +# name: for +# key: for +# condition: pony-tpl-minor-mode +# -- +{% for $1 in $2 %} + $0 +{% endfor %} \ No newline at end of file -- cgit v1.2.3-54-g00ecf From cf431eb269e6783678ffbe74a7744cfda895ddef Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:16:40 +0200 Subject: .Xdefaults --- .Xdefaults | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.Xdefaults b/.Xdefaults index 76beea8..4f77386 100644 --- a/.Xdefaults +++ b/.Xdefaults @@ -13,7 +13,7 @@ urxvt.visualBell: true urxvt.perl-lib: /usr/lib/urxvt/perl/ urxvt.perl-ext-common: default,matcher,searchable-scrollback -urxvt.urlLauncher: firefox +urxvt.urlLauncher: conkeror urxvt.matcher.button: 1 urxvt.font: xft:Monaco:weight=medium:pixelsize=18 -- cgit v1.2.3-54-g00ecf From c317a15200fede45cca9d963b6d8fa897069eab9 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:17:36 +0200 Subject: .config/awesome/rc.lua --- .config/awesome/rc.lua | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/.config/awesome/rc.lua b/.config/awesome/rc.lua index b83de13..9ee6889 100644 --- a/.config/awesome/rc.lua +++ b/.config/awesome/rc.lua @@ -239,15 +239,15 @@ globalkeys = awful.util.table.join( sub({ }, "f", function () oni.focus_raise("right") end), sub({ }, "b", function () oni.focus_raise("left") end), sub({ }, "n", function () oni.focus_raise("down") end), - sub({ }, "p", function () oni.focus_raise("up") end) }), + sub({ }, "p", function () oni.focus_raise("up") end), + sub({ }, "c", oni.ror_term), + sub({ "Shift", }, "c", oni.run_term), + sub({ }, "e", oni.ror_editor), + sub({ "Shift", }, "e", oni.run_editor), + sub({ }, "w", oni.ror_browser), + sub({ "Shift", }, "w", oni.run_browser) }), awful.key({ "Control", "Mod1" }, "l", function () awful.util.spawn("i3lock -c 000000") end), - awful.key({ "Mod4", }, "c", oni.ror_term), - awful.key({ "Mod4", "Shift" }, "c", oni.run_term), - awful.key({ "Mod4", }, "e", oni.ror_editor), - awful.key({ "Mod4", "Shift" }, "e", oni.run_editor), - awful.key({ "Mod4", }, "w", oni.ror_browser), - awful.key({ "Mod4", "Shift" }, "w", oni.run_browser), awful.key({ modkey, }, "Left", awful.tag.viewprev ), awful.key({ modkey, }, "Right", awful.tag.viewnext ), awful.key({ modkey, }, "Escape", awful.tag.history.restore), -- cgit v1.2.3-54-g00ecf From 6eea81b5ca43a05b149625b58b0331f06ce73e92 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:18:05 +0200 Subject: .config/awesome/themes/custom/theme.lua --- .config/awesome/themes/custom/theme.lua | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.config/awesome/themes/custom/theme.lua b/.config/awesome/themes/custom/theme.lua index 3cdb9ca..c65edc8 100644 --- a/.config/awesome/themes/custom/theme.lua +++ b/.config/awesome/themes/custom/theme.lua @@ -74,7 +74,7 @@ theme.titlebar_maximized_button_normal_active = "/home/slash/.config/awesome/the theme.titlebar_maximized_button_focus_active = "/home/slash/.config/awesome/themes/custom/titlebar/maximized_focus_active.png" -- You can use your own command to set your wallpaper -theme.wallpaper_cmd = { "awsetbg -u hsetroot /home/slash/pictures/wallpapers/3600x1080/wallpaper-1085607.jpg" } +theme.wallpaper_cmd = { "awsetbg -u feh -c /usr/share/archlinux/wallpaper/archlinux-simplyblack.png" } -- You can use your own layout icons like this: theme.layout_fairh = "/home/slash/.config/awesome/themes/custom/layouts/fairhw.png" -- cgit v1.2.3-54-g00ecf From 91d5bae6f37889d7d49876b22007f713f2719b16 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:18:41 +0200 Subject: .emacs.d/gnus.el --- .emacs.d/gnus.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/.emacs.d/gnus.el b/.emacs.d/gnus.el index 1bf988a..503aa1d 100644 --- a/.emacs.d/gnus.el +++ b/.emacs.d/gnus.el @@ -1,4 +1,3 @@ -;; -*- eval: (git-auto-commit-mode 1) -*- (setq gnus-select-method '(nntp "news.eternal-september.org")) (setq gnus-secondary-select-methods '((nnmaildir "gmail" @@ -64,7 +63,7 @@ (add-hook 'gnus-group-mode-hook '(lambda () (linum-mode -1))) ;-----[ BBDB ]-------------------------------------------------------- -(require 'bbdb) -(bbdb-initialize 'gnus 'message) -(bbdb-insinuate-gnus) -(setq bbdb-north-american-phone-numbers-p nil) +;; (require 'bbdb) +;; (bbdb-initialize 'gnus 'message) +;; (bbdb-insinuate-gnus) +;; (setq bbdb-north-american-phone-numbers-p nil) -- cgit v1.2.3-54-g00ecf From 5cfcc802d2e1d71f4cedf0c3eec0e24a95d29c17 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:18:59 +0200 Subject: .emacs.d/init.el --- .emacs.d/init.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 3b660e1..6c03dc6 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -238,6 +238,7 @@ DOT are intentionally being skipped." (defun oni:html-mode-func () "Function for `html-mode-hook'." + (yas-minor-mode) (fci-mode)) (defun oni:indent-shift-left (start end &optional count) @@ -413,6 +414,10 @@ code. Found at http://xahlee.org/emacs/elisp_parse_time.html" (end-of-line))) (end-of-line)))) +;; (defun oni:mu4e-view-mode-func () +;; "Function for `mu4e-view-mode-hook'." +;; (longlines-mode)) + (defun oni:myepisodes-formatter (plist) "Format RSS items from MyEpisodes as org tasks. PLIST contains all the pertinent information." @@ -442,7 +447,8 @@ When dealing with braces, add another line and indent that too." (defun oni:org-mode-func () "Function for `org-mode-hook'." (flyspell-mode) - (auto-fill-mode)) + (auto-fill-mode) + (yas-minor-mode)) (defun oni:php-mode-func () "Function for `php-mode-hook'." @@ -897,7 +903,7 @@ for easy selection." (setq org-feed-alist '(("MyEpisodes" "http://www.myepisodes.com/rss.php?feed=mylist&uid=Slash&pwdmd5=04028968e1f0b7ee678b748a4320ac17" - "~/documents/org/org" "MyEpisodes" + "~/documents/org/tasks" "MyEpisodes" :formatter oni:myepisodes-formatter))) (setq org-hide-emphasis-markers t) (setq org-outline-path-complete-in-steps t) @@ -981,6 +987,7 @@ for easy selection." (add-hook 'magit-log-edit-mode-hook 'oni:magit-log-edit-mode-func) (add-hook 'markdown-mode-hook 'oni:markdown-mode-func) (add-hook 'message-mode-hook 'oni:message-mode-func) +;; (add-hook 'mu4e-view-mode-hook 'oni:mu4e-view-mode-func) (add-hook 'org-mode-hook 'oni:org-mode-func) (add-hook 'php-mode-hook 'oni:php-mode-func) (add-hook 'prog-mode-hook 'oni:prog-mode-func) -- cgit v1.2.3-54-g00ecf From d8ce7b6ccede65bb2e0c6aece9cccee7ecce5f73 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:19:23 +0200 Subject: .emacs.d/site-lisp/eltuki.el --- .emacs.d/site-lisp/eltuki.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/.emacs.d/site-lisp/eltuki.el b/.emacs.d/site-lisp/eltuki.el index cc5d1b3..4815108 100644 --- a/.emacs.d/site-lisp/eltuki.el +++ b/.emacs.d/site-lisp/eltuki.el @@ -84,8 +84,8 @@ (let ((newtime (format-time-string " %s"))) (if (re-search-forward "^#\\+TIMESTAMP:\\(.*\\)$" nil t) (replace-match newtime nil t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+TIMESTAMP:" newtime "\n"))))) (defun eltuki-get-tags () @@ -102,8 +102,8 @@ (goto-char (point-min)) (if (re-search-forward "^#\\+TAGS:\\(.*\\)$" nil t) (replace-match tags t t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+TAGS:" tags "\n")))) (defun eltuki-get-status () @@ -123,8 +123,8 @@ " draft"))) (if (re-search-forward "^#\\+STATUS:\\(.*\\)$" nil t) (replace-match newstatus t t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+STATUS:" newstatus "\n"))))) (defun eltuki-get-comment-status () @@ -145,8 +145,8 @@ " closed"))) (if (re-search-forward "^#\\+COMMENTSTATUS:\\(.*\\)$" nil t) (replace-match newstatus t t nil 1) - (search-forward "\n\n") - (backward-char) + (when (search-forward "\n\n" nil t) + (backward-char)) (insert "#+COMMENTSTATUS:" newstatus "\n"))))) (defun eltuki-slugify-string (str) -- cgit v1.2.3-54-g00ecf From 6abf336344da6b28ab9bc2db02a75cbe10a8aa88 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 13:58:59 +0200 Subject: .emacs.d/init.el --- .emacs.d/init.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 6c03dc6..207d6f2 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -849,6 +849,7 @@ for easy selection." (setq mail-header-separator "") (setq message-log-max 1000) (setq message-send-mail-function 'message-send-mail-with-sendmail) +(setq mode-line-position nil) (setq mu4e-headers-date-format "%d-%m %H:%M") (setq mu4e-headers-fields '((:date . 11) (:flags . 6) @@ -1054,6 +1055,9 @@ for easy selection." (add-to-list 'display-buffer-alist '("^\\*.*\\*$" . ((bw-display-in-bottom-window . nil)))) +(delete " " mode-line-format) +(delete " " mode-line-format) + (unless (oni:required-packages-installed-p) (message "%s" "Refreshing package database...") (package-refresh-contents) @@ -1068,9 +1072,10 @@ for easy selection." (scroll-bar-mode -1) (tool-bar-mode -1) (tooltip-mode -1) +(line-number-mode -1) +(column-number-mode -1) (auto-insert-mode) -(column-number-mode) (electric-indent-mode) (electric-pair-mode) (ido-mode) -- cgit v1.2.3-54-g00ecf From 049a44b608aacbaf1f040183def77fd7e7243fe3 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Sun, 7 Oct 2012 15:16:58 +0200 Subject: .xinitrc --- .xinitrc | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 .xinitrc diff --git a/.xinitrc b/.xinitrc new file mode 100644 index 0000000..0e41d5d --- /dev/null +++ b/.xinitrc @@ -0,0 +1,15 @@ + +xmodmap ~/.Xmodmap + +{ emacs --daemon & } && sleep 1 + +pidof mpdscribble >& /dev/null +if [ $? -ne 0 ] +then + mpdscribble & +fi + +# rox -b Default + +test -n "$1" && wm=$1 || wm="awesome" # wm="emacsclient -ce \"(oni:wm-init)\"" +exec ck-launch-session $wm -- cgit v1.2.3-54-g00ecf