Anonymous avatar Anonymous committed 3adeaa7

+ Added autoloads
+ Added scroling funciton on C-c n/p
+ Increased *Messages* limit to 10000

Comments (0)

Files changed (6)

 vendor/yasnippet/README.mdown
 vendor/yasnippet/README.org
 vendor/yasnippet/Rakefile
+vendor/smartparens/README.md
+vendor/smartparens/smartparens-pkg.el
+vendor/smartparens/smartparens.elc
+vendor/smartparens/smartparens.org
+vendor/smartparens/talk.org
 (setq mc/cmds-to-run-for-all
       '(
         back-to-indentation-or-beginning
-        end-of-region
-        fill-paragraph
-        scroll-down-command
-        smart-tab
+        end-of-code-or-line
+        sp-wrap-cancel
+        sp-wrap-tag-done
         tm/pair-backspace
         tm/pair-insert
         typopunct-insert-ellipsis-or-middot
 
 (setq mc/cmds-to-run-once
       '(
-        beautify-smex
+        handle-switch-frame
         mc/mark-all-like-this-dwim
         typopunct-insert-mp
         ))
     (insert result)
       (message (format "Result: [%s] = %s" expr result)))))
 
+(defun my-scroll-down (arg)
+  "Scroll down ARG lines.  If ARG is nil, scroll 4 lines."
+  (interactive "P")
+  (let ((arg (or arg 4))
+        (cont t)
+        ev)
+    (message "%s" arg)
+    (while cont
+      (setq ev (read-event))
+      (cond
+       ((eq ev ?p)
+        (scroll-down arg))
+       ((eq ev ?n)
+        (scroll-up arg))
+       (t (setq cont nil))))))
+
+(defun my-scroll-up (arg)
+  "Scroll up ARG lines.  If ARG is nil, scroll 4 lines."
+  (interactive "P")
+  (my-scroll-down (or arg 4)))
+
+
 (defun fix-basic ()
   (interactive)
   (beginning-of-buffer)
 
 (setq calendar-week-start-day 1)
 
+(setq message-log-max 10000)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Some text-mode settings
 
 (global-set-key (kbd "C-x C-b") 'ibuffer)
 
 ;; buffer cleanup
-(global-set-key (kbd "C-c n") 'cleanup-buffer)
+(global-set-key (kbd "C-c u") 'cleanup-buffer)
 
 ;; Window navigation
 (windmove-default-keybindings 'meta)
 (global-set-key (kbd "C-c ;") 'iy-go-to-char-continue)
 (global-set-key (kbd "C-c ,") 'iy-go-to-char-continue-backward)
 
+;;; scrollers
+(global-set-key (kbd "C-c n") 'my-scroll-up)
+(global-set-key (kbd "C-c p") 'my-scroll-down)
+
 ;; deleting stuff
 (keyboard-translate ?\C-i ?\H-i)
 (global-set-key (kbd "H-i") 'backward-kill-word)
 (package-initialize)
 (require 'autoinstall)
 
+;; autoloads
+(autoload 'calc-same-interface "calc" nil t)
+
 ;; load config files
 (load "files/org-mode")
 (load "files/global")
 (vendor 'haskell-mode)
 (vendor 'typopunct 'typopunct-change-language 'typopunct-mode)
 (vendor 'wc-mode)
-(vendor 'ace-jump-mode)
-(vendor 'revbufs)
-(vendor 'shell-pop)
+(vendor 'ace-jump-mode 'ace-jump-mode)
+(vendor 'revbufs 'revbufs)
+(vendor 'shell-pop 'shell-pop)
 (vendor 'golden-ratio)
 (vendor 'multiple-cursors)
-(vendor 'iy-go-to-char)
+(vendor 'iy-go-to-char 'iy-go-to-char 'iy-go-to-char-backward)
 (vendor 'sunrise-commander)
-(vendor 'change-inner)
-(vendor 'smart-forward)
+(vendor 'change-inner 'change-inner 'change-outer)
+(vendor 'smart-forward 'smart-forward 'smart-backward 'smart-up 'smart-down)
 (vendor 'smartparens)
 
 (require 'parenface)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.