Made several minor changes/tweaks as follows:
.conkerorrc: * changed pdf application to zathura * added a bunch of webjumps (see source) * made duckduckgo default search engine .emacs: * switched to emacs24 from bzr * enabled flyspell-mode * depreciated emacs-color-theme (use built-in theming in emacs24) * added magit init code with the intent of playing with magit someday instead of using cl * setup auto-complete extension * added keybinding C-x 4 s which opens up a elisp scratch buffer * added keybinding C-x 4 e which opens up a eshell buffer * added a eshell clear function * added .conkerorrc, .xmobarrc, .screenrc, and .stumpwmrc to auto-mode-alist .xbindkeysrc: * modified all audio controls to utilize cmus-remote instead of mpc .xinitrc: * using nouveau instead of nvidia driver so naturually switched from twinview to xrandr * disabled pulseaudio from starting because it is automatically started by settings in /etc/pulse/client.conf * modified trayers parameters due to the new xrandr setup .xmobarrc: * added foreword comments * removed volume script from bar (only supported alsa) .xmonad/xmonad.hs: * added emacs scratchpad (keybinding Mod-Control-Escape) * added mc scratchpad (keybinding Mod-Control-3) * added transmission scratchpad (replacing deluge) with keybinding Mod-Control-4 * imported XMonad.Layout.ToggleLayouts in hopes to find a nice fullscreen solution; disabled (but not uncommented) keybinding Mod-Control-Space. *TODO* Signed-off-by: Collin Doering <rekahsoft@gmail.com>
This commit is contained in:
parent
56b467b3cb
commit
aac41c0395
67
.conkerorrc
67
.conkerorrc
|
@ -31,7 +31,7 @@ cwd = get_home_directory();
|
||||||
content_handlers.set("application/pdf", content_handler_save);
|
content_handlers.set("application/pdf", content_handler_save);
|
||||||
|
|
||||||
// external programs for handling various mime types.
|
// external programs for handling various mime types.
|
||||||
external_content_handlers.set("application/pdf", "xpdf");
|
external_content_handlers.set("application/pdf", "zathura");
|
||||||
external_content_handlers.set("video/*", "urxvtc -e mplayer");
|
external_content_handlers.set("video/*", "urxvtc -e mplayer");
|
||||||
|
|
||||||
// use emacsclient as external editor.
|
// use emacsclient as external editor.
|
||||||
|
@ -50,8 +50,67 @@ session_auto_save_auto_load = true;
|
||||||
// Put history completion along side webjumps
|
// Put history completion along side webjumps
|
||||||
url_completion_use_history = true;
|
url_completion_use_history = true;
|
||||||
|
|
||||||
|
// Setup some handy web jumps
|
||||||
|
define_webjump("wolframalpha", "http://www.wolframalpha.com/input/?i=%s");
|
||||||
|
define_webjump("duckduckgo", "https://duckduckgo.com/?q=%s");
|
||||||
|
|
||||||
|
// Create some shortcuts to the webjumps above
|
||||||
|
webjumps.ddg = webjumps.duckduckgo
|
||||||
|
webjumps.wa = webjumps.wolframalpha
|
||||||
|
|
||||||
|
// START SECTION: thanks to http://conkeror.org/Webjumps
|
||||||
|
function chickadee_completer (input, cursor_position, conservative) {
|
||||||
|
var completions = [];
|
||||||
|
var content = yield send_http_request(
|
||||||
|
load_spec({uri: "http://api.call-cc.org/cdoc/ajax/prefix?q="+
|
||||||
|
encodeURIComponent(input)}));
|
||||||
|
if (content.responseText) {
|
||||||
|
var parser = Cc["@mozilla.org/xmlextras/domparser;1"]
|
||||||
|
.createInstance(Ci.nsIDOMParser);
|
||||||
|
var doc = parser.parseFromString(content.responseText, "text/xml");
|
||||||
|
var res = doc.getElementsByTagName("li")
|
||||||
|
for (let i = 0, n = res.length; i < n; ++i) {
|
||||||
|
completions.push(res[i].textContent);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
yield co_return(prefix_completer($completions = completions)
|
||||||
|
(input, cursor_position, conservative));
|
||||||
|
}
|
||||||
|
|
||||||
|
define_webjump("chickadee",
|
||||||
|
"http://api.call-cc.org/cdoc?q=%s&query-name=Lookup",
|
||||||
|
$alternative = "http://api.call-cc.org/doc/",
|
||||||
|
$completer = chickadee_completer);
|
||||||
|
|
||||||
|
define_webjump("eggref4", "http://wiki.call-cc.org/eggref/4/%s",
|
||||||
|
$alternative = "http://wiki.call-cc.org/chicken-projects/egg-index-4.html");
|
||||||
|
|
||||||
|
define_webjump("srfi", function (i) {
|
||||||
|
return "http://srfi.schemers.org/srfi-" + i + "/srfi-" + i + ".html";
|
||||||
|
});
|
||||||
|
|
||||||
|
define_webjump("commandlinefu",
|
||||||
|
function(term) {
|
||||||
|
return 'http://www.commandlinefu.com/commands/matching/' +
|
||||||
|
term.replace(/[^a-zA-Z0-9_\-]/g, '')
|
||||||
|
.replace(/[\s\-]+/g, '-') +
|
||||||
|
'/' + btoa(term);
|
||||||
|
},
|
||||||
|
$argument = 'optional',
|
||||||
|
$alternative = "http://www.commandlinefu.com/");
|
||||||
|
|
||||||
|
define_webjump("emacswiki",
|
||||||
|
"http://www.google.com/cse?cx=004774160799092323420%3A6-ff2s0o6yi"+
|
||||||
|
"&q=%s&sa=Search&siteurl=emacswiki.org%2F",
|
||||||
|
$alternative="http://www.emacswiki.org/");
|
||||||
|
|
||||||
|
define_webjump("savannah", "https://savannah.gnu.org/search/?words=%s&type_of_search=soft");
|
||||||
|
|
||||||
|
define_webjump("youtube", "http://www.youtube.com/results?search_query=%s&search=Search");
|
||||||
|
// END SECTION
|
||||||
|
|
||||||
// Do a google search if a webjump is not recognized
|
// Do a google search if a webjump is not recognized
|
||||||
read_url_handler_list = [read_url_make_default_webjump_handler("google")];
|
read_url_handler_list = [read_url_make_default_webjump_handler("duckduckgo")];
|
||||||
|
|
||||||
// recognize urls a little diffently (allow one worded default webjumps)
|
// recognize urls a little diffently (allow one worded default webjumps)
|
||||||
function possibly_valid_url (str) {
|
function possibly_valid_url (str) {
|
||||||
|
@ -94,8 +153,6 @@ define_browser_object_class(
|
||||||
},
|
},
|
||||||
$hint = "choose url from history");
|
$hint = "choose url from history");
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
interactive("find-url-from-history",
|
interactive("find-url-from-history",
|
||||||
"Find a page from history in the current buffer",
|
"Find a page from history in the current buffer",
|
||||||
"find-url",
|
"find-url",
|
||||||
|
@ -116,4 +173,4 @@ interactive("history-clear",
|
||||||
history_clear);
|
history_clear);
|
||||||
|
|
||||||
// Disable whitelist (Causes extensions from unknown/unsigned sites to silently fail if not enabled!)
|
// Disable whitelist (Causes extensions from unknown/unsigned sites to silently fail if not enabled!)
|
||||||
//session_pref("xpinstall.whitelist.required", false);
|
session_pref("xpinstall.whitelist.required", false);
|
||||||
|
|
103
.emacs
103
.emacs
|
@ -8,6 +8,15 @@
|
||||||
;; fixes color output issues; see: http://wiki.archlinux.org/index.php/Emacs#Colored_output_issues
|
;; fixes color output issues; see: http://wiki.archlinux.org/index.php/Emacs#Colored_output_issues
|
||||||
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
|
||||||
|
|
||||||
|
;; Automatically open some config files with an associated major mode
|
||||||
|
;; Note: regexp's used to match buffer filenames are intentionally left
|
||||||
|
;; unbounded (without '$') to catch cases where the filename may
|
||||||
|
;; take the format: filename~
|
||||||
|
(add-to-list 'auto-mode-alist '("\\.conkerorrc" . javascript-mode))
|
||||||
|
(add-to-list 'auto-mode-alist '("\\.xmobarrc" . haskell-mode))
|
||||||
|
(add-to-list 'auto-mode-alist '("\\.screenrc" . conf-mode))
|
||||||
|
(add-to-list 'auto-mode-alist '("\\.stumpwmrc" . lisp-mode))
|
||||||
|
|
||||||
;; bind M-g to M-x goto-line
|
;; bind M-g to M-x goto-line
|
||||||
(global-set-key "\M-g" 'goto-line)
|
(global-set-key "\M-g" 'goto-line)
|
||||||
|
|
||||||
|
@ -24,12 +33,6 @@
|
||||||
,(make-char 'greek-iso8859-7 107))
|
,(make-char 'greek-iso8859-7 107))
|
||||||
nil))))))
|
nil))))))
|
||||||
|
|
||||||
;; Make lambda appear as the greek character
|
|
||||||
(add-hook 'scheme-mode-hook 'pretty-lambdas)
|
|
||||||
(add-hook 'lisp-mode-hook 'pretty-lambdas)
|
|
||||||
(add-hook 'lisp-interaction-mode-hook 'pretty-lambdas)
|
|
||||||
(add-hook 'geiser-repl-mode-hook 'pretty-lambdas)
|
|
||||||
|
|
||||||
;; adds the given function mode to each element of the given-hooks
|
;; adds the given function mode to each element of the given-hooks
|
||||||
(defun activate-mode-with-hooks (mode given-hooks)
|
(defun activate-mode-with-hooks (mode given-hooks)
|
||||||
(while given-hooks
|
(while given-hooks
|
||||||
|
@ -37,6 +40,9 @@
|
||||||
mode)
|
mode)
|
||||||
(setq given-hooks (cdr given-hooks))))
|
(setq given-hooks (cdr given-hooks))))
|
||||||
|
|
||||||
|
;; Make lambda appear as the greek character
|
||||||
|
(activate-mode-with-hooks 'pretty-lambdas '(scheme-mode-hook lisp-mode-hook lisp-interaction-mode geiser-repl-mode python-mode emacs-lisp-mode))
|
||||||
|
|
||||||
;; linum mode for pretty line numbering
|
;; linum mode for pretty line numbering
|
||||||
(require 'linum)
|
(require 'linum)
|
||||||
|
|
||||||
|
@ -50,21 +56,24 @@
|
||||||
line)
|
line)
|
||||||
'face 'linum)))
|
'face 'linum)))
|
||||||
|
|
||||||
;; linum-modes is a list of mode hooks to instantiate linum-mode on
|
;; code-modes is a list of mode hooks (for programming langs only)
|
||||||
(defvar linum-modes '(scheme-mode-hook emacs-lisp-mode-hook c-mode-hook c++-mode-hook python-mode-hook lua-mode-hook haskell-mode-hook php-mode-hook perl-mode-hook lisp-mode-hook ruby-mode-hook sh-mode-hook))
|
(defvar code-modes '(scheme-mode-hook emacs-lisp-mode-hook c-mode-hook c++-mode-hook python-mode-hook lua-mode-hook haskell-mode-hook php-mode-hook perl-mode-hook lisp-mode-hook ruby-mode-hook sh-mode-hook))
|
||||||
(activate-mode-with-hooks (lambda () (linum-mode 1)) linum-modes)
|
|
||||||
|
|
||||||
|
;; activate linum-mode in all buffers used for programming
|
||||||
|
(activate-mode-with-hooks (lambda () (linum-mode 1)) code-modes)
|
||||||
|
|
||||||
|
;; activate flyspell-prog-mode for all buffers used for programming
|
||||||
|
(activate-mode-with-hooks 'flyspell-prog-mode code-modes)
|
||||||
|
|
||||||
|
;; *DEPRECIATED* as of emacs24; when it goes live remove this as well as package emacs-color-theme
|
||||||
;; load color-theme and initialize
|
;; load color-theme and initialize
|
||||||
(require 'color-theme)
|
;;(require 'color-theme)
|
||||||
(color-theme-initialize)
|
;;(color-theme-initialize)
|
||||||
|
|
||||||
;; use a global color theme
|
;; use a global color theme
|
||||||
(color-theme-tty-dark)
|
;;(color-theme-tty-dark)
|
||||||
|
|
||||||
;; make color-theme not applied globally and not cumunitive
|
;; make color-theme not applied globally and not cumunitive
|
||||||
;;(setq color-theme-is-cumulative nil)
|
;;(setq color-theme-is-cumulative nil)
|
||||||
;;(setq color-theme-is-global nil)
|
;;(setq color-theme-is-global nil)
|
||||||
|
|
||||||
;; given a frame colorizes the frame
|
;; given a frame colorizes the frame
|
||||||
;; if its window-system is X Windows the tty-dark theme will be applied otherwise it will be colorized tty-dark
|
;; if its window-system is X Windows the tty-dark theme will be applied otherwise it will be colorized tty-dark
|
||||||
;;(defun apply-color-theme (frame)
|
;;(defun apply-color-theme (frame)
|
||||||
|
@ -72,10 +81,12 @@
|
||||||
;; (if (eq (window-system frame) 'x)
|
;; (if (eq (window-system frame) 'x)
|
||||||
;; (color-theme-tty-dark)
|
;; (color-theme-tty-dark)
|
||||||
;; (color-theme-tty-dark)))
|
;; (color-theme-tty-dark)))
|
||||||
|
|
||||||
;; add the apply-color-theme function (hook) to be executed on the creation of a new frame
|
;; add the apply-color-theme function (hook) to be executed on the creation of a new frame
|
||||||
;;(add-hook 'after-make-frame-functions 'apply-color-theme)
|
;;(add-hook 'after-make-frame-functions 'apply-color-theme)
|
||||||
|
|
||||||
|
;; Use the built-in themeing in emacs24
|
||||||
|
(load-theme 'manoj-dark)
|
||||||
|
|
||||||
;; Set default tramp method to ssh (for security purposes)
|
;; Set default tramp method to ssh (for security purposes)
|
||||||
(setq tramp-default-method "ssh")
|
(setq tramp-default-method "ssh")
|
||||||
|
|
||||||
|
@ -148,6 +159,10 @@
|
||||||
(setq browse-url-browser-function 'w3m-browse-url)
|
(setq browse-url-browser-function 'w3m-browse-url)
|
||||||
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
|
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
|
||||||
|
|
||||||
|
;; setup magit for git *DISABLED*
|
||||||
|
;;(autoload 'magit-status magit nil t)
|
||||||
|
;;(require 'magit)
|
||||||
|
|
||||||
;; setup php-mode
|
;; setup php-mode
|
||||||
(autoload 'php-mode "php-mode.el" "Php mode." t)
|
(autoload 'php-mode "php-mode.el" "Php mode." t)
|
||||||
(setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))
|
(setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))
|
||||||
|
@ -235,7 +250,7 @@
|
||||||
(require 'geiser-install)
|
(require 'geiser-install)
|
||||||
;(require 'quack)
|
;(require 'quack)
|
||||||
(require 'paredit)
|
(require 'paredit)
|
||||||
(defvar paredit-hooks '(lisp-mode-hook lisp-interaction-mode-hook scheme-mode-hook c-mode-hook c++-mode-hook python-mode-hook))
|
(defvar paredit-hooks '(lisp-mode-hook lisp-interaction-mode-hook emacs-lisp-mode scheme-mode-hook c-mode-hook c++-mode-hook python-mode-hook))
|
||||||
|
|
||||||
;; Apply paredit-mode to modes listed in paredit-hooks
|
;; Apply paredit-mode to modes listed in paredit-hooks
|
||||||
(activate-mode-with-hooks (lambda () (paredit-mode 1)) paredit-hooks)
|
(activate-mode-with-hooks (lambda () (paredit-mode 1)) paredit-hooks)
|
||||||
|
@ -272,6 +287,17 @@
|
||||||
(add-hook 'python-mode-hook 'hs-org/minor-mode)
|
(add-hook 'python-mode-hook 'hs-org/minor-mode)
|
||||||
(add-hook 'scheme-mode-hook 'hs-org/minor-mode)
|
(add-hook 'scheme-mode-hook 'hs-org/minor-mode)
|
||||||
|
|
||||||
|
;; Setup fancy auto-complete
|
||||||
|
(add-to-list 'load-path "/usr/share/emacs/site-lisp/auto-complete")
|
||||||
|
(require 'auto-complete-config)
|
||||||
|
(add-to-list 'ac-dictionary-directories "/usr/share/emacs/site-lisp/auto-complete/ac-dict")
|
||||||
|
(ac-config-default)
|
||||||
|
|
||||||
|
;; Enable flyspell-mode
|
||||||
|
(ac-flyspell-workaround)
|
||||||
|
;; Known Bug: flyspell-mode doesn't play nice with auto-complete-mode
|
||||||
|
;;(flyspell-mode)
|
||||||
|
|
||||||
;; Enable autoinsert feature to automagically insert
|
;; Enable autoinsert feature to automagically insert
|
||||||
(require 'autoinsert)
|
(require 'autoinsert)
|
||||||
(auto-insert-mode) ;;; Adds hook to find-files-hook
|
(auto-insert-mode) ;;; Adds hook to find-files-hook
|
||||||
|
@ -328,14 +354,19 @@
|
||||||
(insert (format-time-string "%b %e, %Y" (current-time))))
|
(insert (format-time-string "%b %e, %Y" (current-time))))
|
||||||
|
|
||||||
(defun open-scratch-buffer ()
|
(defun open-scratch-buffer ()
|
||||||
"Opens a new scratch buffer; if none exists create one."
|
"Opens the scratch buffer; if none exists creates one."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((scratch-buffer (get-buffer "*scratch*")))
|
(let ((scratch-buffer (get-buffer "*scratch*")))
|
||||||
(if (null scratch-buffer) (progn (get-buffer-create "*scratch*")
|
(if (null scratch-buffer) (progn (get-buffer-create "*scratch*")
|
||||||
(insert initial-scratch-message)
|
(insert initial-scratch-message)
|
||||||
(lisp-interaction-mode)))
|
(lisp-interaction-mode)))
|
||||||
(switch-to-buffer "*scratch*")))
|
(switch-to-buffer "*scratch*")))
|
||||||
;; TODO: need to bind key to the open-scratch-buffer command
|
|
||||||
|
;; Bind a key to grab a scratchpad
|
||||||
|
(global-set-key "\C-x4s" 'open-scratch-buffer)
|
||||||
|
|
||||||
|
;; Bind a key to switch to eshell
|
||||||
|
(global-set-key "\C-x4e" 'eshell)
|
||||||
|
|
||||||
;; Toggles windows split orientation of 2 adjecent windows
|
;; Toggles windows split orientation of 2 adjecent windows
|
||||||
;; Thanks to http://www.emacswiki.org/cgi-bin/wiki?ToggleWindowSplit
|
;; Thanks to http://www.emacswiki.org/cgi-bin/wiki?ToggleWindowSplit
|
||||||
|
@ -382,20 +413,36 @@
|
||||||
;; Stop startup screen
|
;; Stop startup screen
|
||||||
(setq inhibit-startup-screen t)
|
(setq inhibit-startup-screen t)
|
||||||
|
|
||||||
|
;; Set some eshell options
|
||||||
|
(setq eshell-scroll-to-bottom-on-input t)
|
||||||
|
;; *BROKEN*
|
||||||
|
;;(setq eshell-scroll-to-bottom-on-output t)
|
||||||
|
|
||||||
|
(defun eshell/clear ()
|
||||||
|
"04Dec2001 - sailor, to clear the eshell buffer."
|
||||||
|
(interactive)
|
||||||
|
(let ((inhibit-read-only t))
|
||||||
|
(erase-buffer)))
|
||||||
|
|
||||||
|
;; Set repos for package.el
|
||||||
|
(setq package-archives '(("ELPA" . "http://tromey.com/elpa/")
|
||||||
|
("gnu" . "http://elpa.gnu.org/packages/")
|
||||||
|
("marmalade" . "http://marmalade-repo.org/packages/")))
|
||||||
|
|
||||||
(custom-set-variables
|
(custom-set-variables
|
||||||
;; custom-set-variables was added by Custom.
|
;; custom-set-variables was added by Custom.
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
;; Your init file should contain only one such instance.
|
;; Your init file should contain only one such instance.
|
||||||
;; If there is more than one, they won't work right.
|
;; If there is more than one, they won't work right.
|
||||||
'(org-agenda-files (quote ("~/.org/todo/center-todo.org" "~/.org/todo/oh-mega-todo.org" "~/.org/todo/network-todo.org" "~/.org/todo/rekahsoft-todo.org" "~/.org/todo/alpha-todo.org" "~/.org/todo/rekahsoft-mini-todo.org")))
|
'(org-agenda-files nil)
|
||||||
'(quack-default-program "racket")
|
'(quack-default-program "racket")
|
||||||
'(quack-fontify-style (quote plt))
|
'(quack-fontify-style (quote plt))
|
||||||
'(quack-programs (quote ("mzscheme" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi")))
|
'(quack-programs (quote ("mzscheme" "bigloo" "csi" "csi -hygienic" "gosh" "gracket" "gsi" "gsi ~~/syntax-case.scm -" "guile" "kawa" "mit-scheme" "racket" "racket -il typed/racket" "rs" "scheme" "scheme48" "scsh" "sisc" "stklos" "sxi")))
|
||||||
'(scroll-bar-mode nil)
|
'(scroll-bar-mode nil)
|
||||||
'(show-paren-mode t))
|
'(show-paren-mode t))
|
||||||
(custom-set-faces
|
(custom-set-faces
|
||||||
;; custom-set-faces was added by Custom.
|
;; custom-set-faces was added by Custom.
|
||||||
;; If you edit it by hand, you could mess it up, so be careful.
|
;; If you edit it by hand, you could mess it up, so be careful.
|
||||||
;; Your init file should contain only one such instance.
|
;; Your init file should contain only one such instance.
|
||||||
;; If there is more than one, they won't work right.
|
;; If there is more than one, they won't work right.
|
||||||
)
|
)
|
||||||
|
|
18
.xbindkeysrc
18
.xbindkeysrc
|
@ -14,26 +14,32 @@
|
||||||
|
|
||||||
# play/pause key = toggle play pause
|
# play/pause key = toggle play pause
|
||||||
#"~/.bin/toggle-pp.py"
|
#"~/.bin/toggle-pp.py"
|
||||||
"mpc toggle"
|
#"mpc toggle"
|
||||||
|
"cmus-remote --pause"
|
||||||
m:0x10 + c:172
|
m:0x10 + c:172
|
||||||
XF86AudioPlay
|
XF86AudioPlay
|
||||||
"mpc toggle"
|
#"mpc toggle"
|
||||||
|
"cmus-remote --pause"
|
||||||
m:0x58 + c:33
|
m:0x58 + c:33
|
||||||
Alt+Mod2+Mod4 + p
|
Alt+Mod2+Mod4 + p
|
||||||
|
|
||||||
# next key = next song
|
# next key = next song
|
||||||
"mpc next"
|
#"mpc next"
|
||||||
|
"cmus-remote --next"
|
||||||
m:0x10 + c:171
|
m:0x10 + c:171
|
||||||
XF86AudioNext
|
XF86AudioNext
|
||||||
"mpc next"
|
#"mpc next"
|
||||||
|
"cmus-remote --next"
|
||||||
m:0x58 + c:60
|
m:0x58 + c:60
|
||||||
Alt+Mod2+Mod4 + period
|
Alt+Mod2+Mod4 + period
|
||||||
|
|
||||||
# prev key = previous song
|
# prev key = previous song
|
||||||
"mpc prev"
|
#"mpc prev"
|
||||||
|
"cmus-remote --prev"
|
||||||
m:0x10 + c:173
|
m:0x10 + c:173
|
||||||
XF86AudioPrev
|
XF86AudioPrev
|
||||||
"mpc prev"
|
#"mpc prev"
|
||||||
|
"cmus-remote --prev"
|
||||||
m:0x58 + c:59
|
m:0x58 + c:59
|
||||||
Alt+Mod2+Mod4 + comma
|
Alt+Mod2+Mod4 + comma
|
||||||
|
|
||||||
|
|
8
.xinitrc
8
.xinitrc
|
@ -9,6 +9,9 @@
|
||||||
# Set the default curson used by xmonad
|
# Set the default curson used by xmonad
|
||||||
xsetroot -cursor_name left_ptr
|
xsetroot -cursor_name left_ptr
|
||||||
|
|
||||||
|
# Setup monitors
|
||||||
|
xrandr --output DVI-I-1 --auto --output DVI-I-2 --auto --left-of DVI-I-1
|
||||||
|
|
||||||
# Start xscreensaver
|
# Start xscreensaver
|
||||||
xscreensaver -no-splash &
|
xscreensaver -no-splash &
|
||||||
|
|
||||||
|
@ -19,11 +22,14 @@ nitrogen --restore &
|
||||||
unclutter &
|
unclutter &
|
||||||
|
|
||||||
# Setup system tray
|
# Setup system tray
|
||||||
trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 4 --height 2 --transparent true --tint 0x000000 &
|
trayer --monitor 1 --edge top --align right --expand true --width 4 --height 2 --transparent true --tint 0x000000 &
|
||||||
|
|
||||||
# Use xbindkeys to bind media keys etc..
|
# Use xbindkeys to bind media keys etc..
|
||||||
xbindkeys &
|
xbindkeys &
|
||||||
|
|
||||||
|
# Start pulseaudio
|
||||||
|
#start-pulseaudio-x11 &
|
||||||
|
|
||||||
# Start-up applications
|
# Start-up applications
|
||||||
parcellite &
|
parcellite &
|
||||||
emacs --daemon &
|
emacs --daemon &
|
||||||
|
|
49
.xmobarrc
49
.xmobarrc
|
@ -1,17 +1,36 @@
|
||||||
|
-- (C) Copyright Collin Doering @!@YEAR@!@
|
||||||
|
--
|
||||||
|
-- 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 <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
-- File: .xmobarrc
|
||||||
|
-- Author: Collin J. Doering <rekahsoft@gmail.com>
|
||||||
|
-- Date: Jan 11, 2012
|
||||||
|
|
||||||
Config { font = "-*-terminus-*-*-*-*-35-*-*-*-*-*-*-u"
|
Config { font = "-*-terminus-*-*-*-*-35-*-*-*-*-*-*-u"
|
||||||
, bgColor = "#000000"
|
, bgColor = "#000000"
|
||||||
, fgColor = "#00FFFF"
|
, fgColor = "#00FFFF"
|
||||||
, position = TopW L 96
|
, position = TopW L 96
|
||||||
, lowerOnStart = True
|
, lowerOnStart = True
|
||||||
, commands = [ Run Network "eth0" ["-L","0","-H","32","-l", "green", "--normal","orange","--high","red"] 40
|
, commands = [ Run Network "eth0" ["-L","0","-H","32","-l", "green", "--normal","orange","--high","red"] 40
|
||||||
, Run Com "/home/collin/.bin/vol.sh" [] "vol" 15
|
-- , Run Com "/home/collin/.bin/vol.sh" [] "vol" 15
|
||||||
, Run MultiCpu ["-t","Cpu <total> | cpu0: <total0> | cpu1: <total1> | cpu2: <total2> | cpu3: <total3>","-L","3","-H","50","--high","#f0c040"] 10
|
, Run MultiCpu ["-t","Cpu <total> | cpu0: <total0> | cpu1: <total1> | cpu2: <total2> | cpu3: <total3>","-L","3","-H","50","--high","#f0c040"] 10
|
||||||
, Run Memory ["-t","Mem: <usedratio>%", "-l", "green", "--normal","orange","--high","red"] 40
|
, Run Memory ["-t","Mem: <usedratio>%", "-l", "green", "--normal","orange","--high","red"] 40
|
||||||
, Run Date "%a %b %_d %l:%M %p" "date" 60
|
, Run Date "%a %b %_d %l:%M %p" "date" 60
|
||||||
, Run CpuFreq ["-t","Freq: <cpu0> | <cpu1> GHz","-L","0","-H","2","-l","green","-n","orange","-h","red"] 50
|
, Run CpuFreq ["-t","Freq: <cpu0> | <cpu1> GHz","-L","0","-H","2","-l","green","-n","orange","-h","red"] 50
|
||||||
, Run StdinReader
|
, Run StdinReader
|
||||||
]
|
]
|
||||||
, sepChar = "%"
|
, sepChar = "%"
|
||||||
, alignSep = "}{"
|
, alignSep = "}{"
|
||||||
, template = " %StdinReader% }{ %vol% <fc=#0033FF>|</fc> %multicpu% <fc=#0033FF>|</fc> %memory% <fc=#0033FF>|</fc> %eth0% <fc=#0033FF>|</fc> %date% <fc=#0033FF>|</fc> "
|
, template = " %StdinReader% }{ %multicpu% <fc=#0033FF>|</fc> %memory% <fc=#0033FF>|</fc> %eth0% <fc=#0033FF>|</fc> %date% <fc=#0033FF>|</fc> "
|
||||||
}
|
}
|
||||||
|
|
|
@ -30,6 +30,7 @@ import XMonad.Util.Run(spawnPipe)
|
||||||
import XMonad.Layout.NoBorders(smartBorders)
|
import XMonad.Layout.NoBorders(smartBorders)
|
||||||
import XMonad.Layout.ResizableTile
|
import XMonad.Layout.ResizableTile
|
||||||
import XMonad.Layout.Grid
|
import XMonad.Layout.Grid
|
||||||
|
import XMonad.Layout.ToggleLayouts
|
||||||
import XMonad.Util.NamedScratchpad
|
import XMonad.Util.NamedScratchpad
|
||||||
import XMonad.Actions.GridSelect
|
import XMonad.Actions.GridSelect
|
||||||
import XMonad.Actions.FloatKeys
|
import XMonad.Actions.FloatKeys
|
||||||
|
@ -206,7 +207,10 @@ myGenericKeys =
|
||||||
|
|
||||||
-- Lock the screen using xscreensaver
|
-- Lock the screen using xscreensaver
|
||||||
[ ((modm .|. shiftMask, xK_v), spawn "xscreensaver-command -lock")
|
[ ((modm .|. shiftMask, xK_v), spawn "xscreensaver-command -lock")
|
||||||
|
|
||||||
|
-- Toggle full-screen mode
|
||||||
|
, ((modm .|. controlMask, xK_space), sendMessage (Toggle "Full"))
|
||||||
|
|
||||||
-- Enable switching of windows with gridselect
|
-- Enable switching of windows with gridselect
|
||||||
, ((modm, xK_g), goToSelected defaultGSConfig)
|
, ((modm, xK_g), goToSelected defaultGSConfig)
|
||||||
|
|
||||||
|
@ -231,14 +235,20 @@ myGenericKeys =
|
||||||
-- Launch vlc
|
-- Launch vlc
|
||||||
, ((modm .|. controlMask, xK_v), spawn "vlc")
|
, ((modm .|. controlMask, xK_v), spawn "vlc")
|
||||||
|
|
||||||
|
-- Launch a screen scratchpad terminal
|
||||||
|
, ((modm .|. controlMask, xK_Escape), namedScratchpadAction scratchpads "emacs-scratch")
|
||||||
|
|
||||||
-- Launch a screen scratchpad terminal
|
-- Launch a screen scratchpad terminal
|
||||||
, ((modm .|. controlMask, xK_1), namedScratchpadAction scratchpads "screen-terminal")
|
, ((modm .|. controlMask, xK_1), namedScratchpadAction scratchpads "screen-terminal")
|
||||||
|
|
||||||
-- Launch a maintainance scratchpad
|
-- Launch a maintainance scratchpad
|
||||||
, ((modm .|. controlMask, xK_2), namedScratchpadAction scratchpads "maintainance-terminal")
|
, ((modm .|. controlMask, xK_2), namedScratchpadAction scratchpads "maintainance-terminal")
|
||||||
|
|
||||||
-- Launch deluge scratchpad
|
-- Launch MC scratchpad
|
||||||
, ((modm .|. controlMask, xK_3), namedScratchpadAction scratchpads "deluge")
|
, ((modm .|. controlMask, xK_3), namedScratchpadAction scratchpads "mc-scratch")
|
||||||
|
|
||||||
|
-- Launch transmission scratchpad (formally deluge)
|
||||||
|
, ((modm .|. controlMask, xK_4), namedScratchpadAction scratchpads "transmission")
|
||||||
|
|
||||||
-- Enable movement and resizing of floating windows
|
-- Enable movement and resizing of floating windows
|
||||||
, ((modm, xK_d), withFocused (keysMoveWindow (10,0))) -- move floating window right
|
, ((modm, xK_d), withFocused (keysMoveWindow (10,0))) -- move floating window right
|
||||||
|
@ -292,6 +302,8 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
|
||||||
-- The available layouts. Note that each layout is separated by |||,
|
-- The available layouts. Note that each layout is separated by |||,
|
||||||
-- which denotes layout choice.
|
-- which denotes layout choice.
|
||||||
--
|
--
|
||||||
|
-- Add "toggleLayouts Full rztiled" to the layouts below (for
|
||||||
|
-- Mod-Control-Space command)
|
||||||
myLayout = avoidStruts $ rztiled ||| Mirror rztiled ||| Grid ||| Full
|
myLayout = avoidStruts $ rztiled ||| Mirror rztiled ||| Grid ||| Full
|
||||||
where
|
where
|
||||||
-- default tiling algorithm partitions the screen into two panes
|
-- default tiling algorithm partitions the screen into two panes
|
||||||
|
@ -336,37 +348,54 @@ myManageHook = composeAll
|
||||||
, resource =? "desktop_window" --> doIgnore ] <+> namedScratchpadManageHook scratchpads <+> manageDocks
|
, resource =? "desktop_window" --> doIgnore ] <+> namedScratchpadManageHook scratchpads <+> manageDocks
|
||||||
|
|
||||||
-- NamedScratchPad Hook
|
-- NamedScratchPad Hook
|
||||||
scratchpads = [ NS "maintainance-terminal" spawnMaintainanceTerminal findMaintainanceTerminal manageMaintainanceTerminal
|
scratchpads = [ NS "emacs-scratch" spawnEmacsScratch findEmacsScratch manageEmacsScratch
|
||||||
, NS "screen-terminal" spawnScreenTerminal findScreenTerminal manageScreenTerminal
|
, NS "maintainance-terminal" spawnMaintainanceTerminal findMaintainanceTerminal manageMaintainanceTerminal
|
||||||
, NS "deluge" spawnDeluge findDeluge manageDeluge ]
|
, NS "screen-terminal" spawnScreenTerminal findScreenTerminal manageScreenTerminal
|
||||||
where
|
, NS "mc-scratch" spawnMcScratch findMcScratch manageMcScratch
|
||||||
findMaintainanceTerminal = resource =? "scratchpad"
|
, NS "transmission" spawnTransmission findTransmission manageTransmission ]
|
||||||
findScreenTerminal = resource =? "screen-scratch"
|
where
|
||||||
findDeluge = resource =? "deluge"
|
findEmacsScratch = resource =? "emacs-scratch"
|
||||||
|
findMaintainanceTerminal = resource =? "scratchpad"
|
||||||
spawnMaintainanceTerminal = myTerminal ++ " -name scratchpad"
|
findScreenTerminal = resource =? "screen-scratch"
|
||||||
spawnScreenTerminal = myTerminal ++ " -name screen-scratch -bg black"
|
findMcScratch = resource =? "mc-scratch"
|
||||||
spawnDeluge = "deluge-gtk"
|
findTransmission = resource =? "transmission-gtk"
|
||||||
|
|
||||||
manageMaintainanceTerminal = customFloating $ W.RationalRect l t w h
|
spawnEmacsScratch = myTerminal ++ " -name emacs-scratch -pe -tabbedex -e emacsclient -nw"
|
||||||
where
|
spawnMaintainanceTerminal = myTerminal ++ " -name scratchpad"
|
||||||
h = 0.33 -- terminal height (%)
|
spawnScreenTerminal = myTerminal ++ " -name screen-scratch -bg black"
|
||||||
w = 1 -- terminal width (%)
|
spawnMcScratch = myTerminal ++ " -name mc-scratch -pe -tabbedex -e mc"
|
||||||
t = 1 - h -- distance from top edge (%)
|
spawnTransmission = "transmission-gtk"
|
||||||
l = 1 - w -- distance from left edge (%)
|
|
||||||
manageScreenTerminal = customFloating $ W.RationalRect l t w h
|
manageEmacsScratch = customFloating $ W.RationalRect l t w h
|
||||||
where
|
where
|
||||||
h = 0.98 -- terminal height (%)
|
h = 0.65 -- terminal height (%)
|
||||||
w = 1 -- terminal width (%)
|
w = 0.55 -- terminal width (%)
|
||||||
t = 1 - h -- distance from top edge (%)
|
t = 1 - h -- distance from top edge (%)
|
||||||
l = 1 - w -- distance from left edge (%)
|
l = 1 - w -- distance from left edge (%)
|
||||||
manageDeluge = customFloating $ W.RationalRect l t w h
|
manageMaintainanceTerminal = customFloating $ W.RationalRect l t w h
|
||||||
where
|
where
|
||||||
h = 0.98 -- terminal height (%)
|
h = 0.33 -- terminal height (%)
|
||||||
w = 1 -- terminal width (%)
|
w = 1 -- terminal width (%)
|
||||||
t = 1 - h -- distance from top edge (%)
|
t = 1 - h -- distance from top edge (%)
|
||||||
l = 1 - w -- distance from left edge (%)
|
l = 1 - w -- distance from left edge (%)
|
||||||
|
manageScreenTerminal = customFloating $ W.RationalRect l t w h
|
||||||
|
where
|
||||||
|
h = 0.98 -- terminal height (%)
|
||||||
|
w = 1 -- terminal width (%)
|
||||||
|
t = 1 - h -- distance from top edge (%)
|
||||||
|
l = 1 - w -- distance from left edge (%)
|
||||||
|
manageMcScratch = customFloating $ W.RationalRect l t w h
|
||||||
|
where
|
||||||
|
h = 0.65 -- terminal height (%)
|
||||||
|
w = 0.55 -- terminal width (%)
|
||||||
|
t = 1 - h -- distance from top edge (%)
|
||||||
|
l = 1 - w -- distance from left edge (%)
|
||||||
|
manageTransmission = customFloating $ W.RationalRect l t w h
|
||||||
|
where
|
||||||
|
h = 0.98 -- terminal height (%)
|
||||||
|
w = 1 -- terminal width (%)
|
||||||
|
t = 1 - h -- distance from top edge (%)
|
||||||
|
l = 1 - w -- distance from left edge (%)
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- Event handling
|
-- Event handling
|
||||||
|
|
Reference in New Issue