Update org-publish-project-alist

Move project directory finding into own function, used by
my/open-projects-directory and in org-publish-project-alist

init.el

@@ -381,15 +381,21 @@
 (keymap-global-set "C-c w d" #'my/open-documents-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.
-Try `magit-clone-default-directory' if available, fall back to
- ~/Projects otherwise."
+Uses `my/projects-directory' to find correct directory"
   (interactive)
   (require 'magit)
-  (find-file (if magit-clone-default-directory
-                 magit-clone-default-directory
-               "~/Projects/")))
+  (find-file (my/projects-directory)))
 (keymap-global-set "C-c w p" #'my/open-projects-directory)
 
 (use-package calendar
@@ -847,32 +853,19 @@ Try `magit-clone-default-directory' if available, fall back to
 (setq org-latex-compiler "lualatex")
 (setq org-preview-latex-default-process 'dvisvgm)
 
+(require 'tramp)
 (setq org-publish-project-alist
-      '(("landing"
-         :base-directory "~/Documents/Web/landing/"
+      `(("xenia.me.uk"
+         :base-directory ,(expand-file-name "www/xenia.me.uk" (my/projects-directory))
          :base-extension "org"
-         :exclude "README.org"
          :recursive t
          :publishing-function org-html-publish-to-html
-         :publishing-directory "/sshx:pixelifytica@legion:/var/www/landing"
+         :publishing-directory "/sshx:pixelifytica@legion:/var/www/xenia.me.uk"
          :section-numbers nil
          :with-author t
          :with-email t
          :with-toc nil
          ;; :html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/readtheorg.css\"/>"
-         )
-        ("blog"
-         :base-directory "~/Documents/Web/blog/"
-         :base-extension "org"
-         :exclude "README.org"
-         :recursive t
-         :publishing-function org-html-publish-to-html
-         :publishing-directory "/sshx:pixelifytica@legion:/var/www/blog"
-         :section-numbers nil
-         :with-author t
-         :with-email t
-         :with-toc t
-         :html-head "<link rel=\"stylesheet\" type=\"text/css\" href=\"https://fniessen.github.io/org-html-themes/src/readtheorg_theme/css/readtheorg.css\"/>"
          )))
 
 (use-package rainbow-delimiters