wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[Emacs] Fix server link updating

Browse Source
This commit is contained in:
Ivan Malison 2017-10-13 22:12:55 -07:00
parent 922d01be60
commit 195d03246a
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/emacs.d/README.org
View File

@ -1408,16 +1408,16 @@ Paradox is a package.el extension. I have no use for it now that I use straight.
(imalison:join-paths user-emacs-directory "server" "server")) (imalison:join-paths user-emacs-directory "server" "server"))
(defun imalison:main-emacs-server-name () (defun imalison:main-emacs-server-name ()
(file-name-nondirectory (file-name-nondirectory
(file-truename (imalison:get-server-filepath)))) (file-truename (imalison:get-server-file))))
(defun imalison:make-main-emacs-server () (defun imalison:make-main-emacs-server ()
(interactive) (interactive)
(when (not (equal server-name (imalison:main-emacs-server-name))) (when (not (equal server-name (imalison:main-emacs-server-name)))
(let ((server-file (imalison:get-server-file))) (let ((server-file (imalison:get-server-file)))
(shell-command-to-string (shell-command-to-string
(format "cd '%s' && rm -f server && ln -s %s server" (format "cd %s && rm -f server && ln -s %s server"
(imalison:join-paths user-emacs-directory "server") (imalison:join-paths user-emacs-directory "server")
server-name))))) server-name)))))
(defun imalison:get-server-filepath () (defun imalison:get-this-server-filepath ()
(let ((server-dir (if server-use-tcp server-auth-dir server-socket-dir))) (let ((server-dir (if server-use-tcp server-auth-dir server-socket-dir)))
(expand-file-name server-name server-dir))) (expand-file-name server-name server-dir)))
(setq server-use-tcp t) (setq server-use-tcp t)
@ -3185,7 +3185,7 @@ Intero seems to be causing hangs, so it has been disabled
((org-agenda-overriding-header ((org-agenda-overriding-header
"Due today:")))) "Due today:"))))
(recently-created '(tags-todo (recently-created '(tags-todo
"+CREATED=>\"<-3d>\"" "+CREATED=>\"<-30d>\""
((org-agenda-overriding-header "Recently created:") ((org-agenda-overriding-header "Recently created:")
(org-agenda-cmp-user-defined 'org-cmp-creation-times) (org-agenda-cmp-user-defined 'org-cmp-creation-times)
(org-agenda-sorting-strategy '(user-defined-down))))) (org-agenda-sorting-strategy '(user-defined-down)))))