Permalink
Browse files

stuff

  • Loading branch information...
1 parent ec43d37 commit 9947ff7f7052b8adf67c0cfcabea3af0c2fcf215 @jrockway committed Dec 11, 2008
Showing with 2,184 additions and 7 deletions.
  1. +3 −3 _local/cperl-extras.el
  2. +4 −4 _local/cperl-reindent.el
  3. +15 −0 _local/editing-extras.el
  4. +13 −0 _local/xmms.el
  5. +2,149 −0 paredit.el
View
@@ -10,7 +10,7 @@
(require 'cperl-reindent)
(provide 'cperl-extras)
-(add-hook 'cperl-mode-hook
+(add-hook 'cperl-mode-hook
(lambda ()
(local-set-key "\C-ct" 'increment-test-counter)
(local-set-key "\C-cu" 'add-use)
@@ -24,10 +24,10 @@
(local-set-key "\C-c\C-p" 'ifind-perl-projects)
(local-set-key "\C-c510" 'kill-5.10)
(local-set-key "\C-cr" 'cperl-repl)
- (local-set-key (quote [C-tab]) (quote cperl-reindent-hash))
+ (local-set-key (quote [M-tab]) (quote cperl-reindent-hash))
(local-set-key "\C-cq" 'find-module)))
-(add-hook 'tt-mode-hook
+(add-hook 'tt-mode-hook
(lambda ()
(local-set-key "\C-c\C-f" 'ifind-perl-project-file)))
View
@@ -8,15 +8,15 @@
(let ((state 0) pos)
(save-excursion
(while (>= state 0)
- (if (not (re-search-backward
+ (if (not (re-search-backward
(format "\\(%s\\)\\|\\(%s\\)"
(regexp-opt (list "[" "(" "{")) ; opening
(regexp-opt (list "]" ")" "}"))) ; closing
nil t))
-
+
; no match, break out of loop
(setq state -1)
-
+
(if (match-string-no-properties 2) ; opening or closing?
(progn (setq state (+ state 1)))
(setq state (- state 1))
@@ -27,7 +27,7 @@
"Narrow from the point to the nearest unmatched opening thingie"
(interactive)
(let ((start (+ 1 (look-for-opening-without-close))) (end (point)))
- (save-excursion
+ (save-excursion
(goto-char start)
(when (looking-at "\n")
(next-line)
View
@@ -41,6 +41,21 @@ the current line to the end of the previous line."
(set-visited-file-name new-name)
(set-buffer-modified-p modified-p))))
+(defun kill-and-close ()
+ (interactive)
+ (kill-buffer)
+ (delete-window))
+
+(require 'eproject) ;; this is really bad "refactoring"
+(defun iswitch-windows ()
+ (interactive)
+ (let* ((names-map (loop for win in (window-list (selected-frame) t)
+ collect (cons (buffer-name (window-buffer win)) win)))
+ (names (mapcar #'car names-map)))
+ (select-window
+ (cdr (assoc (eproject--icompleting-read "Window: " names) names-map)))))
+
+(global-set-key (kbd "C-x w") 'iswitch-windows)
(global-set-key (kbd "C-x ,") 'move-line-up)
(global-set-key (kbd "C-x .") 'move-next-line-up)
(global-set-key (kbd "M-D") 'erase-current-word)
View
@@ -7,4 +7,17 @@
(interactive "NPosition: ")
(shell-command-to-string (format "xmms2 seek %d" time)))
+(defun xmms-next ()
+ (interactive)
+ (shell-command-to-string "xmms2 next"))
+
+(defun xmms-prev ()
+ (interactive)
+ (shell-command-to-string "xmms2 prev"))
+
+(global-set-key (kbd "C-c a n") 'xmms-next)
+(global-set-key (kbd "C-c a p") 'xmms-prev)
+(global-set-key (kbd "C-c a s") 'xmms-seek)
+(global-set-key (kbd "C-c a a") 'xmms-jump-to-song)
+
(provide 'xmms)
Oops, something went wrong.

0 comments on commit 9947ff7

Please sign in to comment.