Various day-to-day changes made summarized as follows:

.conkerorrc:
   * added better support for mime-type handling (pdf, ps, torrent, ...)
.emacs:
   * added PKGBUILD mode
   * disabled hs-org/minor-mode because of it not playing well with auto-complete-mode and flyspell
   * disabled yasnippet for the time being (look into auto-complete-mode and flyspell issues)
   * disabled elget (not functioning plus there is the ELPA so whats the point?)
.gnus:
   * set default account to rekahsoft@gmail.com (previously was only able to send through collin.doering (SMTP) and recieve mail through rekahsoft (IMAP))
   * using encrypted autoinfo files now
   * TODO: get multiple IMAP/SMTP accounts working
.screenrc:
   * disabled ncmpcpp screen (no longer using mpd sadly due to pulseaudio issues
   * disabled nvlc screen
.xinitrc:
   * disabled trayer (no apps use it so whats the point) (still need to modify .xmobar to leave no gap on the right side of the screen)
.xmonad/xmonad.hs:
   * beginning utilization of a few new modules from XMonad.Contrib including:
     - XMonad.Layout.Tabbed
     - XMonad.Layout.Sublayouts
     - XMonad.Layout.WindowNavigation
     - XMonad.Layout.BoringWindows
   Note: many of the added extensions above are not being used; just being prepared to be integrated into the environment (commented out)
         a few other extensions are being considered as well including: CycleWS, XMonad.Actions.TopicSpace and DynamicWorkspaces
   * disabled transmission-gtk scratchpad in preference of transmission-remote cli
.zshrc:
   * new tab completion generated by compinstall (much nicer then previous)

Signed-off-by: Collin Doering <rekahsoft@gmail.com>
This commit is contained in:
Collin J. Doering 2012-06-18 17:00:34 -04:00 committed by Collin J. Doering
parent 0b231dbbcc
commit bd0592baac
7 changed files with 119 additions and 57 deletions

View File

@ -27,12 +27,25 @@ hints_display_url_panel = true;
cwd = get_home_directory();
//cwd.append("downloads");
// automatically handle some mime types internally.
content_handlers.set("application/pdf", content_handler_save);
// set how conkeror will handle certian mime types
content_handlers.set("application/x-bittorrent", content_handler_open_url);
// external programs for handling various mime types.
external_content_handlers = {
"*": "emacsclient",
text: { "*": "emacsclient" },
image: { "*": "feh --scale-down" },
application: {
pdf: "zathura",
postscript: "zathura",
"x-dvi": "zathura",
"x-bittorrent": "transmission-remote -a"
}
};
external_content_handlers.set("application/pdf", "zathura");
external_content_handlers.set("video/*", "urxvtc -e mplayer");
external_content_handlers.set("application/x-bittorrent", "transmission-remote -a");
// use emacsclient as external editor.
editor_shell_command = "emacsclient";

47
.emacs
View File

@ -173,6 +173,10 @@
;;(autoload 'magit-status magit nil t)
;;(require 'magit)
;; Setup PKGBUILD mode
(autoload 'pkgbuild-mode "pkgbuild-mode.el" "PKGBUILD mode." t)
(setq auto-mode-alist (append '(("/PKGBUILD$" . pkgbuild-mode)) auto-mode-alist))
;; setup php-mode
(autoload 'php-mode "php-mode.el" "Php mode." t)
(setq auto-mode-alist (append '(("/*.\.php[345]?$" . php-mode)) auto-mode-alist))
@ -289,26 +293,35 @@
;; setup pastebin.el for use with pastebin.com
(require 'pastebin)
;; hs-org/minor-mode, yasnippet, auto-complete-mode and flyspell do not play
;; nicely with one another due to a conflict with the context of their tab binding *TODO*
;; Make hs-minor-mode act like org-mode for code folding
;;(add-to-list 'load-path "/usr/share/emacs/site-lisp/hideshow-org")
(require 'hideshow-org)
(global-set-key "\C-ch" 'hs-org/minor-mode)
;; (require 'hideshow-org)
;; (global-set-key "\C-ch" 'hs-org/minor-mode)
;; Add automatic activation of hs-org/minor-mode in the below major-modes
(add-hook 'c-mode-common-hook 'hs-org/minor-mode)
(add-hook 'emacs-lisp-mode-hook 'hs-org/minor-mode)
(add-hook 'java-mode-hook 'hs-org/minor-mode)
(add-hook 'lisp-mode-hook 'hs-org/minor-mode)
(add-hook 'sh-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 'c-mode-common-hook 'hs-org/minor-mode)
;; (add-hook 'emacs-lisp-mode-hook 'hs-org/minor-mode)
;; (add-hook 'java-mode-hook 'hs-org/minor-mode)
;; (add-hook 'lisp-mode-hook 'hs-org/minor-mode)
;; (add-hook 'sh-mode-hook 'hs-org/minor-mode)
;; (add-hook 'python-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)
;; Setup yasnippet-mode *TODO* - in conflict (see comment where hs-org/minor-mode is required)
;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/yas")
;; (require 'yasnippet) ;; not yasnippet-bundle
;; (yas/initialize)
;; (yas/load-directory "/usr/share/emacs/site-lisp/yas/snippets")
;; Enable flyspell-mode
(ac-flyspell-workaround)
;; Known Bug: flyspell-mode doesn't play nice with auto-complete-mode
@ -450,6 +463,20 @@
(let ((inhibit-read-only t))
(erase-buffer)))
(add-to-list 'load-path "~/.emacs.d/el-get/el-get")
;; *BROKEN*..can't connect to dbus for some reason?
;; ;; Setup el-get
;; (unless (require 'el-get nil t)
;; (with-current-buffer
;; (url-retrieve-synchronously
;; "https://raw.github.com/dimitri/el-get/master/el-get-install.el")
;; (end-of-buffer)
;; (eval-print-last-sexp)))
;; ;; Synchronize el-get
;; (el-get 'sync)
;; Set repos for package.el
(setq package-archives '(("ELPA" . "http://tromey.com/elpa/")
("gnu" . "http://elpa.gnu.org/packages/")

46
.gnus
View File

@ -9,42 +9,49 @@
(setq nnmail-expiry-wait 2)
(setq nnmail-resplit-incoming t)
(setq user-mail-address "collin.doering@gmail.com")
(setq user-mail-address "rekahsoft@gmail.com")
(setq mail-host-address "gmail.com")
(setq gnus-message-archive-group "nnimap+collin.doering:INBOX.Sent")
(setq gnus-outgoing-message-group "nnimap+collin.doering:INBOX.Sent")
(setq gnus-message-archive-group "nnimap+rekahsoft:[Gmail]/Sent")
(setq gnus-outgoing-message-group "nnimap+rekahsoft:[Gmail]/Sent")
;; use smtp to send mail
(setq message-send-mail-function 'smtpmail-send-it
smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
smtpmail-auth-credentials "~/.cd-authinfo"
smtpmail-auth-credentials "~/.authinfo.gpg"
smtpmail-default-smtp-server "smtp.gmail.com"
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587
smtpmail-local-domain "rekahsoft.homelinux.org")
smtpmail-local-domain "rekahsoft.dyndnshomelinux.org")
;; set primary select method..
(setq gnus-select-method '(nnimap "collin.doering"
(setq gnus-select-method '(nnimap "rekahsoft"
(remove-prefix "INBOX.")
(nnimap-address "imap.gmail.com")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.cd-authinfo")))
(nnimap-authinfo-file "~/.authinfo.gpg")))
;;
(setq gnus-secondary-select-methods
'((nnimap "rekahsoft"
(remove-prefix "INBOX.")
(nnimap-address "imap.gmail.com")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnimap-authinfo-file "~/.authinfo"))))
;; can't get two imap gmail accounts to work simultaniously
;; (setq gnus-secondary-select-methods
;; '(
;; (nnimap "collin.doering"
;; (remove-prefix "INBOX.")
;; (nnimap-address "imap.gmail.com")
;; (nnimap-server-port 993)
;; (nnimap-stream ssl)
;; (nnimap-authinfo-file "~/.cd-authinfo.gpg"))
;; (nnimap "rekahsoft"
;; (remove-prefix "INBOX.")
;; (nnimap-address "imap.gmail.com")
;; (nnimap-server-port 993)
;; (nnimap-stream ssl)
;; (nnimap-authinfo-file "~/.authinfo.gpg"))))
;; (nnimap "rekahsoft.mail"
;; (remove-prefix "INBOX.")
;; (nnimap-address "imap.gmail.com")
;; (nnimap-server-port 993)
;; (nnimap-stream ssl)
;; (nnimap-authinfo-file "~/.rkm-authinfo"))))
;; (nnimap-authinfo-file "~/.rkm-authinfo.gpg"))))
(remove-hook 'gnus-mark-article-hook
'gnus-summary-mark-read-and-unread-as-read)
@ -54,11 +61,12 @@
;; setting up posting styles
(setq gnus-posting-styles
'((".*"
(address "rekahsoft@gmail.com")
(name "Collin J. Doering (RekahSoft)"))
("collin.doering@gmail.com"
(address "collin.doering@gmail.com")
(name "Collin J. Doering"))
("rekahsoft@gmail.com"
(address "rekahsoft@gmail.com")
(name "Collin J. Doering (RekahSoft)"))))
))
;;gnus-group-line-format's default value was
;;"%M%S%p%P%5y:%B%(%g%)%l %O\n"

View File

@ -1,16 +1,17 @@
# Open several named screens at startup and run different commands in each
screen -t zsh 0 zsh
screen -t irssi 1 irssi
screen -t ncmpcpp 2 ncmpcpp
#screen -t ncmpcpp 2 ncmpcpp
screen -t alsamixer 3 alsamixer
screen -t mc 4 mc
screen -t nvlc 5 nvlc
screen -t cmus 5 cmus
#screen -t nvlc 5 nvlc
# Set default prefix from C-a to C-t
escape ^Tt
# Switch to window 1 (irssi)
#screen -p irssi
# Switch to window 1 (irssi) *TODO*
#screen -p select irssi
# Set hard status line
hardstatus alwayslastline '%{gk}[ %{G}%H %{g}][%= %{wk}%?%-Lw%?%{=b kR}[%{W}%n%f %t%?(%u)%?%{=b kR}]%{= kw}%?%+Lw%?%?%=%{g}][%{Y}%l%{g}]%{=b C}[ %D %m/%d %C%a ]%{W}'

View File

@ -21,8 +21,8 @@ nitrogen --restore &
# Have mouse pointer hide after 5 seconds
unclutter &
# Setup system tray
trayer --monitor 1 --edge top --align right --expand true --width 4 --height 2 --transparent true --tint 0x000000 &
# Setup system tray *DISABLED* :: whats the point of a systray if no apps use it?
#trayer --monitor 1 --edge top --align right --expand true --width 4 --height 2 --transparent true --tint 0x000000 &
# Use xbindkeys to bind media keys etc..
xbindkeys &

View File

@ -32,11 +32,14 @@ import XMonad.Layout.NoBorders(noBorders,smartBorders)
import XMonad.Layout.ResizableTile
import XMonad.Layout.Grid
import XMonad.Layout.ToggleLayouts
import XMonad.Layout.SubLayouts
import XMonad.Layout.WindowNavigation
import XMonad.Layout.BoringWindows
import XMonad.Util.NamedScratchpad
import XMonad.Actions.GridSelect
import XMonad.Actions.FloatKeys
import XMonad.Util.Dmenu
import XMonad.Layout.Tabbed
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.UrgencyHook
@ -247,9 +250,6 @@ myGenericKeys =
-- Launch MC scratchpad
, ((modm .|. controlMask, xK_3), namedScratchpadAction scratchpads "mc-scratch")
-- Launch transmission scratchpad (formally deluge)
, ((modm .|. controlMask, xK_4), namedScratchpadAction scratchpads "transmission")
-- Select window from dmenu and go to the workspace its on
, ((modm .|. shiftMask, xK_g), gotoMenuArgs ["-i","-nb", "#040404","-nf","#00FFFF","-sf","#ffa0ff","-sb","#000000"])
@ -261,16 +261,30 @@ myGenericKeys =
, ((modm, xK_a), withFocused (keysMoveWindow (-10,0))) -- move floating window left
, ((modm, xK_s), withFocused (keysMoveWindow (0,-10))) -- move floating window up
, ((modm, xK_x), withFocused (keysMoveWindow (0,10))) -- move floating window down
-- , ((modm .|. shiftMask, xK_a), withFocused (keysResizeWindow (-10,0) (0,0))) -- resize floating window (left)
-- , ((modm .|. shiftMask, xK_d), withFocused (keysResizeWindow (10,0) (0,0))) -- resize floating window (right)
-- , ((modm .|. shiftMask, xK_s), withFocused (keysResizeWindow (0,-10) (0,0))) -- resize floating window (up)
-- , ((modm .|. shiftMask, xK_x), withFocused (keysResizeWindow (0,-10) (0,1))) -- resize floating window (down)
-- , ((modm .|. shiftMask, xK_a), withFocused (keysResizeWindow (-10,0) (0,0))) -- resize floating window (left)
-- , ((modm .|. shiftMask, xK_d), withFocused (keysResizeWindow (10,0) (0,0))) -- resize floating window (right)
-- , ((modm .|. shiftMask, xK_s), withFocused (keysResizeWindow (0,-10) (0,0))) -- resize floating window (up)
-- , ((modm .|. shiftMask, xK_x), withFocused (keysResizeWindow (0,-10) (0,1))) -- resize floating window (down)
-- For implementation of sub-layouts (not used currently)
-- See http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Layout-SubLayouts.html
-- , ((modm .|. controlMask, xK_h), sendMessage $ pullGroup L)
-- , ((modm .|. controlMask, xK_l), sendMessage $ pullGroup R)
-- , ((modm .|. controlMask, xK_k), sendMessage $ pullGroup U)
-- , ((modm .|. controlMask, xK_j), sendMessage $ pullGroup D)
-- , ((modm .|. controlMask, xK_m), withFocused (sendMessage . MergeAll))
-- , ((modm .|. controlMask, xK_u), withFocused (sendMessage . UnMerge))
-- , ((modm .|. controlMask, xK_period), onGroup W.focusUp')
-- , ((modm .|. controlMask, xK_comma), onGroup W.focusDown')
-- Expand a mirror pane
, ((modm .|. shiftMask, xK_l), sendMessage MirrorExpand)
-- Shrink a mirror pane
, ((modm .|. shiftMask, xK_h), sendMessage MirrorShrink) ] where modm = mod4Mask
, ((modm .|. shiftMask, xK_h), sendMessage MirrorShrink)]
where modm = mod4Mask
------------------------------------------------------------------------
-- Mouse bindings: default actions bound to mouse events
@ -310,6 +324,9 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
--
myLayout = smartBorders . avoidStruts $
toggleLayouts (noBorders Full) $
-- for sublayouts but not currently used..see myGenericBindings above
-- windowNavigation $ subTabbed $ boringWindows $
-- to get tabbed layout add simple
rztiled ||| Mirror rztiled ||| Grid
where
-- default tiling algorithm partitions the screen into two panes
@ -344,6 +361,7 @@ myLayout = smartBorders . avoidStruts $
--
myManageHook = composeAll
[ className =? "MPlayer" --> doFloat
, resource =? "supertux2" --> doCenterFloat
-- , title =? "DOOM 3" --> doIgnore
, resource =? "Qt-subapplication" <&&> title /=? "Oracle VM VirtualBox Manager" --> doFloat
, resource =? "vncviewer" --> doCenterFloat
@ -357,20 +375,17 @@ myManageHook = composeAll
scratchpads = [ NS "emacs-scratch" spawnEmacsScratch findEmacsScratch manageEmacsScratch
, NS "maintainance-terminal" spawnMaintainanceTerminal findMaintainanceTerminal manageMaintainanceTerminal
, NS "screen-terminal" spawnScreenTerminal findScreenTerminal manageScreenTerminal
, NS "mc-scratch" spawnMcScratch findMcScratch manageMcScratch
, NS "transmission" spawnTransmission findTransmission manageTransmission ]
, NS "mc-scratch" spawnMcScratch findMcScratch manageMcScratch]
where
findEmacsScratch = resource =? "emacs-scratch"
findMaintainanceTerminal = resource =? "scratchpad"
findScreenTerminal = resource =? "screen-scratch"
findMcScratch = resource =? "mc-scratch"
findTransmission = resource =? "transmission-gtk"
spawnEmacsScratch = myTerminal ++ " -name emacs-scratch -pe -tabbedex -e emacsclient -nw"
spawnMaintainanceTerminal = myTerminal ++ " -name scratchpad"
spawnScreenTerminal = myTerminal ++ " -name screen-scratch -bg black"
spawnMcScratch = myTerminal ++ " -name mc-scratch -pe -tabbedex -e mc"
spawnTransmission = "transmission-gtk"
manageEmacsScratch = customFloating $ W.RationalRect l t w h
where
@ -396,12 +411,6 @@ scratchpads = [ NS "emacs-scratch" spawnEmacsScratch findEmacsScratch manageEmac
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

6
.zshrc
View File

@ -1,6 +1,10 @@
# The following lines were added by compinstall
zstyle ':completion:*' completer _complete _ignored _approximate
zstyle ':completion:*' completer _list _expand _complete _ignored _match _correct _approximate _prefix
zstyle ':completion:*' list-colors ''
zstyle ':completion:*' matcher-list '' 'm:{[:lower:][:upper:]}={[:upper:][:lower:]}' 'r:|[._-/,+]=** r:|=**' 'l:|=* r:|=*'
zstyle ':completion:*' max-errors 5
zstyle ':completion:*' preserve-prefix '//[^/]##/'
zstyle :compinstall filename '/home/collin/.zshrc'
autoload -Uz compinit