Cleanup a bit of org stuff

master
Jacopo De Simoi 10 years ago
parent f93389509e
commit e12c1a427b
  1. 34
      init.el
  2. 23
      init/init-org.el

@ -26,9 +26,7 @@
'(hl-sexp-background-colors (quote ("#395959")))
'(ibuffer-use-other-window t)
'(magit-save-repository-buffers (quote dontask))
'(org-agenda-files
(quote
("~/org/notes.org" "~/dropbox.utoronto/orgzly/work.org")))
'(org-agenda-files (quote ("~/org/notes.org" "~/org/orgzly/work.org")))
'(org-agenda-show-inherited-tags (quote always))
'(org-catch-invisible-edits (quote smart))
'(org-icalendar-categories (quote (all-tags category)))
@ -69,11 +67,10 @@
;; 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 (:inherit nil :stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "xos4" :family "terminus"))))
'(bold ((t (:weight normal))))
'(fixed-pitch ((t (:family "Bitstream Vera Sans Mono"))))
'(font-latex-math-face ((t (:foreground "cornsilk3"))))
'(helm-source-header ((t (:background "#22083397778B" :foreground "white" :weight bold :height 1))))
'(helm-source-header ((t (:inherit helm-header :background "#22083397778B" :foreground "white" :weight bold))))
'(highlight ((t (:background "Darkslategray"))))
'(hl-line ((t (:background "#073642"))))
'(hl-sexp-face ((t (:underline t))) t)
@ -92,6 +89,15 @@
'(visible-mark-face ((t (:background "goldenrod" :foreground "#182828")))))
;; This kinda overrides the customize business, but it works
;; * Use patched terminus :fixme:
(set-face-font 'default "-xos4-terminus-medium-r-normal--20-200-72-72-c-100-ISO10646-1")
(mapc
(lambda (face)
(set-face-attribute face nil :weight 'normal))
(face-list))
(add-to-list 'custom-theme-load-path "/home/jacopods/clones/emacs-color-theme-solarized")
(load-theme 'solarized t)
(setq-default display-buffer-reuse-frames t)
(add-hook 'before-save-hook 'delete-trailing-whitespace)
@ -385,13 +391,6 @@ This is the same as using \\[set-mark-command] with the prefix argument."
(ibuffer-switch-to-saved-filter-groups "default")))
;; * Use patched terminus :fixme:
;; (set-face-font 'default "-xos4-TerminusPlus-Medium-R-Normal--12-120-72-72-C-60-ISO10646-1")
;; (mapc
;; (lambda (face)
;; (set-face-attribute face nil :weight 'normal))
;; (face-list))
;; * mode-line setup
(setq-default mode-line-modified '(:eval (if (buffer-modified-p) "" "·"))) ;still needs some improvements, does not report Readonly state
(setq-default mode-line-remote '(:eval (let ((s (format-mode-line "%@")))
@ -453,8 +452,15 @@ This is the same as using \\[set-mark-command] with the prefix argument."
;; Use system proxy
(setq url-proxy-services '(("http" . "127.0.0.1:8118")))
(add-to-list 'custom-theme-load-path "/home/jacopods/clones/emacs-color-theme-solarized")
(load-theme 'solarized t)
;;; Stefan Monnier <foo at acm.org>. It is the opposite of fill-paragraph
(defun unfill-paragraph (&optional region)
"Takes a multi-line paragraph and makes it into a single line of text."
(interactive (progn (barf-if-buffer-read-only) '(t)))
(let ((fill-column (point-max))
;; This would override `fill-column' if it's an integer.
(emacs-lisp-docstring-fill-column t))
(fill-paragraph nil region)))
;; * start server named after kde activity name
(setq server-name (kde-current-activity-name))

@ -11,7 +11,7 @@
(setq org-capture-templates
'(("t" "TODO today" entry (file+headline "~/org/notes.org" "Tasks")
"* TODO %?\n %t" :clock-in t :clock-resume t)
"* TODO %?\n SCHEDULED: %t" :clock-in t :clock-resume t)
("T" "TODO" entry (file+headline "~/org/notes.org" "Tasks")
"* TODO %?\n %a" :clock-in t :clock-resume t)
("i" "Idea" entry (file+headline "~/org/notes.org" "Ideas")
@ -26,7 +26,6 @@
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)
;; (setq org-mobile-directory "~/dropbox.utoronto/mobileOrg")
(setq org-agenda-span 1)
;; Separate drawers for clocking and logs
@ -55,23 +54,3 @@
(setq calendar-latitude 43.7)
(setq calendar-longitude -79.4)
(setq calendar-location-name "Toronto, ON Canada")
;; ;; found this in http://blog.zhengdong.me/2012/06/16/org-my-life/
;; (defvar org-mobile-sync-timer nil)
;; (defvar org-mobile-sync-idle-secs (* 60 4))
;; (defun org-mobile-sync ()
;; (interactive)
;; (org-mobile-pull)
;; (org-mobile-push))
;; (defun org-mobile-sync-enable ()
;; "enable mobile org idle sync"
;; (interactive)
;; (setq org-mobile-sync-timer
;; (run-with-idle-timer org-mobile-sync-idle-secs t
;; 'org-mobile-sync)));
;; (defun org-mobile-sync-disable ()
;; "disable mobile org idle sync"
;; (interactive)
;; (cancel-timer org-mobile-sync-timer))
;; (org-mobile-sync-enable)
;; ;; ----------------------------------------------------------

Loading…
Cancel
Save