Added syntax-highlighting to less output using source-highlight (in both .bashrc and .zshrc)

Cleaned up comments in .bashrc and .zshrc
Added file .ghci for use of ghci; all it does currently is change the prompt
MC automatic made changes to .mc/ini
Re-added .pentadactylrc..for some reason i removed it..i still use firefox + pentadactyl as my backup browser (second to conkeror)
Added quiet a few new features to .stumpwmrc including:
  * use of swank (so i can connect to the stumpwm lisp process using slime (M-x slime-connect) port 5005
  * some nice keybindings to make life easier..
Changed the border width used by xmonad as well as added the use of GridView (.xmonad/xmonad.hs)

Signed-off-by: Collin Doering <rekahsoft@gmail.com>
This commit is contained in:
Collin J. Doering 2011-10-24 19:52:46 -04:00 committed by Collin J. Doering
parent 5a83b71e52
commit ea52337f5b
8 changed files with 271 additions and 9 deletions

11
.bashrc
View File

@ -15,13 +15,20 @@ alias skreen='screen -c /dev/null'
export GREP_COLOR="1;33" export GREP_COLOR="1;33"
alias grep='grep --color=auto' alias grep='grep --color=auto'
# Use source-highlight to make code in less syntax highlighted
export LESSOPEN="| /usr/bin/src-hilite-lesspipe.sh %s"
export LESS=' -R '
PS1='[\u@\h: \w]\$ ' PS1='[\u@\h: \w]\$ '
# Turn off noscroll # Turn off noscroll
stty stop undef stty stop undef
# Modify path variable to allow execution of mathematica and tools # Modify path variable to allow execution of the following:
export PATH=${PATH}:/usr/local/bin # * mathematica / tools
# * nxclient / associated tools
# * maven tools
export PATH=${PATH}:/usr/local/bin:/opt/maven/bin:/opt/NX/bin
# start keychain # start keychain
eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa` eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa`

View File

@ -63,6 +63,12 @@ function possibly_valid_url (str) {
// turn off mode line // turn off mode line
mode_line_mode(false); mode_line_mode(false);
// force scrolling bars so that incremental search (isearch) works and mousewheel scrolling
function enable_scrollbars (buffer) {
buffer.top_frame.scrollbars.visible = true;
}
add_hook("create_buffer_late_hook", enable_scrollbars);
// Some keybindings i like from firefox + pentadactyl, and luakit // Some keybindings i like from firefox + pentadactyl, and luakit
define_key(content_buffer_normal_keymap, "C-f", "buffer-next"); define_key(content_buffer_normal_keymap, "C-f", "buffer-next");
define_key(content_buffer_normal_keymap, "C-b", "buffer-previous"); define_key(content_buffer_normal_keymap, "C-b", "buffer-previous");
@ -94,8 +100,6 @@ interactive("find-url-from-history-new-buffer",
"find-url-new-buffer", "find-url-new-buffer",
$browser_object = browser_object_history_url); $browser_object = browser_object_history_url);
function history_clear () { function history_clear () {
var history = Cc["@mozilla.org/browser/nav-history-service;1"] var history = Cc["@mozilla.org/browser/nav-history-service;1"]
.getService(Ci.nsIBrowserHistory); .getService(Ci.nsIBrowserHistory);

1
.ghci Normal file
View File

@ -0,0 +1 @@
:set prompt "ghci> "

View File

@ -98,7 +98,7 @@ filepos_max_saved_entries=1024
[Layout] [Layout]
equal_split=1 equal_split=1
first_panel_size=72 first_panel_size=113
message_visible=1 message_visible=1
keybar_visible=1 keybar_visible=1
xterm_title=1 xterm_title=1

210
.pentadactylrc Normal file
View File

@ -0,0 +1,210 @@
" {{{ anrxc's vimperator configuration with Emacs bindings
"
" Bindings
" * http://sysphere.org/~anrxc/j/articles/vimperator/index.html
" Todo
" * C-n and C-p in "INSERT (menu)" mode
" * http://code.google.com/p/vimperator-labs/issues/detail?id=36
" License
" * http://creativecommons.org/publicdomain/zero/1.0
" }}}
" {{{ Options
"
" User styles as colorschemes in Vimperator 2 *BROKEN*
" colorscheme zenburn
" Window title
set titlestring=Firefox
" No toolbar and scrollbars by default
"set go=rb
" Editor, C-i invokes it in text fields
set editor=emacsclient
" Command line and search patterns history
set history=10000
" Show pattern matches as you type
"set incsearch
" Hilight previous search pattern matches
"set hlsearch
" Override ignorecase if pattern has uppercase chars
"set smartcase
" Show the tab bar only if more then one tab is open
set showtabline=never
" Focus content after a page has loaded *DISALED* - does not work with pentadactyl
"set focuscontent
" Show destination links in 1=status line, 2=command line
set showstatuslinks=command
" Show completions and use AwesomeBar (+search plugins)
set complete=sl
" *DISABLED* - does not work with pentadactyl
"set wildoptions=auto
" Ex commands output in a new tab by default (prefs, addons...)
set newtab=all
" Internal default search engine is ignored, plugins are used
"set ds=yubnub
" }}}
" {{{ Key bindings
" - Emacs GTK key-theme and FF already provide bindings for input fields
"
" M-x enters command mode
noremap <A-x> :
noremap <A-!> :!
" Emacs navigation in command line and insert mode
cmap <C-n> <Tab>
cmap <C-p> <S-Tab>
cmap <C-f> <Right>
cmap <C-b> <Left>
cmap <C-j> <CR>
noremap <C-j> <CR>
inoremap <C-j> <CR>
inoremap <C-n> <Down>
inoremap <C-p> <Up>
inoremap <C-f> <Right>
inoremap <C-b> <Left>
" Use C-f and C-b for tab browsing
noremap <C-f> <C-n>
noremap <C-b> <C-p>
" Use C-a and C-e to jump to first/last tab
"noremap <C-a> g0
"noremap <C-e> g$
"
" Or use them to go to the absolute left/right of the document
noremap <C-a> 0
noremap <C-e> $
" Use C-p and C-n for up/down
noremap <C-p> 2k
noremap <C-n> 2j
" Use C-v and M-v for jump scrolling
noremap <C-v> <C-d>
noremap <A-v> <C-u>
" Goto the top of the document with M-<
noremap <A-<> gg
" Goto the end of the document with M->
noremap <A->> G
" Use C-s and C-r for searching (n/N for next/prev as in less)
noremap <C-s> /
noremap <C-r> ?
" Copy the current URL to the clipboard with M-w
noremap <A-w> y
"
" Copy selected text to the clipboard with C-w
noremap <C-w> Y
" Paste the current clipboard selection to a new buffer with C-y
noremap <C-y> P
" Use current URL as a start for a new location with C-x C-v
noremap <C-x><C-v> O
" C-g as cancel (C-q is stop)
cmap <C-g> <Esc>
imap <C-g> <Esc>
noremap <C-g> <Esc>
" Avoid Find dialog when canceling a started command, C-x C-g
noremap <C-x><C-g> <Esc>
"
" Avoid quit on C-q, and it's more suitable for Stop here
noremap <C-q> :stop<CR>
" Kill the buffer with C-x k
noremap <C-x>k d
" Undo close tab with C-_ (also with C-Shift-t, as C-t is new tab)
noremap <C-_> u
" Exit and save the session with C-x C-c
noremap <C-x><C-c> ZZ
" Buffer lists with C-x b and C-x C-b
noremap <C-x>b b
noremap <C-x><C-b> B
" Open a link in a new tab with C-x t
" Open a link in the current tab with C-x l
noremap <C-x>t :t<SPACE>
noremap <C-x>l :o<SPACE>
" Open hints in new tab by default (switch roles of f and F)
"noremap f F
"noremap F f
" Switch hints to letter "j", for right hand usage
noremap j f
noremap J F
"
" Extended hint mode with M-j
" ; - focus link, a - save, y - copy link, O - :open query, T - for :tabopen ...
noremap <A-j> ;
" We can now also use F for Shift+b/f as back/forward
noremap F L
noremap B H
" Back with Backspace as well
map <BS> H
" Use C-h i to start help
noremap <C-h>i :help<CR>
" Record a key sequence into a macro with C-x (
noremap <C-x>( q
" Play a macro with C-x e
noremap <C-x>e @
" Set a mark at the cursor with C-x r m
noremap <C-x>rm m
" Jump to the mark in the current buffer with C-x r b
noremap <C-x>rb '
" C-v was pass-next, remap to bind with default keys
noremap <C-d> <C-v>
"
" C-x C-f starts the "Open File" dialog (C-x C-s is Save)
map <C-x><C-f> <C-d><C-o>
" {{{ Javascript functions
"
" Show the Feed and Bookmark buttons on the statusbar
javascript <<EOF
(function(){
var statusPanel = document.createElement("statusbarpanel");
statusPanel.setAttribute("id", "buttons-panel-clone");
statusPanel.appendChild(document.getElementById("feed-button"));
statusPanel.appendChild(document.getElementById("star-button"));
statusPanel.firstChild.setAttribute("style", "padding: 0; max-height: 16px;");
document.getElementById("status-bar")
.insertBefore(statusPanel, document.getElementById("security-button"));
})();
EOF
" }}}

View File

@ -20,3 +20,37 @@
;; TODO: write some nice custom config for stumpwm ;; TODO: write some nice custom config for stumpwm
;(set-contrib-dir "/usr/share/stumpwm") ;(set-contrib-dir "/usr/share/stumpwm")
;; Add the date to the modeline
(setf stumpwm:*screen-mode-line-format*
(list "%w | "
'(:eval (remove #\Newline (stumpwm:run-shell-command "date '+%a %b %_d %l:%M %p'" t)))))
;; Enable the modeline
(stumpwm:toggle-mode-line (stumpwm:current-screen) (stumpwm:current-head))
;; Disable some of the defaults
(stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "c"))
(stumpwm:undefine-key stumpwm:*root-map* (stumpwm:kbd "C-e"))
;; Create some keybindings to make life easier
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "N") "gnext")
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "P") "gprev")
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "d") "gkill")
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "c") "exec urxvt")
(stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-e") "exec emacsclient -c")
;; Load swank for emacs to connect to stumpwm's lisp process
(load "/usr/share/emacs/site-lisp/slime/swank-loader.lisp")
(swank-loader:init)
(defcommand swank () ()
(setf stumpwm:*top-level-error-action* :break)
(swank:create-server :port 5005
:style swank:*communication-style*
:dont-close t)
(echo-string (current-screen)
"Starting swank. M-x slime-connect RET RET, then (in-package stumpwm)."))
;; Start swank
(swank)

View File

@ -29,6 +29,7 @@ import System.Exit
import XMonad.Util.Run(spawnPipe) 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.Util.NamedScratchpad import XMonad.Util.NamedScratchpad
import XMonad.Actions.GridSelect import XMonad.Actions.GridSelect
import XMonad.Actions.FloatKeys import XMonad.Actions.FloatKeys
@ -54,7 +55,7 @@ myFocusFollowsMouse = False
-- Width of the window border in pixels. -- Width of the window border in pixels.
-- --
myBorderWidth = 1 myBorderWidth = 2
-- modMask lets you specify which modkey you want to use. The default -- modMask lets you specify which modkey you want to use. The default
-- is mod1Mask ("left alt"). You may also consider using mod3Mask -- is mod1Mask ("left alt"). You may also consider using mod3Mask
@ -292,7 +293,7 @@ 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.
-- --
myLayout = avoidStruts $ rztiled ||| Mirror rztiled ||| 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
tiled = Tall nmaster delta ratio tiled = Tall nmaster delta ratio

9
.zshrc
View File

@ -30,15 +30,20 @@ alias skreen='screen -c /dev/null'
export GREP_COLOR="1;33" export GREP_COLOR="1;33"
alias grep='grep --color=auto' alias grep='grep --color=auto'
# Use source-highlight to make code in less syntax highlighted
export LESSOPEN="| /usr/bin/src-hilite-lesspipe.sh %s"
export LESS=' -R '
PS1="[%n@%M: %~]%% " PS1="[%n@%M: %~]%% "
# Turn off noscroll # Turn off noscroll
stty stop undef stty stop undef
# Modify path variable to allow execution of the following: # Modify path variable to allow execution of the following:
# * mathematica/ tools # * mathematica / tools
# * nxclient / associated tools
# * maven tools # * maven tools
export PATH=${PATH}:/usr/local/bin:/opt/maven/bin export PATH=${PATH}:/usr/local/bin:/opt/maven/bin:/opt/NX/bin
# start keychain # start keychain
eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa` eval `keychain --eval --timeout 10 --quiet --agents ssh id_rsa`