dotfiles

commit 5a361eeacc91e014848c24196b14d52073363ca7
parent 3bbac3d30530523d637589499d3e22f5e05b0eff
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 15 Jan 2017 14:01:49 +0200

Add glock to lock X. Put org into a use-package call. Stylize a bit.

Diffstat:
M
dotfiles.org
 | 
8
++++++++
M
emacs/myinit.org
 | 
38
+++++++++++++++++++++++---------------

2 files changed, 31 insertions(+), 15 deletions(-)
diff --git a/dotfiles.org b/dotfiles.org
@@ -267,6 +267,14 @@
   pip3i `pip3ls | sed "s#==.*##"`
 #+end_src
 
+**** glock
+
+#+begin_src sh :tangle ~/bin/glock :tangle-mode '#o700'
+  #!/bin/sh
+
+  gnome-screensaver-command --lock
+#+end_src
+
 *** git
 
 **** gitconfig
diff --git a/emacs/myinit.org b/emacs/myinit.org
@@ -48,8 +48,8 @@
   (use-package swiper-helm
     :ensure t
     :config
-    (ivy-mode 1)
-    (setq-default ivy-use-virtual-buffers t)
+      (ivy-mode 1)
+      (setq-default ivy-use-virtual-buffers t)
     :bind
       ("C-r" . counsel-expression-history)
       ("\C-s" . swiper)
@@ -149,19 +149,27 @@ Org bullets makes things look pretty.
   - [ ] org-startup-indented
 
 #+BEGIN_SRC emacs-lisp
-  (setq-default org-confirm-babel-evaluate nil)
-  ; Don't prompt me to confirm every time I want to evaluate a block.
-  (setq-default org-directory "~/foo/orgmode")
-  (setq-default org-default-notes-file
-    (concat org-directory "/notes.org"))
-  (setq-default org-export-html-postamble nil)
-  (setq-default org-hide-leading-stars t)
-  (setq-default org-startup-folded (quote overview))
-  (setq-default org-startup-indented t)
-  (setq-default org-agenda-files "~/.agenda_files")
-
-  (add-hook 'org-babel-after-execute-hook
-    'org-display-inline-images 'append)
+  (use-package org
+    :ensure t
+    :config
+    (setq-default org-confirm-babel-evaluate nil)
+    ; Don't prompt me to confirm every time I want to evaluate a block.
+    (setq-default org-directory "~/foo/orgmode")
+    (setq-default org-default-notes-file
+      (concat org-directory "/notes.org"))
+    (setq-default org-export-html-postamble nil)
+    (setq-default org-hide-leading-stars t)
+    (setq-default org-startup-folded (quote overview))
+    (setq-default org-startup-indented t)
+    (setq-default org-agenda-files "~/.agenda_files")
+
+    (add-hook 'org-babel-after-execute-hook
+      'org-display-inline-images 'append)
+
+    (defun org-babel-tangle-block ()
+      (interactive)
+      (let ((current-prefix-arg '(4)))
+        (call-interactively 'org-babel-tangle))))
 #+END_SRC
 
 *** org-ref