#+BEGIN_SRC emacs-lisp
(setq package-enable-at-startup nil)
(setq package--init-file-ensured t)
+ (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
+ ("melpa" . "https://melpa.org/packages/")
+ ("org" . "http://orgmode.org/elpa/") ))
(eval-and-compile
(setq use-package-verbose (not (bound-and-true-p byte-compile-current-file))))
(mapc #'(lambda (add) (add-to-list 'load-path add))
nil))
load-path))))))
- (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
- ("melpa" . "https://melpa.org/packages/")
- ("org" . "http://orgmode.org/elpa/") ))
(require 'use-package)
(require 'diminish)
(require 'bind-key)
* Modules
** Hippie Expand
#+BEGIN_SRC emacs-lisp
- (use-package hippie-expand
+ (use-package hippie-exp
:bind* (("M-<SPC>" . hippie-expand))
)
#+END_SRC
"~/lib/emacs_el/yasnippet-snippets/snippets/"))
(add-to-list 'hippie-expand-try-functions-list
'yas-hippie-try-expand)
+ (yas-reload-all)
)
)
#+END_SRC
** Tramp
#+BEGIN_SRC emacs-lisp
- (add-to-list 'tramp-methods '("vcsh"
- (tramp-login-program "vcsh")
- (tramp-login-args
- (("enter")
- ("%h")))
- (tramp-remote-shell "/bin/sh")
- (tramp-remote-shell-args
- ("-c"))))
+ (use-package tramp
+ :config
+ (add-to-list 'tramp-methods '("vcsh"
+ (tramp-login-program "vcsh")
+ (tramp-login-args
+ (("enter")
+ ("%h")))
+ (tramp-remote-shell "/bin/sh")
+ (tramp-remote-shell-args
+ ("-c")))))
#+END_SRC
** Reftex
#+BEGIN_SRC emacs-lisp
:mode ("\\.R\\'" . ess-r-mode)
:bind (:map ess-mode-map
("C-c C-R" . dla/ess-region-remote-eval))
+ :init
+ (autoload 'ess-r-mode "ess-site" nil t)
+ (autoload 'R "ess-site" nil t)
:config
+ ; actually load the rest of ess
+ (require 'ess-site)
(defun ess-change-directory (path)
"Set the current working directory to PATH for both *R* and Emacs."
(interactive "Directory to change to: ")
*** Outline magic
#+BEGIN_SRC emacs-lisp
(use-package outline-magic)
+#+END_SRC
+*** Outline mode
+#+BEGIN_SRC emacs-lisp
+;; change the outline mode prefix from C-c @ to C-c C-2
+(setq outline-minor-mode-prefix "C-c C-2")
+;;(add-hook 'outline-minor-mode-hook
+;; (lambda () (local-set-key (kbd "C-c C-2")
+;; outline-mode-prefix-map)))
+
#+END_SRC
** Writeroom Mode
#+BEGIN_SRC emacs-lisp
#+BEGIN_SRC emacs-lisp
(use-package password-store
:ensure f
- :commands password-store-edit password-store-create
+ :commands password-store-edit password-store-generate
)
#+END_SRC
** CSS mode
(use-package org
:delight (org-mode "ΓΈ")
- :config
-
+ :mode ("\\.\\(org\\|org_archive\\|txt\\)\\'" . org-mode)
+ :bind (("C-c l" . org-store-link)
+ ("C-c a" . org-agenda)
+ ("C-c b" . org-iswitchb))
#+END_SRC
** Agenda Configuration
#+BEGIN_SRC emacs-lisp
- :mode ("\\.\\(org\\|org_archive\\|txt\\)\\'" . org-mode)
- :bind (("C-c l" . org-store-link)
- ("C-c a" . org-agenda)
- ("C-c b" . org-iswitchb))
:config
(setq-default org-log-done 'time)
(setq-default org-agenda-ndays 5)
#+END_SRC
** Capture Templates
#+BEGIN_SRC emacs-lisp
- (setq org-capture-templates ;; mail-specific note template, identified by "m"
- '(("m" "Mail" entry (file "~/projects/org-notes/refile.org")
- "* %?\n\n Source: %u, [[%:link][%:description]]\n %:initial")
- ("t" "todo" entry (file "~/projects/org-notes/refile.org")
- "* TODO %?\n :PROPERTIES:\n :END:\n :LOGBOOK:\n :END:\n%U\n%a\n" :clock-in t :clock-resume t)
- ("r" "respond" entry (file "~/projects/org-notes/refile.org")
- "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
- ("n" "note" entry (file "~/projects/org-notes/refile.org")
- "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
- ("s" "schedule" entry (file "~/projects/org-notes/refile.org")
- "* %? :cal:\n%^{scheduled:}t\n%U\n%a\n" :clock-in t :clock-resume t)
- ("j" "Journal" entry (file+datetree "~/projects/org-notes/diary.org")
- "* %?\n%U\n" :clock-in t :clock-resume t)
- ("w" "org-protocol" entry (file "~/projects/org-notes/refile.org")
- "* TODO Review %c\n%U\n" :immediate-finish t)
- ("M" "Meeting" entry (file "~/projects/org-notes/refile.org")
- "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
- ("S" "Seminar" entry (file "~/projects/org-notes/refile.org")
- "* SEMINAR notes %? :SEMINAR:\n%U" :clock-in t :clock-resume t)
- ("P" "Paper to read" entry (file+headline "~/projects/research/papers_to_read.org" "Refile")
- "* TODO Get/Read %? \n%U" :clock-in t :clock-resume t)
- ("p" "Phone call" entry (file "~/projects/org-notes/refile.org")
- "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
- ("J" "job" entry (file "~/projects/org-notes/refile.org")
- "* TODO Apply for %a%? :job:\nSCHEDULED: %(format-time-string \"<%Y-%m-%d 17:00-17:30>\")\n%U\n%a\n" :clock-in t :clock-resume t)
- ("h" "Habit" entry (file "~/projects/org-notes/refile.org")
- "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n%a\n")
+ (setq org-capture-templates ;; mail-specific note template, identified by "m"
+ `(("m" "Mail" entry (file "~/projects/org-notes/refile.org")
+ "* %?\n\n Source: %u, [[%:link][%:description]]\n %:initial")
+ ("t" "todo" entry (file "~/projects/org-notes/refile.org")
+ "* TODO %?\n :PROPERTIES:\n :END:\n :LOGBOOK:\n :END:\n%U\n%a\n" :clock-in t :clock-resume t)
+ ("r" "respond" entry (file "~/projects/org-notes/refile.org")
+ "* NEXT Respond to %:from on %:subject\nSCHEDULED: %t\n%U\n%a\n" :clock-in t :clock-resume t :immediate-finish t)
+ ("n" "note" entry (file "~/projects/org-notes/refile.org")
+ "* %? :NOTE:\n%U\n%a\n" :clock-in t :clock-resume t)
+ ("s" "schedule" entry (file "~/projects/org-notes/refile.org")
+ "* %? :cal:\n%^{scheduled:}t\n%U\n%a\n" :clock-in t :clock-resume t)
+ ("j" "Journal" entry (file+datetree "~/projects/org-notes/diary.org")
+ "* %?\n%U\n" :clock-in t :clock-resume t)
+ ("w" "org-protocol" entry (file "~/projects/org-notes/refile.org")
+ "* TODO Review %c\n%U\n" :immediate-finish t)
+ ("M" "Meeting" entry (file "~/projects/org-notes/refile.org")
+ "* MEETING with %? :MEETING:\n%U" :clock-in t :clock-resume t)
+ ("S" "Seminar" entry (file "~/projects/org-notes/refile.org")
+ "* SEMINAR notes %? :SEMINAR:\n%U" :clock-in t :clock-resume t)
+ ("P" "Paper to read" entry (file+headline "~/projects/research/papers_to_read.org" "Refile")
+ "* TODO Get/Read %? \n%U" :clock-in t :clock-resume t)
+ ("p" "Phone call" entry (file "~/projects/org-notes/refile.org")
+ "* PHONE %? :PHONE:\n%U" :clock-in t :clock-resume t)
+ ("J" "job" entry (file+olp "~/projects/org-notes/notes.org"
+ "Jobs"
+ ,(format-time-string "Positions %Y"))
+ "* TODO Apply for %? :job:\nSCHEDULED: <%<%Y-%m-%d>>\n%U\n%x\n" :clock-in t :clock-resume t)
+ ("h" "Habit" entry (file "~/projects/org-notes/refile.org")
+ "* NEXT %?\n%U\n%a\nSCHEDULED: %(format-time-string \"<%Y-%m-%d .+1d/3d>\")\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n%a\n")
+ )
)
- )
;; Remove empty LOGBOOK drawers on clock out
(defun bh/remove-empty-drawer-on-clock-out ()
#+END_SRC
** Org mode key bindings
#+BEGIN_SRC emacs-lisp
- ; org mode configuration from http://doc.norang.ca/org-mode.html
+ ;; org mode configuration from http://doc.norang.ca/org-mode.html
;; Custom Key Bindings
- (global-set-key (kbd "<f12>") 'org-agenda)
- ; (global-set-key (kbd "<f5>") 'bh/org-todo)
- (global-set-key (kbd "<S-f5>") 'bh/widen)
- (global-set-key (kbd "<f7>") 'bh/set-truncate-lines)
- (global-set-key (kbd "<f8>") 'org-cycle-agenda-files)
- (global-set-key (kbd "<f9> <f9>") 'bh/show-org-agenda)
- (global-set-key (kbd "<f9> b") 'bbdb)
- (global-set-key (kbd "<f9> c") 'calendar)
- (global-set-key (kbd "<f9> f") 'boxquote-insert-file)
- (global-set-key (kbd "<f9> h") 'bh/hide-other)
- (global-set-key (kbd "<f9> n") 'bh/toggle-next-task-display)
- (global-set-key (kbd "<f9> w") 'widen)
-
- ; change the outline mode prefix from C-c @ to C-c C-2
- (setq outline-minor-mode-prefix "C-c C-2")
- ;(add-hook 'outline-minor-mode-hook
- ; (lambda () (local-set-key (kbd "C-c C-2")
- ; outline-mode-prefix-map)))
-
- (global-set-key (kbd "<f9> I") 'bh/punch-in)
- (global-set-key (kbd "<f9> O") 'bh/punch-out)
-
- (global-set-key (kbd "<f9> o") 'bh/make-org-scratch)
-
- (global-set-key (kbd "<f9> r") 'boxquote-region)
- (global-set-key (kbd "<f9> s") 'bh/switch-to-scratch)
-
- (global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
- (global-set-key (kbd "<f9> T") 'bh/toggle-insert-inactive-timestamp)
-
- (global-set-key (kbd "<f9> v") 'visible-mode)
- (global-set-key (kbd "<f9> l") 'org-toggle-link-display)
- (global-set-key (kbd "<f9> SPC") 'bh/clock-in-last-task)
- (global-set-key (kbd "C-<f9>") 'previous-buffer)
- (global-set-key (kbd "M-<f9>") 'org-toggle-inline-images)
- (global-set-key (kbd "C-x n r") 'narrow-to-region)
- (global-set-key (kbd "C-<f10>") 'next-buffer)
- (global-set-key (kbd "<f11>") 'org-clock-goto)
- (global-set-key (kbd "C-<f11>") 'org-clock-in)
- (global-set-key (kbd "C-s-<f12>") 'bh/save-then-publish)
- (global-set-key (kbd "C-c c") 'org-capture)
-
+ :bind* (("<f9> a" . org-agenda)
+ ("<f9> I" . bh/punch-in)
+ ("<f9> O" . bh/punch-out)
+ ("<f9> SPC" . bh/clock-in-last-task)
+ ("<f12>" . org-agenda)
+ ;; ("<f5>" . bh/org-todo)
+ ("<S-f5>" . bh/widen)
+ ("<f7>" . bh/set-truncate-lines)
+ ("<f8>" . org-cycle-agenda-files)
+ ("<f9> <f9>" . bh/show-org-agenda)
+ ("<f9> b" . bbdb)
+ ("<f9> c" . calendar)
+ ("<f9> f" . boxquote-insert-file)
+ ("<f9> h" . bh/hide-other)
+ ("<f9> n" . bh/toggle-next-task-display)
+ ("<f9> w" . widen)
+
+ ("<f9> o" . bh/make-org-scratch)
+
+ ("<f9> r" . boxquote-region)
+ ("<f9> s" . bh/switch-to-scratch)
+
+ ("<f9> t" . bh/insert-inactive-timestamp)
+ ("<f9> T" . bh/toggle-insert-inactive-timestamp)
+
+ ("<f9> v" . visible-mode)
+ ("<f9> l" . org-toggle-link-display)
+ ("<f9> SPC" . bh/clock-in-last-task)
+ ("C-<f9>" . previous-buffer)
+ ("M-<f9>" . org-toggle-inline-images)
+ ("C-x n r" . narrow-to-region)
+ ("C-<f10>" . next-buffer)
+ ("<f11>" . org-clock-goto)
+ ("C-<f11>" . org-clock-in)
+ ("C-s-<f12>" . bh/save-then-publish)
+ ("C-c c" . org-capture))
+ :config
#+END_SRC
** Utility Functions
#+BEGIN_SRC emacs-lisp
do not already have one."
(interactive)
(org-map-entries 'org-id-get-create))
+ (defun dla/org-update-ids-to-headlines-in-file ()
+ "Add or replace ID properties to all headlines in the current file
+ (or narrowed region)."
+ (interactive)
+ (org-map-entries '(lambda () (org-id-get-create t))))
; if we wanted to do this to every buffer, do the following:
; (add-hook 'org-mode-hook
; (lambda ()
If the envvar EMACS_SERVER_NAME is set, consider this a separate
emacs, and use a different desktop file to restore history
#+BEGIN_SRC emacs-lisp
- (use-package desktop-save
- :defer f
+ (use-package emacs
+ :demand
:config
(setq desktop-base-file-name
(convert-standard-filename
(convert-standard-filename
(concat desktop-base-file-name
".lock")))
- (desktop-save-mode 1)
(setq desktop-auto-save-timeout 60)
- (desktop-read)
+ (setq desktop-restore-eager 5)
+ (setq desktop-lazy-verbose nil)
+ (desktop-save-mode 1)
+ ; (desktop-read)
)
#+END_SRC
** Misc (Uncharacterized)
:config
(setq server-name
(or (getenv "EMACS_SERVER_NAME")
- "emacs"))
+ "server"))
(unless (server-running-p)
(global-set-key "\C-xp" 'server-edit)
(server-start)))
projects / lib.git / blobdiff