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
Show Stats 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-files nil)
(defvar grep-find-ignored-directories nil) (defvar grep-find-ignored-directories nil)
(defvar tls-checktrust nil) (defvar tls-checktrust nil)
(defvar tls-program nil)
;; ============================================================================= ;; =============================================================================
;; Security ;; Security
@ -281,7 +282,8 @@
(defun imalison:get-lat-long () (defun imalison:get-lat-long ()
(condition-case ex (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)))) (error (list 37.7879312624533 -122.402388853402))))
(defun get-date-created-from-agenda-entry (agenda-entry) (defun get-date-created-from-agenda-entry (agenda-entry)
@ -301,7 +303,8 @@
(defun imalison:flatten-imenu-index (index) (defun imalison:flatten-imenu-index (index)
(let ((cdr-is-index (listp (cdr 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)) (cdr-is-index (imalison:imenu-prefix-flattened index))
(t (list index))))) (t (list index)))))
@ -402,7 +405,8 @@ buffer is not visiting a file."
(defun copy-buffer-file-path () (defun copy-buffer-file-path ()
(interactive) (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 () (defun copy-full-file-path ()
(interactive) (interactive)
@ -1845,8 +1849,10 @@ window is active in the perspective."
:commands (helm-projectile-on) :commands (helm-projectile-on)
:config :config
(progn (progn
(helm-delete-action-from-source "Search in Project" helm-source-projectile-projects) (helm-delete-action-from-source "Search in Project"
(helm-delete-action-from-source "Open term for project" helm-source-projectile-projects) 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) (defun imalison:invalidate-cache-and-open-file (dir)
(projectile-invalidate-cache nil) (projectile-invalidate-cache nil)
(projectile-find-file)) (projectile-find-file))