diff options
Diffstat (limited to 'emacs.d/custom')
| -rw-r--r-- | emacs.d/custom/fcuny-defuns.el | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/emacs.d/custom/fcuny-defuns.el b/emacs.d/custom/fcuny-defuns.el index 955650c..48a9d97 100644 --- a/emacs.d/custom/fcuny-defuns.el +++ b/emacs.d/custom/fcuny-defuns.el @@ -1,21 +1,3 @@ -(defun fcuny/rename-this-buffer-and-file () - "Renames current buffer and file it is visiting." - (interactive) - (let ((name (buffer-name)) - (filename (buffer-file-name)) - (read-file-name-function 'read-file-name-default)) - (if (not (and filename (file-exists-p filename))) - (error "Buffer '%s' is not visiting a file!" name) - (let ((new-name (read-file-name "New name: " filename))) - (cond ((get-buffer new-name) - (error "A buffer named '%s' already exists!" new-name)) - (t - (rename-file filename new-name 1) - (rename-buffer new-name) - (set-visited-file-name new-name) - (set-buffer-modified-p nil) - (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name)))))))) - (defun fcuny/remove-mysql-columns () "Removes from text. This is useful when I want to drop the column separator from some text coming from a mysql query." (interactive) @@ -33,11 +15,6 @@ "Returns t if this is a work machine" (string-match "tw-mbp.*" (system-name))) -(defun fcuny/check-source-predicate-python-p () - (and (executable-find "check.pex") - (buffer-file-name) - (string-match "src/source/.*\.py$" (buffer-file-name)))) - (defun fcuny/build-python-checker () "Compiles a newer version of the checker for Python." (interactive) @@ -74,18 +51,5 @@ (decode-coding-string title 'utf-8)) (concat "[[" url "][" title "]]")))) -(defun fcuny/uniquify-region-lines (beg end) - "Remove duplicate adjacent lines in region." - (interactive "*r") - (save-excursion - (goto-char beg) - (while (re-search-forward "^\\(.*\n\\)\\1+" end t) - (replace-match "\\1")))) - -(defun fcuny/gocs () - """Custom function to research a term using go/cs" - (interactive) - (let ((text (read-string "Search for: " (thing-at-point 'word)))) - (browse-url (format "http://go/cs/%s" text)))) (provide 'fcuny-defuns) |