Remove unused functions, set stuff according to version number

export.css

@@ -1,217 +0,0 @@
-body {
-    font-family: 'Raleway', sans-serif;
-    line-height: 1.5;
-    }
-    
-a {
-    text-decoration: none;
-    color: #999;
-}
-a:visited {
-	color: #737373;
-    }
-   
-a:hover {
-    text-decoration: underline;
-    }
-nav {
-	position: fixed;
-    width: 200px;
-    height: 82%;
-    overflow: auto;
-}
-nav ul, footer ul {
-	list-style-type: none;
-    margin: 30px;
-    padding: 0;
-}
-nav ul li, footer ul li {
-	padding: 5px;
-}
-
-nav a:hover, footer a:hover {
-    text-decoration: underline;
-    background: #e6e6e6;
-    }
-
-body {
-	position: relative;
-    left: 200px;
-    width: 70%;
-    padding: 30px 30px 30px 10px;
-    margin: 0;
-}
-h1 {
-    font-size: 3em;
-    font-family: 'Fredoka One', cursive;
-    font-weight: normal;
-    -webkit-transition: color 0.5s; /* Safari */
-    transition: color 0.5s;
-   }    
-h1:hover {
-    color: silver;
-}
-h2 {
-    font-size: 2em;
-    font-family: 'Fredoka One', cursive;
-    font-weight: normal;
-    }
-p {
-    font-size: 1em;
-    color: #333;
-    font-family: 'Raleway', sans-serif;
-    }
-    
-.bibentry {
-	padding-left: 22px ;
-    text-indent: -22px ;
-	text-align: left;
-	}
-.tooltip {
-	border-bottom: 1px dashed;
-}
-blockquote {
-	font-style: italic;
-    border-left: 2px solid silver;
-    padding: 0 0 0 8px;
-   }
-blockquote i, blockquote em {
-	font-style: normal;
-   }
-
-.langpoint {
-	display: inline;
-    margin: 0 10px 0 0;
-    border-radius: 5px;
-}
-
-.noit {
-	font-style: normal;
-    padding: 0;
-    border: none;
-   }
-.noit i, .noit em {
-	font-style: italic;
-   }
-figure {
-	border: 1px solid black;
-    width: 50%;
-    text-align: center;
-    font-size: smaller;
-    text-indent: 0;
-    margin: auto;
-    padding: 0.5em;
-   }
-img {
-    width: 100%;
-   }
-	
-.strong {
-	font-weight: bold;
-	}
-footer {
-	position: fixed;
-    bottom: 0;
-    width: 200px;
-    height: 30%;
-   }
-   
-ul.posts { 
-    margin: 20px auto 40px; 
-    font-size: 1em;
-}
-ul.posts li {
-    list-style: none;
-}
-
-.collapsible {
-  background-color: inherit;
-  cursor: pointer;
-  padding: 18px;
-  width: 100%;
-  border: none;
-  text-align: left;
-  outline: none;
-  color: #333;
-  font-family: 'Raleway', sans-serif;
-  font-size: 1em;
-}
-
-.collapsible:after {
-  content: '▸';
-  font-weight: bold;
-  float: left;
-  margin-right: 5px;
-}
-
-.active:after {
-  content: "▼";
-}
-
-.collcontent {
-  padding: 0 18px;
-  max-height: 0;
-  overflow: hidden;
-  transition: max-height 0.2s ease-out;
-  color: #333;
-}
-
-@media (max-width: 810px) {
-    nav {
-	border-bottom: 1px solid #737373;
-	position: static;
-	width: 100%;
-	height: auto;
-    }
-    nav ul, footer ul {
-    line-height: 50px;
-}
-nav ul li, footer ul li {
-    display: inline;
-    background: #f2f2f2;
-    margin: 10px;
-}
-nav a:hover, footer a:hover {
-    background: #f2f2f2;
-    }
-
-body {
-    padding: 30px 10px 30px 10px;
-    margin: 0;
-	position: static;
-	left: auto;
-	width: 100%;
-}
-footer {
-	border-top: 1px solid #737373;
-	position: static;
-	width: 100%;
-	height: auto;
-   }
-}
-
-#postamble {
-    border: 1px solid #ccc;
-    box-shadow: 3px 3px 3px #eee;
-    padding: 8pt;
-    overflow: auto;
-    margin: 1.2em;
-    display: inline-block;
-}
-
-.title {
-    text-align: left;
-}
-
-code {
-    background-color: #efefef;
-    font-family: 'Share Tech Mono', monospace;
-}
-
-pre {
-    display: inline-block;
-}
-
-.done {
-    font-family: monospace;
-}

init.el

@@ -45,8 +45,6 @@
 
 (package-initialize)
 
-;; (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")))
-
 (add-to-list 'package-archives
 	     '("melpa" . "https://melpa.org/packages/") t)
 (add-to-list 'package-archives '("nongnu" . "https://elpa.nongnu.org/nongnu/"))
@@ -151,9 +149,6 @@
   :config
   (show-paren-mode +1))
 
-(use-package powershell)
-;; for editing .ps1 files
-
 (use-package rainbow-mode
   ;; colours css colours (≥ emacs26)
   :hook
@@ -225,9 +220,7 @@
   (add-hook 'markdown-mode-hook 'auto-fill-mode)
   (add-hook 'markdown-mode-hook 'typo-mode)
   :config
-  (setq markdown-command "pandoc")
   (setq markdown-asymmetric-header t)
-  (setq markdown-css-paths `("https://fonts.googleapis.com/css?family=Fredoka+One|Raleway:400,400i,800" ,(expand-file-name "~/.emacs.d/export.css"))) ; does this work on windows?
   :custom
   (markdown-header-scaling t)
   :custom-face
@@ -246,11 +239,11 @@
   (setq org-noter-property-doc-file "INTERLEAVE_PDF"
 	org-noter-property-note-location "INTERLEAVE_PAGE_NOTE"))
 
-(unless (iswin) ;; 27 only??
+(unless (version< emacs-version "27")
   (use-package org-sidebar
     :bind ("C-c C-x s" . org-sidebar-tree)))
 
-(unless (iswin) ;; 27 only??
+(unless (version< emacs-version "27")
   (use-package org-wc
     :bind ("C-c C-x w" . org-wc-display)))
 
@@ -297,19 +290,18 @@
 (load-file "~/.emacs.d/agenda-common.el")
 ;; for agenda things used in both emacs and batch
 
-(when (islin)
+(unless (version< emacs-version "27")
   (use-package org-modern
     :hook
     (org-mode . org-modern-mode)))
 
-(use-package calfw
+(if (version< emacs-version "27")
-  ;; grid calendar that i forget to use
+  (use-package org-bullets
-    :bind ("C-c f" . cfw:open-org-calendar)
+    ;; makes bullets look nice
-    :config
+    :custom
-    (use-package calfw-org)
+    (org-bullets-bullet-list '("✸"))
-    (setq cfw:org-overwrite-default-keybinding t
+    (org-ellipsis " ⤵")
-          cfw:display-calendar-holidays nil
+    :hook (org-mode . org-bullets-mode)))
-          calendar-week-start-day 1))
 
 (unless (atwork)
   (defun org-journal-file-header-func (time)
@@ -327,15 +319,7 @@
 (use-package org-agenda-property)
 ;; lets properties inherit
 
-(unless (islin)
+(unless (version< emacs-version "27")
-  (use-package org-bullets
-    ;; makes bullets look nice
-    :custom
-    (org-bullets-bullet-list '("✸"))
-    (org-ellipsis " ⤵")
-    :hook (org-mode . org-bullets-mode)))
-
-(unless (iswin) ;; 27 only??
   (use-package org-contrib)
   (require 'ox-extra)
   (ox-extras-activate '(ignore-headlines)))
@@ -419,7 +403,7 @@
 ;; Email
 
 (when (islin)
-  (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
+  (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e") ;; this is broken in emacs28
   (load-file "~/.emacs.d/mail.el")
   (require 'mu4e) ;; this uses cl … hopefully will be updated in a later emacs version?
   (setq send-mail-function 'smtpmail-send-it))