I hereby claim:
- I am glucas on github.
- I am glucas (https://keybase.io/glucas) on keybase.
- I have a public key whose fingerprint is ABF8 9DF2 6AC9 D152 72E8 81A0 7934 B82B D272 9051
To claim this, I am signing this object:
Greg Lucas glucas
glucas
/ gist:309fe3d43bd9cf00533f
Last active
August 29, 2015 14:21
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun my/fix-space () | |
| "Delete all spaces and tabs around point, leaving one space except at the beginning of a line." | |
| (interactive) | |
| (just-one-space) | |
| (when (looking-back "^[[:space:]]+") (delete-horizontal-space))) | |
| (defun my/delete-backward () | |
| "When there is an active region, delete it and then fix up the whitespace." | |
| (interactive) | |
| (when (use-region-p) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun ace-command-other-window (cmd &optional one-win-cmd) | |
| "Execute CMD in another window. | |
| If provided, call ONE-WIN-CMD instead when there is only one window." | |
| (interactive "CM-x (other window) ") | |
| (catch 'done | |
| (when (and one-win-cmd | |
| (not (window-parent))) | |
| (call-interactively one-win-cmd) | |
| (throw 'done t)) | |
| (let ((start-window (selected-window)) |
glucas
/ keybase.md
Created
January 7, 2015 17:35
glucas
/ gist:6730692
Created
September 27, 2013 15:45
Elisp snippets for defining ibuffer filter groups for all known projectile projects.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun my/define-projectile-filter-groups () | |
| (when (boundp 'projectile-known-projects) | |
| (setq my/project-filter-groups | |
| (--map (list | |
| (concat "Project: " (file-name-nondirectory (directory-file-name it))) | |
| `(filename . ,it)) | |
| projectile-known-projects)))) | |
glucas
/ rejeep-projectile-completion-fn.el
Created
September 17, 2013 21:37
— forked from rejeep/rejeep-projectile-completion-fn.el
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defun rejeep-projectile-completion-fn (prompt choises) | |
| "Projectile completion function that only shows file name. | |
| If two files have same name, new completion appears to select between | |
| them. These include the path relative to the project root." | |
| (interactive) | |
| (let* ((stripped-choises | |
| (-uniq (--map (file-name-nondirectory it) choises))) | |
| (choise | |
| (ido-completing-read prompt stripped-choises)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defalias 'last-buffer 'mode-line-other-buffer) | |
| (global-set-key (kbd "M-O") 'last-buffer) | |
| (defun my/split-window() | |
| "Split the window to see the most recent buffer in the other window. | |
| Call a second time to restore the original window configuration." | |
| (interactive) | |
| (if (eq last-command 'my/split-window) | |
| (progn |