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)

 (setq mc/cmds-to-run-for-all
-        end-of-region
-        fill-paragraph
-        scroll-down-command
-        smart-tab
+        end-of-code-or-line
+        sp-wrap-cancel
+        sp-wrap-tag-done
 (setq mc/cmds-to-run-once
-        beautify-smex
+        handle-switch-frame
     (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 ()
 (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)
 (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
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.