1. Fuco
  2. .emacs.d


Fuco  committed 098ecdf

* Added parenface
* Added ido-ubiquitous
* Added move-line-up/down
* Fixed loading order for textmate and wrap-region

  • Participants
  • Parent commits 006e5e5
  • Branches default

Comments (0)

Files changed (5)

File .mc-lists.el

View file
  • Ignore whitespace
 (setq mc/cmds-to-run-for-all
-        c-electric-delete-forward
-        c-electric-semi&comma
-        iy-go-to-char
-        mc/goto-end-of-region
+        tm/pair-insert

File autoinstall.el

View file
  • Ignore whitespace
+    ido-ubiquitous
+    parenface
   "A list of packages to ensure are installed at launch.")

File files/defuns-edit.el

View file
  • Ignore whitespace
       (goto-char x))))
+;; from https://github.com/skeeto/.emacs.d/blob/master/my-funcs.el
+(defun move-line (n)
+  "Move the current line up or down by N lines."
+  (interactive "p")
+  (setq col (current-column))
+  (beginning-of-line) (setq start (point))
+  (end-of-line) (forward-char) (setq end (point))
+  (let ((line-text (delete-and-extract-region start end)))
+    (forward-line n)
+    (insert line-text)
+    (forward-line -1)
+    (forward-char col)))
+(defun move-line-up (n)
+  "Move the current line up by N lines."
+  (interactive "p")
+  (move-line (if (null n) -1 (- n))))
+(defun move-line-down (n)
+  "Move the current line down by N lines."
+  (interactive "p")
+  (move-line (if (null n) 1 n)))
 (defun eval-and-replace ()
   "Replace the preceding sexp with its value."

File files/keys.el

View file
  • Ignore whitespace
 (global-set-key (kbd "M-.") 'ido-goto-symbol)
 ;; sexp settings
-(global-set-key (kbd "C-c C-e") 'eval-and-replace)
+(global-set-key (kbd "C-c e") 'eval-and-replace)
 (global-set-key (kbd "M-y") 'helm-show-kill-ring)
 (global-set-key (kbd "H-w") 'copy-line)
 (global-set-key (kbd "C-c <up>") 'copy-previous-line)
 (global-set-key (kbd "C-c <down>") 'copy-next-line)
+(global-set-key (kbd "M-<up>") 'move-line-up)
+(global-set-key (kbd "M-<down>") 'move-line-down)
 ;; opening new lines. C-o can be called from any point on the line
 ;; ret from the end only

File init.el

View file
  • Ignore whitespace
 (vendor 'multiple-cursors)
 (vendor 'iy-go-to-char)
 (vendor 'key-chord)
+(vendor 'textmate)    ;; we need to call textmate before wrap-region, so the fallback works properly
 (vendor 'wrap-region)
-(vendor 'textmate)
 (vendor 'sunrise-commander)
 (vendor 'change-inner)
 (vendor 'smart-forward)
  '(erc-timestamp-format-right " [%H:%M:%S]")
  '(foreground-color "#839496")
  '(global-undo-tree-mode t)
+ '(ido-ubiquitous-function-exceptions (quote (grep-read-files\,beautify-smex\,smex-major-mode-commands\,ido-goto-symbol)))
+ '(ido-ubiquitous-mode t)
  '(imenu-auto-rescan t)
  '(ls-lisp-dirs-first t)
  '(menu-bar-mode nil)
  '(diff-removed ((t (:foreground "orangered"))))
  '(dired-directory ((t (:inherit font-lock-function-name-face :foreground "lime green"))))
  '(dropdown-list-face ((t (:inherit default :background "lightyellow" :foreground "black" :family "Consolas"))))
- '(erc-action-face ((t (:foreground "green"))) t)
- '(erc-current-nick-face ((t (:foreground "red" :weight bold))) t)
- '(erc-input-face ((t (:foreground "cyan"))) t)
- '(erc-my-nick-face ((t (:foreground "cyan"))) t)
- '(erc-nick-default-face ((t (:foreground "yellow" :weight bold))) t)
- '(erc-prompt-face ((t (:background "Black" :foreground "Grey" :weight bold))) t)
- '(erc-timestamp-face ((t nil)) t)
+ '(erc-action-face ((t (:foreground "green"))))
+ '(erc-current-nick-face ((t (:foreground "red" :weight bold))))
+ '(erc-input-face ((t (:foreground "cyan"))))
+ '(erc-my-nick-face ((t (:foreground "cyan"))))
+ '(erc-nick-default-face ((t (:foreground "yellow" :weight bold))))
+ '(erc-prompt-face ((t (:background "Black" :foreground "Grey" :weight bold))))
+ '(erc-timestamp-face ((t nil)))
  '(eshell-prompt ((t (:foreground "SlateBlue2" :weight bold))))
  '(fixed-pitch ((t (:height 100 :family "Consolas"))))
  '(fringe ((((class color) (background light)) (:background "grey95" :foreground "black"))))
  '(hl-line ((t (:background "gray12"))))
  '(minibuffer-prompt ((t (:foreground "cyan"))))
  '(org-table ((t (:inherit fixed-pitch :foreground "LightSkyBlue"))))
+ '(paren-face ((t (:foreground "thistle4"))))
  '(region ((((class color) (min-colors 88) (background light)) (:background "color-56"))))
  '(sr-active-path-face ((t (:background "gray19" :foreground "deep sky blue"))))
  '(sr-editing-path-face ((t (:background "red" :foreground "yellow"))))