;; Added by Package.el. This must come before configurations of ;; installed packages. Don't delete this line. If you don't want it, ;; just comment it out by adding a semicolon to the start of the line. ;; You may delete these explanatory comments. (require 'package) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t) (add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t) (package-initialize) (global-set-key (kbd "") (lambda () (interactive) (find-file (concat "~/ungleich-learning-circle/kjg/learning-"(system-name)"-"(format-time-string "%Y")".org")))) (global-set-key (kbd "C-x g") 'magit-status) (global-set-key (kbd "C-c a") 'org-agenda) (global-set-key (kbd "") 'org-todo-list) (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(epg-gpg-program "/usr/local/bin/gpg") '(org-agenda-files (quote ("~/ungleich-learning-circle/kjg/todo.org" "~/learning.org"))) ;;'(org-directory (expand-file-name "~/ungleich-learning-circle/kjg/")) '(package-selected-packages (quote (org org-gnome org-dp ## which-key magit))) '(send-mail-function (quote sendmail-send-it))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. ) (require 'epa-file) (epa-file-enable) (setq mu4e-mu-binary "/usr/local/bin/mu") (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu/mu4e") (require 'mu4e) (setq mue4e-headers-skip-duplicates t mu4e-view-show-images t mu4e-view-show-addresses t mu4e-compose-format-flowed nil mu4e-date-format "%y/%m/%d" mu4e-headers-date-format "%Y/%m/%d" mu4e-change-filenames-when-moving t mu4e-attachments-dir "~/Downloads" mu4e-maildir "~/Maildir/ungleich" ;; top-level Maildir ;; note that these folders below must start with / ;; the paths are relative to maildir root mu4e-refile-folder "/Archive" mu4e-sent-folder "/Sent" mu4e-drafts-folder "/Drafts" mu4e-trash-folder "/Trash" mu4e-reply-to-address "jinguk.kwon@ungleich.ch" user-mail-address "jinguk.kwon@ungleich.ch" user-full-name "kjg") ;; this setting allows to re-sync and re-index mail ;; by pressing U (setq mu4e-get-mail-command "mbsync -a") (setq mail-host-address "mail.ungleich.ch") (setq send-mail-function 'smtpmail-send-it message-send-mail-function 'smtpmail-send-it user-mail-address "jinguk.kwon@ungleich.ch" smtpmail-starttls-credentials '(("smtp.ungleich.ch" 587 nil nil)) smtpmail-auth-credentials "~/.authinfo.gpg" smtpmail-default-smtp-server "smtp.ungleich.ch" smtpmail-smtp-server "smtp.ungleich.ch" smtpmail-smtp-service 587 smtpmail-smtp-user "jinguk.kwon@ungleich.ch" smtpmail-debug-info t smtpmail-debug-verb t) ;;starttls-extra-arguments nil ;;starttls-gnutls-program (executable-find "gnutls-cli") ;;smtpmail-warn-about-unknown-extensions t ;;starttls-use-gnutls t) (require 'smtpmail) ;;store org-mode links to messages (require 'org-mu4e) (define-key mu4e-headers-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture) (define-key mu4e-view-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture) (setq org-directory (expand-file-name "~/ungleich-learning-circle/kjg/")) ;;store link to message if in header view, not to header query (setq org-mu4e-link-query-in-headers-mode nil) (setq org-capture-templates '(("t" "todo" entry (file+headline (lambda() (concat "~/ungleich-learning-circle/kjg/todo-"(system-name)"-"(format-time-string "%Y")".org")) "Tasks") "* TODO [#A] %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n%a\n"))) (setq org-log-done 'time) ~ ❯ cd ungleich-learning-circle ~/ungleich-learning-circle master* ❯ cd kjg/dot-cdist ~/ungleich-learning-circle/kjg/dot-cdist master* ❯ ls -al total 0 drwxr-xr-x 4 elf staff 128 May 6 21:26 . drwxr-xr-x 8 elf staff 256 May 6 22:03 .. drwxr-xr-x 3 elf staff 96 May 6 21:33 manifest drwxr-xr-x 3 elf staff 96 May 6 21:26 type ~/ungleich-learning-circle/kjg/dot-cdist master* ❯ cd type ~/ungleich-learning-circle/kjg/dot-cdist/type master* ❯ ls -al total 0 drwxr-xr-x 3 elf staff 96 May 6 21:26 . drwxr-xr-x 4 elf staff 128 May 6 21:26 .. drwxr-xr-x 4 elf staff 128 May 6 22:06 __my_computer ~/ungleich-learning-circle/kjg/dot-cdist/type master* ❯ cd __my_computer ~/ungleich-learning-circle/kjg/dot-cdist/type/__my_computer master* ❯ ls -al total 8 drwxr-xr-x 4 elf staff 128 May 6 22:06 . drwxr-xr-x 3 elf staff 96 May 6 21:26 .. drwxr-xr-x 2 elf staff 64 May 6 22:06 files -rw-r--r-- 1 elf staff 110 May 6 21:40 manifest ~/ungleich-learning-circle/kjg/dot-cdist/type/__my_computer master* ❯ cat ~/.emacs ;; Added by Package.el. This must come before configurations of ;; installed packages. Don't delete this line. If you don't want it, ;; just comment it out by adding a semicolon to the start of the line. ;; You may delete these explanatory comments. (require 'package) (add-to-list 'package-archives '("melpa" . "http://melpa.org/packages/") t) (add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t) (package-initialize) (global-set-key (kbd "") (lambda () (interactive) (find-file (concat "~/ungleich-learning-circle/kjg/learning-"(system-name)"-"(format-time-string "%Y")".org")))) (global-set-key (kbd "C-x g") 'magit-status) (global-set-key (kbd "C-c a") 'org-agenda) (global-set-key (kbd "") 'org-todo-list) (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(epg-gpg-program "/usr/local/bin/gpg") '(org-agenda-files (quote ("~/ungleich-learning-circle/kjg/todo.org" "~/learning.org"))) ;;'(org-directory (expand-file-name "~/ungleich-learning-circle/kjg/")) '(package-selected-packages (quote (org org-gnome org-dp ## which-key magit))) '(send-mail-function (quote sendmail-send-it))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. ) (require 'epa-file) (epa-file-enable) (setq mu4e-mu-binary "/usr/local/bin/mu") (add-to-list 'load-path "/usr/local/share/emacs/site-lisp/mu/mu4e") (require 'mu4e) (setq mue4e-headers-skip-duplicates t mu4e-view-show-images t mu4e-view-show-addresses t mu4e-compose-format-flowed nil mu4e-date-format "%y/%m/%d" mu4e-headers-date-format "%Y/%m/%d" mu4e-change-filenames-when-moving t mu4e-attachments-dir "~/Downloads" mu4e-maildir "~/Maildir/ungleich" ;; top-level Maildir ;; note that these folders below must start with / ;; the paths are relative to maildir root mu4e-refile-folder "/Archive" mu4e-sent-folder "/Sent" mu4e-drafts-folder "/Drafts" mu4e-trash-folder "/Trash" mu4e-reply-to-address "jinguk.kwon@ungleich.ch" user-mail-address "jinguk.kwon@ungleich.ch" user-full-name "kjg") ;; this setting allows to re-sync and re-index mail ;; by pressing U (setq mu4e-get-mail-command "mbsync -a") (setq mail-host-address "mail.ungleich.ch") (setq send-mail-function 'smtpmail-send-it message-send-mail-function 'smtpmail-send-it user-mail-address "jinguk.kwon@ungleich.ch" smtpmail-starttls-credentials '(("smtp.ungleich.ch" 587 nil nil)) smtpmail-auth-credentials "~/.authinfo.gpg" smtpmail-default-smtp-server "smtp.ungleich.ch" smtpmail-smtp-server "smtp.ungleich.ch" smtpmail-smtp-service 587 smtpmail-smtp-user "jinguk.kwon@ungleich.ch" smtpmail-debug-info t smtpmail-debug-verb t) ;;starttls-extra-arguments nil ;;starttls-gnutls-program (executable-find "gnutls-cli") ;;smtpmail-warn-about-unknown-extensions t ;;starttls-use-gnutls t) (require 'smtpmail) ;;store org-mode links to messages (require 'org-mu4e) (define-key mu4e-headers-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture) (define-key mu4e-view-mode-map (kbd "C-c c") 'mu4e-org-store-and-capture) (setq org-directory (expand-file-name "~/ungleich-learning-circle/kjg/")) ;;store link to message if in header view, not to header query (setq org-mu4e-link-query-in-headers-mode nil) (setq org-capture-templates '(("t" "todo" entry (file+headline (lambda() (concat "~/ungleich-learning-circle/kjg/todo-"(system-name)"-"(format-time-string "%Y")".org")) "Tasks") "* TODO [#A] %?\nSCHEDULED: %(org-insert-time-stamp (org-read-date nil t \"+0d\"))\n%a\n"))) (setq org-log-done 'time)