Did a few minor changes; here is a short explanation:

.conkerorrc:
  added password management system implemented by XUL Runner (still needs to be tested)
.emacs:
  added use of new extension "pastebin.el" (not available from arch repos & AUR)
  added elisp template for automatic insertion on new files that end in '.el'
  added the function 'open-scratch-buffer' which either switches to the current scratch buffer
   or if one doesn't exist creates one, inserts the normal scratch message at the top and enables lisp-interaction-mode
  added the new function 'toggle-window-split' curtiousy of http://www.emacswiki.org which toggles the orientation of window
   splitting between two adjacent windows (either horizontal and verticle)
  bound the function 'toggle-window-split' to "C-x 4 t"
  stop the annoying startup screen from being displayed
.ncmpcpp/config:
  new file added to config used to control ncmpcpp's settings
.xmonad/xmonad.hs:
  simply fixed a formatting error not relating to syntax..removed empty space at the end of a line

Signed-off-by: Collin Doering <rekahsoft@gmail.com>
This commit is contained in:
Collin J. Doering 2011-11-11 18:24:42 -05:00 committed by Collin J. Doering
parent d4bc512e30
commit 56b467b3cb
4 changed files with 82 additions and 1 deletions

View File

@ -69,6 +69,12 @@ function enable_scrollbars (buffer) {
}
add_hook("create_buffer_late_hook", enable_scrollbars);
// Turn on password management in XUL runner
session_pref("signon.rememberSignons", true);
session_pref("signon.expireMasterPassword", false);
session_pref("signon.SignonFileName", "signons.txt");
Cc["@mozilla.org/login-manager;1"].getService(Ci.nsILoginManager); // init
// 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-b", "buffer-previous");

49
.emacs
View File

@ -236,6 +236,8 @@
;(require 'quack)
(require 'paredit)
(defvar paredit-hooks '(lisp-mode-hook lisp-interaction-mode-hook scheme-mode-hook c-mode-hook c++-mode-hook python-mode-hook))
;; Apply paredit-mode to modes listed in paredit-hooks
(activate-mode-with-hooks (lambda () (paredit-mode 1)) paredit-hooks)
;; Highlight paren's in given modes [to apply globally do (show-paren-mode 1)]
@ -253,6 +255,9 @@
(setq geiser-repl-use-other-window nil)
(setq geiser-active-implementations '(racket))
;; setup pastebin.el for use with pastebin.com
(require 'pastebin)
;; 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)
@ -284,6 +289,7 @@
("\\.scm$" . ["scheme-template.scm" auto-update-generic-template])
("\\.clj$" . ["clojure-template.clj" auto-update-generic-template])
("\\.lisp$" . ["lisp-template.lisp" auto-update-generic-template])
("\\.el$" . ["emacs-lisp-template.el" auto-update-generic-template])
("\\.hs$" . ["haskell-template.hs" auto-update-generic-template])
("\\.py$" . ["python-template.py" auto-update-generic-template])))
(setq auto-insert 'other)
@ -321,6 +327,46 @@
(interactive)
(insert (format-time-string "%b %e, %Y" (current-time))))
(defun open-scratch-buffer ()
"Opens a new scratch buffer; if none exists create one."
(interactive)
(let ((scratch-buffer (get-buffer "*scratch*")))
(if (null scratch-buffer) (progn (get-buffer-create "*scratch*")
(insert initial-scratch-message)
(lisp-interaction-mode)))
(switch-to-buffer "*scratch*")))
;; TODO: need to bind key to the open-scratch-buffer command
;; Toggles windows split orientation of 2 adjecent windows
;; Thanks to http://www.emacswiki.org/cgi-bin/wiki?ToggleWindowSplit
(defun toggle-window-split ()
(interactive)
(if (= (count-windows) 2)
(let* ((this-win-buffer (window-buffer))
(next-win-buffer (window-buffer (next-window)))
(this-win-edges (window-edges (selected-window)))
(next-win-edges (window-edges (next-window)))
(this-win-2nd (not (and (<= (car this-win-edges)
(car next-win-edges))
(<= (cadr this-win-edges)
(cadr next-win-edges)))))
(splitter
(if (= (car this-win-edges)
(car (window-edges (next-window))))
'split-window-horizontally
'split-window-vertically)))
(delete-other-windows)
(let ((first-win (selected-window)))
(funcall splitter)
(if this-win-2nd (other-window 1))
(set-window-buffer (selected-window) this-win-buffer)
(set-window-buffer (next-window) next-win-buffer)
(select-window first-win)
(if this-win-2nd (other-window 1))))))
;; Assign keybinding to toggle split orientation of 2 adjacent windows
(define-key ctl-x-4-map "t" 'toggle-window-split)
;; Force ediff sessions to run in the same frame
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
@ -333,6 +379,9 @@
;; Remove scroll bars
(scroll-bar-mode -1)
;; Stop startup screen
(setq inhibit-startup-screen t)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.

27
.ncmpcpp/config Normal file
View File

@ -0,0 +1,27 @@
####################################################
## this is example configuration file, copy it to ##
## ~/.ncmpcpp/config and set up your preferences ##
####################################################
#
##### connection settings #####
#
## set it in order to make tag editor and renaming files work properly
#
mpd_host = "localhost"
#
mpd_port = "6600"
#
mpd_music_dir = "/media/md-isk/Music"
#
#mpd_connection_timeout = "5"
#execute_on_song_change = "notify-send -t 3000 -i \"/usr/share/icons/gnome/scalable/mimetypes/audio-x-generic-symbolic.svg\" \"$(ncmpcpp --now-playing %t)\" \"$(ncmpcpp --now-playing '%b - %a')\""
playlist_display_mode = "columns"
browser_display_mode = "columns"
search_engine_display_mode = "columns"
fancy_scrolling = "yes"
visualizer_fifo_path = "/tmp/mpd.fifo"
visualizer_output_name = "RekahSoft FIFO"
visualizer_sync_interval = "30"
visualizer_type = "spectrum" (spectrum/wave)

View File

@ -214,7 +214,6 @@ myGenericKeys =
, ((modm .|. controlMask, xK_Return), spawn "xterm")
-- Launch firefox (now conkeror)
, ((modm .|. controlMask, xK_f), spawn "conkeror")
-- Launch emacs