;; You may delete these explanatory comments.
(package-initialize)
-;; Mandatory theme, being from Leuven originally
-(load-theme 'leuven t)
+;; Use a dark theme now
+(load-theme 'wheatgrass)
;; ESS - for working in R
(autoload 'R-mode "ess-site.el" "Major mode for editing R source." t)
+(setq load-path (cons "/usr/share/emacs/site-lisp/ess" load-path))
+(load "/usr/share/emacs/site-lisp/ess/lisp/ess-site")
+
+;; enable autocomplete
+(add-hook 'after-init-hook 'global-company-mode)
(require 'org)
'org-babel-load-languages
'((R . t)
(latex . t)))
-;; This needs to be fixed - option below results in error when enabled
-;;(org-confirm-babel-evaluate nil)
+;; Security risk - This is somewhat ill-advised it appears
+(setq org-confirm-babel-evaluate nil)
;; Automatically switch to various modes
(setq auto-mode-alist
;; Enable the melpa archive for packages
(require 'package)
(setq package-enable-at-startup nil)
-(add-to-list 'package-archives
- '("melpa" . "http://melpa.milkbox.net/packages/") t)
+(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
(add-to-list 'package-archives
'("elpy" . "http://jorgenschaefer.github.io/packages/"))
-
(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.
- '(org-export-backends (quote (ascii html icalendar latex md odt)))
+ '(browse-url-browser-function 'browse-url-firefox)
+ '(org-export-backends '(ascii html icalendar latex md odt))
'(package-selected-packages
- (quote
- (org htmlize leuven-theme lua-mode ess-R-data-view ess))))
+ '(elfeed-protocol ack company magit auctex lsp-mode elpy ## org htmlize leuven-theme lua-mode ess-smart-underscore ess-R-data-view ess)))
(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.
- )
+ '(default ((t (:family "Source Code Pro" :foundry "ADBO" :slant normal :weight normal :height 143 :width normal)))))
+
+
+;; Send mail using SMTP via mail.vanrenterghem.io.
+(setq send-mail-function 'smtpmail-send-it)
+(setq smtpmail-smtp-server "mail.vanrenterghem.io"
+ smtpmail-smtp-service 587
+ smtpmail-stream-type 'starttls)
+(setq user-full-name "Frederik Vanrenterghem"
+ smtpmail-local-domain "vanrenterghem.io"
+ user-mail-address (concat "frederik@" smtpmail-local-domain))
+(setq mail-default-headers
+ (concat "X-Mailer: GNU Emacs " (symbol-value 'emacs-version)))
+(setq w3m-pop-up-frames t)
+
+(global-set-key [remap list-buffers] 'ibuffer)
+
+;;; use pass (~/.password-store)
+;;; (see The Unix password store)
+(auth-source-pass-enable)
+
+;; Elfeed news reader from Nextcloud
+(require 'elfeed)
+(require 'elfeed-protocol)
+(setq elfeed-use-curl nil)
+(elfeed-set-timeout 36000)
+(setq elfeed-protocol-feeds '(
+ ("owncloud+https://frederik@owncloud.vanrenterghem.biz" :use-authinfo t)
+ ))
+(elfeed-protocol-enable)
+(define-key elfeed-search-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-search-toggle-all '(star))))
+(define-key elfeed-show-mode-map (kbd "*") (lambda () (interactive) (apply 'elfeed-show-tag '(star))))
+;; Read email using mu4e
+(require 'mu4e)
+(setq mail-user-agent 'mu4e-user-agent)
+(setq mu4e-get-mail-command "mbsync io")
+(setq mu4e-use-fancy-chars t)
+(setq mu4e-view-show-images t)
+(setq mu4e-sent-folder "/Sent"
+ mu4e-drafts-folder "/Drafts"
+ mu4e-trash-folder "/Trash")
+
\ No newline at end of file