Moving things one level deeper

To ease gnu stow usage. Now we can do

stow -t ~ emacs

1 files changed, 0 insertions, 417 deletions

diff --git a/.emacs.d/init/ycp-org.el b/.emacs.d/init/ycp-org.el
deleted file mode 100644
index 240cfcf..0000000
--- a/.emacs.d/init/ycp-org.el
+++ /dev/null
@@ -1,417 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-;;; the glorious org mode
-(my-package org
-  (my-keybind global-map
-    "M-u" #'org-store-link
-    "C-c a" #'org-agenda
-    "C-c c" #'org-capture
-    "<f6>" #'my-org-open-default-notes-file
-    )
-  (setq org-startup-folded 'overview)
-  (my-override org-next-link)
-  (my-override org-previous-link)
-  (my-override org--mouse-open-at-point)
-  (my-keybind org-mode-map
-    "M-l" #'org-insert-last-stored-link
-    "M-n" #'org-next-link
-    "M-p" #'org-previous-link
-    "C-c C-l" #'org-insert-link
-    "C-j" #'default-indent-new-line
-    )
-  (my-keybind minibuffer-mode-map "M-l" #'org-insert-last-stored-link)
-  (my-setq-from-local my-org-common-properties org-directory
-                      my-org-doc-dir)
-  ;; disable auto-indent on RET
-  (add-hook 'org-mode-hook (lambda () (electric-indent-local-mode -1)))
-  ;; disable truncate lines
-  (add-hook 'org-mode-hook #'toggle-truncate-lines)
-  ;; disable yas-minor-mode for org
-  (add-hook 'org-mode-hook (lambda () (yas-minor-mode -1)))
-  (add-hook 'org-mode-hook (lambda () (setq-local tab-width 2)))
-
-  (setq org-adapt-indentation 'headline-data)
-  (setq org-special-ctrl-a/e t)
-  (setq org-special-ctrl-k t)
-  (setq org-M-RET-may-split-line '((default . nil)))
-  (setq org-catch-invisible-edits 'show)
-  (setq org-modules '(ol-bbdb ol-gnus ol-info))
-  (setq org-use-sub-superscripts '{})
-  (setq org-use-fast-todo-selection 'expert)
-  (setq org-fontify-quote-and-verse-blocks t)
-  (setq org-highlight-latex-and-related nil) ; other options affect elisp regexp
-                                        ; in src blocks
-  (setq org-log-done 'time)
-  (setq org-archive-location "%s_archive::")
-  (setq org-file-apps
-        '((auto-mode . emacs)
-	        (directory . emacs)
-	        ("\\.mm\\'" . default)
-	        ("\\.x?html?\\'" . emacs)
-	        ("\\.pdf\\'" . emacs)
-          ("\\.mp4\\'" . "xdg-open %s")))
-  (setq org-structure-template-alist
-        '(("a" . "export ascii")
-          ("c" . "center")
-          ("C" . "comment")
-          ("e" . "example")
-          ("E" . "export")
-          ("h" . "export html")
-          ("l" . "export latex")
-          ("m" . "src emacs-lisp")
-          ("q" . "quote")
-          ("s" . "src")
-          ("v" . "verse")))
-  (setq org-use-tag-inheritance nil)
-  (my-setq-from-local org-default-notes-file)
-  (setq org-export-backends '(ascii beamer html icalendar latex md odt org))
-  (setq org-image-actual-width '(400))
-  (setq org-log-into-drawer t)
-  (plist-put org-format-latex-options :scale 1.5)
-  (setq org-reverse-note-order t)
-  (add-hook 'before-save-hook #'my-org-update-updated)
-  )
-
-(my-package org-goto
-  (setq org-goto-interface 'outline-path-completion)
-  )
-
-(my-package org-element
-  ;; org-persist is buggy with encoding etc. let's disable it
-  (setq org-element-cache-persistent nil)
-  )
-
-;;; ox - org export
-(my-package ox
-  (:delay 60)
-  (setq org-export-headline-levels 8)
-  (require 'ox-html)
-  (setq org-html-prefer-user-labels t)
-  (setq org-html-self-link-headlines t)
-  (require 'ox-icalendar)
-  (setq org-icalendar-include-bbdb-anniversaries t)
-  (setq org-icalendar-include-todo t)
-  (setq org-icalendar-use-scheduled '(event-if-todo todo-start))
-  )
-
-(my-package org-id
-  (setq org-id-link-to-org-use-id 'create-if-interactive)
-  )
-
-;;; cite
-(my-package oc
-  (:delay 60)
-  (my-setq-from-local org-cite-global-bibliography)
-  )
-
-(my-package org-src
-  (:delay 10)
-  (setq org-edit-src-persistent-message nil)
-  (my-keybind org-src-mode-map "C-c C-c" #'org-edit-src-exit)
-  (setq org-src-window-setup 'current-window)
-  (setq org-src-preserve-indentation t) ;; useful for yaml and python
-  )
-
-(my-package org-agenda
-  (:delay 10)
-  (my-keybind global-map "C-c g" 'my-org-store-agenda-view-A)
-  (setq org-agenda-confirm-kill t)
-  (setq org-agenda-follow-indirect t)
-  (setq org-agenda-time-leading-zero t)
-  (setq org-agenda-todo-ignore-time-comparison-use-seconds t)
-  (setq org-agenda-todo-ignore-deadlines 'all)
-  (setq org-agenda-todo-ignore-scheduled 'all)
-  (setq org-agenda-todo-ignore-with-date 'all)
-  (setq org-agenda-todo-ignore-timestamp 'all)
-  (setq org-agenda-tags-todo-honor-ignore-options t)
-  (setq org-agenda-dim-blocked-tasks nil)
-  (setq org-agenda-sticky t)
-  (setq org-agenda-inhibit-startup t)
-  (my-setq-from-local org-agenda-files)
-  (setq org-agenda-skip-deadline-if-done nil)
-  (setq org-agenda-skip-scheduled-if-done nil)
-  (setq org-agenda-skip-timestamp-if-done t)
-  (setq org-agenda-start-on-weekday 6)
-  (setq org-agenda-custom-commands
-        `(("A" "Agenda and next"
-	         ((agenda ""
-		                ((org-agenda-span 'week)))
-	          (tags-todo "PRIORITY=\"A\"" nil))
-	         nil
-           ,(my-get-from-local my-org-agenda-and-next-export-files))
-          ("B" "Agenda and context"
-	         ((agenda "" ((org-agenda-span 'week)))
-            (tags-todo "{^@.*}"))
-	         nil)
-	        ("@" "context todos"
-	         ((tags-todo "{^@.*}"))
-	         nil)))
-  (setq org-agenda-prefix-format
-        '((agenda . "%-5:c%?-12t% s")
-          (todo . "%-4:c")
-          (tags . "%-4:c")
-          (search . "%-4:c")))
-  (setq org-agenda-use-tag-inheritance nil)
-  (add-hook 'org-agenda-mode-hook #'hl-line-mode)
-  (add-hook 'org-agenda-after-show-hook 'my-org-agenda-after-show)
-  (org-defkey org-agenda-mode-map "d" #'org-agenda-deadline)
-  (org-defkey org-agenda-mode-map "s" #'org-agenda-schedule)
-  (setq org-agenda-window-setup 'other-window)
-  )
-
-(my-package ob-core
-  (setq org-babel-load-languages '((emacs-lisp . t) (shell . t)))
-  (setq org-confirm-babel-evaluate nil)
-  )
-
-(my-package org-capture
-  (setq org-capture-templates
-        `(("j" "Journal" entry
-	         (file+olp+datetree ,(my-get-from-local my-org-journal-file))
-	         "* %^{Title}
-:PROPERTIES:
-:CREATED:  %U
-:END:
-
-%?")
-	        ("t" "Todo" entry
-	         (file+headline org-default-notes-file "Inbox")
-           "* TODO %a%?
-:PROPERTIES:
-:CREATED:  %U
-:END:
-
-%i"
-	         :prepend t)
-	        ("ya" "Blank audio" entry
-	         (file+headline org-default-notes-file "Audios")
-           nil
-	         :prepend t)
-	        ("book" "Blank books and papers" entry
-	         (file+headline org-default-notes-file "Books and papers")
-           nil
-	         :prepend t)
-	        ("video" "Blank videos" entry
-	         (file+headline org-default-notes-file "Videos")
-           nil
-	         :prepend t)
-	        ("entity" "Blank entities" entry
-	         (file+headline org-default-notes-file "Entities")
-           nil
-	         :prepend t)
-	        ("videogame" "Blank video games" entry
-	         (file+headline org-default-notes-file "Video games")
-           nil
-	         :prepend t)
-	        ("software" "Blank software" entry
-	         (file+headline org-default-notes-file "Software")
-           nil
-	         :prepend t)
-	        ("organisation" "Blank organisation" entry
-	         (file+headline org-default-notes-file "Organisations")
-           nil
-	         :prepend t)
-	        ("people" "Blank people" entry
-	         (file+headline org-default-notes-file "People")
-           nil
-	         :prepend t)
-	        ("game" "Blank games" entry
-	         (file+headline org-default-notes-file "Games")
-           nil
-	         :prepend t)
-	        ("location" "Blank location" entry
-	         (file+headline org-default-notes-file "Locations")
-           nil
-	         :prepend t))))
-
-(my-package org-clock
-  (setq org-clock-history-length 100)
-  (setq org-clock-in-switch-to-state "DOIN")
-  (setq org-clock-idle-time 10)
-  (setq org-clock-mode-line-total 'auto)
-  (setq org-clock-persist 'history)
-  (org-clock-persistence-insinuate))
-
-(my-package org-refile
-  (setq org-outline-path-complete-in-steps nil)
-  (setq org-refile-allow-creating-parent-nodes 'confirm)
-  (setq org-refile-targets '((org-agenda-files :maxlevel . 5)))
-  (setq org-refile-use-cache t)
-  (setq org-refile-use-outline-path t)
-  )
-
-;;; todo: some of these commands will take a while to be ready
-(my-package org-keys
-  (setq org-return-follows-link t)
-  (setq org-use-speed-commands t)
-  (setq org-speed-commands
-        '(("User commands")
-          ("m" . my-magit-clone-org-source)
-	        ("c" . my-org-copy-property-value)
-	        ("x" . my-org-osm-goto)
-	        ("X" . my-osm-org-add-properties)
-	        ("y" . my-grok-update-properties)
-	        ("z" . my-org-orgzly-merge-link)
-	        ("A" . org-attach)
-	        ("P" . my-org-set-common-property)
-	        ("N" . my-org-jump-to-last-visible-child)
-	        ("d" . org-deadline)
-	        ("s" . org-schedule)
-	        ("S" . org-toggle-narrow-to-subtree)
-	        (";" . org-timer-set-timer)
-	        ("," . org-timer-pause-or-continue)
-	        ("h" . my-org-entry-toggle-drawer-visibility)
-	        ("Outline Navigation")
-	        ("n" org-speed-move-safe 'org-next-visible-heading)
-	        ("p" org-speed-move-safe 'org-previous-visible-heading)
-	        ("f" org-speed-move-safe 'org-forward-heading-same-level)
-	        ("b" org-speed-move-safe 'org-backward-heading-same-level)
-	        ("F" . org-next-block)
-	        ("B" . org-previous-block)
-	        ("u" org-speed-move-safe 'outline-up-heading)
-	        ("j" . org-goto)
-	        ("g" org-refile
-	         '(4))
-	        ("Outline Visibility")
-	        ("C" . org-shifttab)
-	        (" " . org-display-outline-path)
-	        ("s" . org-toggle-narrow-to-subtree)
-	        ("k" . org-cut-subtree)
-	        ("=" . org-columns)
-	        ("Outline Structure Editing")
-	        ("U" . org-metaup)
-	        ("D" . org-metadown)
-	        ("r" . org-metaright)
-	        ("l" . org-metaleft)
-	        ("R" . org-shiftmetaright)
-	        ("L" . org-shiftmetaleft)
-	        ("i" . my-org-append-subheading)
-	        ("^" . org-sort)
-	        ("w" . org-refile)
-	        ("a" . org-archive-subtree-default-with-confirmation)
-	        ("@" . org-mark-subtree)
-	        ("#" . org-toggle-comment)
-	        ("Clock Commands")
-	        ("I" . org-clock-in)
-	        ("O" . org-clock-out)
-	        ("Meta Data Editing")
-	        ("t" . org-todo)
-	        ("," org-priority)
-	        ("0" org-priority 32)
-	        ("1" org-priority 65)
-	        ("2" org-priority 66)
-	        ("3" org-priority 67)
-	        (":" . org-set-tags-command)
-	        ("e" . org-set-effort)
-	        ("E" . org-inc-effort)
-	        ("W" lambda
-	         (m)
-	         (interactive "sMinutes before warning: ")
-	         (org-entry-put
-	          (point)
-	          "APPT_WARNTIME" m))
-	        ("Agenda Views etc")
-	        ("v" . org-agenda)
-	        ("/" . org-sparse-tree)
-	        ("Misc")
-	        ("o" . org-open-at-point)
-	        ("?" . org-speed-command-help)
-	        ("<" org-agenda-set-restriction-lock 'subtree)
-	        (">" org-agenda-remove-restriction-lock)))
-  )
-
-;;;;
-;; org attach
-;;;;
-(my-package org-attach
-  (:delay 15)
-  (setq org-attach-store-link-p 'attached)
-  (require 'my-org)
-  (my-setq-from-local my-org-attach-copy-attached-targets)
-  (add-to-list 'org-attach-commands '((?k) my-org-attach-copy-attached-docs
-				                              "Copy attached docs."))
-  (require 'my-scihub)
-  (add-to-list 'org-attach-commands '((?p) my-org-attach-scihub
-				                              "Download document from scihub."))
-  (require 'my-calibre)
-  (add-to-list 'org-attach-commands '((?C) org-attach-calibre-book
-				                              "Attach from local calibre libray."))
-  (add-to-list 'org-attach-commands '((?V) my-org-attach-all-url-plaintext
-                                      "Fetch all urls to plaintext file"))
-  (my-override org-attach-url)
-  (add-to-list 'org-attach-commands '((?U) my-org-attach-url-plaintext
-                                      "Fetch url to plaintext file"))
-  (add-to-list 'org-attach-commands '((?A) my-org-attach-url-plaintext-all-media
-                                      "Fetch url to plaintext file, and all media
-                                    files therein."))
-  )
-
-;; org-protocol
-(my-package org-protocol
-  (:delay 30)
-  (require 'my-org)
-  (add-to-list 'org-protocol-protocol-alist
-               '("grok"
-                 :protocol "grok"
-                 :function my-org-protocol-grok)))
-
-;; org man links
-(my-package ol-man
-  (:delay 30)
-  (setq org-man-command 'woman))
-
-(my-package ol
-  (:delay 10)
-  (require 'my-buffer)
-  (add-to-list 'org-link-frame-setup
-               (cons 'file 'my-find-file-maybe-other-window)))
-
-(my-package my-org
-  (:delay 10)
-  (my-keybind org-mode-map
-    "C-c 1" #'my-org-insert-date-range
-    "C-c ns" #'my-org-substitute-gnus-link-after-archiving
-    "C-x w" #'my-org-copy-link-at-point
-    "C-'" #'my-org-store-link-and-return
-    "C-c M-w" #'my-org-copy-dwim    
-    "C-c <f7>" #'my-org-open-shell-at-attach-dir
-    "C-M-n" #'my-org-next-block-or-results
-    "C-M-p" #'my-org-previous-block-or-results)
-  (add-hook 'org-follow-link-hook 'my-org-follow-link-after)
-  (my-override org-insert-all-links)
-  (my-override org-open-at-point-global)
-  (my-override org-refile-get-targets)
-  (my-override org-insert-last-stored-link)
-  (org-link-set-parameters "info" :follow #'my-org-info-open-new-window)
-  (org-link-set-parameters "rt" :follow #'my-org-rt-open-new-window)
-  (my-override org-src--make-source-overlay)
-  (my-server-timer my-org-clock-save-timer
-	                 nil 600 'my-org-clock-maybe-save)
-  (my-server-idle-timer my-org-refile-rebuild-cache-timer
-                        600 t 'my-org-refile-cache-rebuild)
-  (my-server-idle-timer my-org-agenda-redo-all-timer
-                        660 t 'my-org-agenda-redo-all)
-  (org-defkey org-agenda-mode-map "0" #'my-org-agenda-priority-0)
-  (org-defkey org-agenda-mode-map "1" #'my-org-agenda-priority-A)
-  (org-defkey org-agenda-mode-map "2" #'my-org-agenda-priority-B)
-  (org-defkey org-agenda-mode-map "3" #'my-org-agenda-priority-C)
-  (with-eval-after-load "org-capture"
-    (advice-add 'org-capture-place-template
-	              :around 'my-org-capture-place-template-dont-delete-windows))
-  )
-
-(my-package my-org
-  (:delay 30)
-  (require 'my-web)
-  (org-link-set-parameters "http" :follow (lambda (url arg)
-                                            (my-browse-url
-                                             (concat "http:" url) arg)))
-  (org-link-set-parameters "https" :follow (lambda (url arg)
-                                             (my-browse-url
-                                              (concat "https:" url) arg)))
-  (require 'eww)
-  (define-key eww-mode-map (kbd "C-'") 'my-eww-org-protocol-grok)
-  )
-
-(provide 'ycp-org)
-;;; ycp-org.el ends here