Remove project directory shortcut, now redundant

This commit is contained in:
Evie Litherland-Smith 2024-05-13 07:57:39 +01:00
parent af3caaeaba
commit a502143541

19
init.el
View file

@ -386,23 +386,6 @@
(keymap-global-set "C-c w d" #'my/open-documents-directory) (keymap-global-set "C-c w d" #'my/open-documents-directory)
(keymap-global-set "C-c w C-d" #'my/open-downloads-directory) (keymap-global-set "C-c w C-d" #'my/open-downloads-directory)
(defun my/projects-directory ()
"Return Projects directory.
If `magit-clone-default-directory' is available, return that,
otherwise fall back to ~/Projects/."
(require 'magit)
(if magit-clone-default-directory
magit-clone-default-directory
"~/Projects/"))
(defun my/open-projects-directory ()
"Open Projects directory.
Uses `my/projects-directory' to find correct directory"
(interactive)
(require 'magit)
(find-file (my/projects-directory)))
(keymap-global-set "C-c w p" #'my/open-projects-directory)
(use-package calendar (use-package calendar
:bind (("C-c >" . calendar)) :bind (("C-c >" . calendar))
:custom :custom
@ -835,7 +818,7 @@ Uses `my/projects-directory' to find correct directory"
(require 'tramp) (require 'tramp)
(setq org-publish-project-alist (setq org-publish-project-alist
`(("xenia.me.uk" `(("xenia.me.uk"
:base-directory ,(expand-file-name "www/xenia.me.uk" (my/projects-directory)) :base-directory ,(expand-file-name "www/xenia.me.uk" "~/Projects/")
:base-extension "org" :base-extension "org"
:exclude "setup.org" :exclude "setup.org"
:recursive t :recursive t