colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Multi-lining

Browse Source
This commit is contained in:
Ivan Malison
2016-04-05 12:23:14 -07:00
parent 20c4da57c6
commit 3c052a63ed
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
dotfiles/emacs.d/init.el
View File

@@ -55,6 +55,7 @@
(defvar grep-find-ignored-files nil)
(defvar grep-find-ignored-directories nil)
(defvar tls-checktrust nil)
(defvar tls-program nil)
;; =============================================================================
;; Security
@@ -281,7 +282,8 @@
(defun imalison:get-lat-long ()
(condition-case ex
(mapcar 'string-to-number (s-split "," (s-trim (shell-command-to-string "whereami"))))
(mapcar 'string-to-number (s-split "," (s-trim (shell-command-to-string
"whereami"))))
(error (list 37.7879312624533 -122.402388853402))))
(defun get-date-created-from-agenda-entry (agenda-entry)
@@ -301,7 +303,8 @@
(defun imalison:flatten-imenu-index (index)
(let ((cdr-is-index (listp (cdr index))))
(cond ((not (stringp (car index))) (cl-mapcan #'imalison:flatten-imenu-index index))
(cond ((not (stringp (car index))) (cl-mapcan
#'imalison:flatten-imenu-index index))
(cdr-is-index (imalison:imenu-prefix-flattened index))
(t (list index)))))
@@ -402,7 +405,8 @@ buffer is not visiting a file."
(defun copy-buffer-file-path ()
(interactive)
(add-string-to-kill-ring (file-relative-name (buffer-file-name) (projectile-project-root))))
(add-string-to-kill-ring (file-relative-name (buffer-file-name)
(projectile-project-root))))
(defun copy-full-file-path ()
(interactive)
@@ -1845,8 +1849,10 @@ window is active in the perspective."
:commands (helm-projectile-on)
:config
(progn
(helm-delete-action-from-source "Search in Project" helm-source-projectile-projects)
(helm-delete-action-from-source "Open term for project" helm-source-projectile-projects)
(helm-delete-action-from-source "Search in Project"
helm-source-projectile-projects)
(helm-delete-action-from-source "Open term for project"
helm-source-projectile-projects)
(defun imalison:invalidate-cache-and-open-file (dir)
(projectile-invalidate-cache nil)
(projectile-find-file))