Updates
authorJoerg Jaspert <joerg@debian.org>
Sun, 1 Jun 2014 21:59:34 +0000 (23:59 +0200)
committerJoerg Jaspert <joerg@debian.org>
Sun, 1 Jun 2014 21:59:34 +0000 (23:59 +0200)
.emacs.d/config/emacs.org
.emacs.d/elisp/local/ganneff.el
.emacs.d/elisp/local/loaddefs.el
.emacs.d/elisp/local/magit-simple-keys.el [deleted file]

index 9b2736c..059ee60 100644 (file)
@@ -1292,7 +1292,10 @@ dired-single to the rescue.
           :ensure runner)
 
         (use-package dired+
-          :ensure dired+)
+          :ensure dired+
+          :init
+          (progn
+            (setq diredp-hide-details-initially-flag nil)))
 
         (use-package dired-single
           :ensure dired-single
@@ -1382,7 +1385,14 @@ dired-single to the rescue.
     (bind-key "C-c J" 'dired-double-jump)))
 
 #+END_SRC
-
+** discover-my-major
+[2014-06-01 Sun 23:32]
+Discover key bindings and their meaning for the current Emacs major mode.
+#+BEGIN_SRC emacs-lisp :tangle yes
+(use-package discover-my-major
+  :ensure discover-my-major
+  :bind ("C-h C-m" . discover-my-major))
+#+END_SRC
 ** easypg
 EasyPG is a GnuPG interface for Emacs.
 #+BEGIN_SRC emacs-lisp :tangle yes
@@ -1596,10 +1606,8 @@ Proper whitespace handling
   :diminish (ethan-wspace-mode . "ew")
   :init
   (global-ethan-wspace-mode 1))
-
-
-
 #+END_SRC
+
 ** expand-region
 [2014-06-01 Sun 15:16]
 #+BEGIN_SRC emacs-lisp :tangle yes
index 51c7f74..833cafa 100644 (file)
@@ -268,6 +268,20 @@ This functions should be added to the hooks of major modes for programming."
       (indent-region beg end-mark nil)
       (align beg end-mark))))
 
+;;;###autoload
+ (defun insert-date (prefix)
+    "Insert the current date. With prefix-argument, use ISO format. With
+   two prefix arguments, write out the day and month name."
+    (interactive "P")
+    (let ((format (cond
+                   ((not prefix) "%d.%m.%Y")
+                   ((equal prefix '(4)) "%Y-%m-%d")
+                   ((equal prefix '(16)) "%A, %d. %B %Y")
+                   ((equal prefix '(64)) "%Y-%m-%dT%H:%M:%S.%3N")
+                   ))
+          (system-time-locale "de_DE"))
+      (insert (format-time-string format))))
+
 (provide 'ganneff)
 
 ;;; ganneff.el ends here
index c296f76..d5d6ffa 100644 (file)
@@ -1975,19 +1975,20 @@ Configure flymake mode to check the current buffer's css syntax.
 
 ;;;***
 \f
-;;;### (autoloads nil "ganneff" "ganneff.el" (21037 59737 0 0))
+;;;### (autoloads nil "ganneff" "ganneff.el" (21384 28184 770775
+;;;;;;  56000))
 ;;; Generated autoloads from ganneff.el
 
-(autoload 'my-dired-init "ganneff" "\
-Bunch of stuff to run for dired when it's loaded.
-
-\(fn)" nil nil)
-
 (autoload 'ido-disable-line-trucation "ganneff" "\
 
 
 \(fn)" nil nil)
 
+(autoload 'match-paren "ganneff" "\
+Go to the matching parenthesis if on parenthesis otherwise insert %.
+
+\(fn ARG)" t nil)
+
 (autoload 'sacha/isearch-yank-current-word "ganneff" "\
 Pull current word from buffer into search string.
 
@@ -2115,6 +2116,17 @@ Replace a region with the same contents, only URL decoded.
 
 \(fn START END)" t nil)
 
+(autoload 'align-code "ganneff" "\
+
+
+\(fn BEG END &optional ARG)" t nil)
+
+(autoload 'insert-date "ganneff" "\
+Insert the current date. With prefix-argument, use ISO format. With
+   two prefix arguments, write out the day and month name.
+
+\(fn PREFIX)" t nil)
+
 ;;;***
 \f
 ;;;### (autoloads nil "ganneff-gnus" "ganneff-gnus.el" (20899 48839
@@ -2280,29 +2292,8 @@ Open a summary buffer containing the current notmuch article.
 
 ;;;***
 \f
-;;;### (autoloads (org-mycal-export mycal-export-limit org-mycal-export-limit
-;;;;;;  bh/save-then-publish bh/display-inline-images bh/view-next-project
-;;;;;;  bh/get-pom-from-agenda-restriction-or-point bh/set-agenda-restriction-lock
-;;;;;;  bh/clock-in-last-task bh/clock-out-maybe bh/clock-in-organization-task-as-default
-;;;;;;  bh/clock-in-parent-task bh/clock-in-default-task bh/punch-out
-;;;;;;  bh/punch-in bh/find-project-task bh/clock-in-to-next bh/narrow-to-project
-;;;;;;  bh/narrow-to-org-project bh/narrow-up-one-level bh/narrow-up-one-org-level
-;;;;;;  bh/narrow-to-subtree bh/narrow-to-org-subtree bh/restrict-to-file-or-follow
-;;;;;;  bh/org-agenda-to-appt bh/skip-non-subprojects bh/skip-projects-and-habits
-;;;;;;  bh/skip-project-tasks-maybe bh/skip-projects-and-habits-and-single-tasks
-;;;;;;  bh/skip-project-trees-and-habits bh/skip-non-projects bh/skip-non-stuck-projects
-;;;;;;  bh/skip-stuck-projects bh/list-sublevels-for-projects bh/list-sublevels-for-projects-indented
-;;;;;;  bh/is-subproject-p bh/is-task-p bh/is-project-subtree-p bh/is-project-p
-;;;;;;  org-my-archive-done-tasks bh/phone-call bh/prepare-meeting-notes
-;;;;;;  bh/remove-empty-drawer-on-clock-out bh/insert-heading-inactive-timestamp
-;;;;;;  bh/insert-inactive-timestamp bh/widen bh/org-todo bh/switch-to-scratch
-;;;;;;  bh/make-org-scratch bh/skip-non-archivable-tasks bh/set-truncate-lines
-;;;;;;  bh/hide-other bh/is-scheduled-late bh/is-scheduled-today
-;;;;;;  bh/is-scheduled bh/is-deadline bh/is-pending-deadline bh/is-late-deadline
-;;;;;;  bh/is-due-deadline bh/is-not-scheduled-or-deadline bh/agenda-sort
-;;;;;;  bh/agenda-sort-test-num bh/agenda-sort-test bh/verify-refile-target
-;;;;;;  bh/show-org-agenda) "ganneff-org" "ganneff-org.el" (20879
-;;;;;;  28085 514011 628000))
+;;;### (autoloads nil "ganneff-org" "ganneff-org.el" (21044 6542
+;;;;;;  817600 508000))
 ;;; Generated autoloads from ganneff-org.el
 
 (autoload 'bh/show-org-agenda "ganneff-org" "\
@@ -2647,6 +2638,11 @@ Limit the export to items that don't match an unwanted category
 
 \(fn)" t nil)
 
+(autoload 'jj/punch-in-hw "ganneff-org" "\
+Start clocking the hwmigration task
+
+\(fn ARG)" t nil)
+
 ;;;***
 \f
 ;;;### (autoloads (gnus-alias-determine-identity gnus-alias-use-identity
@@ -2757,9 +2753,8 @@ Completion is available for the keymap name.
 
 ;;;***
 \f
-;;;### (autoloads (highlight-indentation-current-column-mode highlight-indentation-set-offset
-;;;;;;  highlight-indentation-mode) "highlight-indentation" "highlight-indentation.el"
-;;;;;;  (20859 59673 185323 424000))
+;;;### (autoloads nil "highlight-indentation" "highlight-indentation.el"
+;;;;;;  (21286 762 0 0))
 ;;; Generated autoloads from highlight-indentation.el
 
 (autoload 'highlight-indentation-mode "highlight-indentation" "\
@@ -2899,6 +2894,83 @@ An advice using `ido-better-flex' for IDO matching." (setq ad-return-value (ido-
 
 ;;;***
 \f
+;;;### (autoloads nil "inf-ruby" "inf-ruby.el" (21228 61058 260804
+;;;;;;  592000))
+;;; Generated autoloads from inf-ruby.el
+
+(defvar ruby-source-modes '(ruby-mode enh-ruby-mode) "\
+Used to determine if a buffer contains Ruby source code.
+If it's loaded into a buffer that is in one of these major modes, it's
+considered a ruby source file by `ruby-load-file'.
+Used by these commands to determine defaults.")
+
+(autoload 'inf-ruby-setup-keybindings "inf-ruby" "\
+Hook up `inf-ruby-minor-mode' to each of `ruby-source-modes'.
+
+\(fn)" nil nil)
+
+(autoload 'inf-ruby-minor-mode "inf-ruby" "\
+Minor mode for interacting with the inferior process buffer.
+
+The following commands are available:
+
+\\{inf-ruby-minor-mode-map}
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'inf-ruby "inf-ruby" "\
+Run an inferior Ruby process in a buffer.
+With prefix argument, prompts for which Ruby implementation
+\(from the list `inf-ruby-implementations') to use.  Runs the
+hooks `inf-ruby-mode-hook' (after the `comint-mode-hook' is
+run).
+
+\(fn &optional IMPL)" t nil)
+
+(autoload 'run-ruby "inf-ruby" "\
+Run an inferior Ruby process, input and output via buffer `*NAME*'.
+If there is a process already running in `*NAME*', switch to that buffer.
+
+NAME defaults to \"ruby\". COMMAND defaults to the default entry
+in `inf-ruby-implementations'.
+
+\(Type \\[describe-mode] in the process buffer for the list of commands.)
+
+\(fn &optional COMMAND NAME)" t nil)
+
+(autoload 'inf-ruby-switch-setup "inf-ruby" "\
+Modify `rspec-compilation-mode' and `ruby-compilation-mode'
+keymaps to bind `inf-ruby-switch-from-compilation' to `ะก-x C-q'.
+
+\(fn)" nil nil)
+
+(autoload 'inf-ruby-console-auto "inf-ruby" "\
+Run the appropriate Ruby console command.
+The command and and the directory to run it from are detected
+automatically.
+
+\(fn)" t nil)
+
+(autoload 'inf-ruby-console-rails "inf-ruby" "\
+Run Rails console in DIR.
+
+\(fn DIR)" t nil)
+
+(autoload 'inf-ruby-console-gem "inf-ruby" "\
+Run IRB console for the gem in DIR.
+The main module should be loaded automatically.  If DIR contains a
+Gemfile, it should use the `gemspec' instruction.
+
+\(fn DIR)" t nil)
+
+(autoload 'inf-ruby-console-default "inf-ruby" "\
+Run racksh, custom console.rb, or just IRB, in DIR.
+
+\(fn DIR)" t nil)
+ (dolist (mode ruby-source-modes) (add-hook (intern (format "%s-hook" mode)) 'inf-ruby-minor-mode))
+
+;;;***
+\f
 ;;;### (autoloads (json-mode) "json-mode" "json-mode.el" (20858 49922
 ;;;;;;  477891 208000))
 ;;; Generated autoloads from json-mode.el
@@ -3316,6 +3388,28 @@ Major mode for editing Lua code.
 
 ;;;***
 \f
+;;;### (autoloads nil "magit-filenotify" "magit-filenotify.el" (21359
+;;;;;;  23649 0 0))
+;;; Generated autoloads from magit-filenotify.el
+
+(autoload 'magit-filenotify-mode "magit-filenotify" "\
+Refresh status buffer if source tree changes.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+\f
+;;;### (autoloads nil "magit-find-file" "magit-find-file.el" (21359
+;;;;;;  23648 0 0))
+;;; Generated autoloads from magit-find-file.el
+
+(autoload 'magit-find-file-completing-read "magit-find-file" "\
+Uses a completing read to open a file from git ls-files
+
+\(fn)" t nil)
+
+;;;***
+\f
 ;;;### (autoloads (gfm-mode markdown-mode) "markdown-mode" "markdown-mode.el"
 ;;;;;;  (20858 49922 485891 248000))
 ;;; Generated autoloads from markdown-mode.el
@@ -3428,6 +3522,86 @@ more convenient. These commands are available from the main menu
 
 ;;;***
 \f
+;;;### (autoloads nil "mic-paren" "mic-paren.el" (21371 48996 661720
+;;;;;;  507000))
+;;; Generated autoloads from mic-paren.el
+
+(autoload 'paren-activate "mic-paren" "\
+Activate mic-paren parenthesis highlighting.
+Note: This also deactivates the paren.el
+and stig-paren.el packages if they are active!
+
+The following options are available via the customize-feature:
+  `paren-priority'
+  `paren-overlay-priority'
+  `paren-sexp-mode'
+  `paren-highlight-at-point'
+  `paren-highlight-offscreen'
+  `paren-display-message'
+  `paren-message-linefeed-display'
+  `paren-message-no-match'
+  `paren-message-show-linenumber'
+  `paren-message-truncate-lines'
+  `paren-ding-unmatched'
+  `paren-delay'
+  `paren-dont-touch-blink'
+  `paren-match-face'
+  `paren-mismatch-face'
+  `paren-no-match-face'
+  `paren-bind-modified-sexp-functions'
+
+The following options are settable via toggling functions (look at the
+documentation of these options for the names of these functions):
+  `paren-match-quoted-paren'
+  `paren-match-paired-delimiter'
+  `paren-open-paren-context-backward'
+
+\(fn)" t nil)
+
+(autoload 'paren-deactivate "mic-paren" "\
+Deactivate mic-paren parenthesis highlighting.
+
+\(fn)" t nil)
+
+(autoload 'paren-toggle-matching-paired-delimiter "mic-paren" "\
+Toggle matching paired delimiter.
+Force on with positive ARG.  Use this in mode hooks to activate or
+deactivate paired delimiter matching.  If optional second argument
+NO-MESSAGE is non-nil then don't display a message about the
+current activation state of the paired-delimiter-matching feature.
+
+\(fn ARG &optional NO-MESSAGE)" t nil)
+
+(autoload 'paren-toggle-matching-quoted-paren "mic-paren" "\
+Toggle matching quoted parens.
+Force on with positive ARG.  Use this in mode hooks to activate or
+deactivate quoted paren matching.  If optional second argument
+NO-MESSAGE is non-nil then don't display a message about the
+current activation state of the quoted-paren-matching feature.
+
+\(fn ARG &optional NO-MESSAGE)" t nil)
+
+(autoload 'paren-toggle-open-paren-context "mic-paren" "\
+Toggle whether or not to determine context of the matching open-paren.
+Force backward context with positive ARG.  Use this in mode-hooks.
+See `paren-open-paren-context-backward'.
+
+\(fn ARG)" t nil)
+
+(autoload 'paren-forward-sexp "mic-paren" "\
+Act like `forward-sexp' but also handle quoted parens.
+See `paren-match-quoted-paren'.
+
+\(fn &optional ARG)" t nil)
+
+(autoload 'paren-backward-sexp "mic-paren" "\
+Act like `backward-sexp' but also match quoted parens.
+See `paren-match-quoted-paren'.
+
+\(fn &optional ARG)" t nil)
+
+;;;***
+\f
 ;;;### (autoloads (miniedit-install-for-xemacs miniedit-install miniedit
 ;;;;;;  miniedit-new-features miniedit-commentary miniedit-introduction
 ;;;;;;  miniedit-quick-start) "miniedit" "miniedit.el" (20858 49922
@@ -3608,6 +3782,17 @@ The list is displayed in a buffer named `*Register List*' in
 
 ;;;***
 \f
+;;;### (autoloads nil "ruby-hash-syntax" "ruby-hash-syntax.el" (21228
+;;;;;;  61058 260804 592000))
+;;; Generated autoloads from ruby-hash-syntax.el
+
+(autoload 'ruby-toggle-hash-syntax "ruby-hash-syntax" "\
+Toggle syntax of ruby hash literal in region from BEG to END between ruby 1.8 and 1.9 styles.
+
+\(fn BEG END)" t nil)
+
+;;;***
+\f
 ;;;### (autoloads (turn-off-screen-lines-mode turn-on-screen-lines-mode
 ;;;;;;  screen-lines-mode) "screen-lines" "screen-lines.el" (20858
 ;;;;;;  49922 501891 327000))
@@ -3631,6 +3816,32 @@ Turn off Screen Lines minor mode for the current buffer.
 
 ;;;***
 \f
+;;;### (autoloads nil "sh-toggle" "sh-toggle.el" (21369 2951 0 0))
+;;; Generated autoloads from sh-toggle.el
+
+(autoload 'shell-toggle-cd "sh-toggle" "\
+Calls `shell-toggle' with a prefix argument.
+See the command `shell-toggle'
+
+\(fn)" t nil)
+
+(autoload 'shell-toggle "sh-toggle" "\
+Toggles between the *shell* buffer and the current buffer.
+With a prefix ARG also insert a \"cd DIR\" command into the shell,
+where DIR is the directory of the current buffer.
+
+Call twice in a row to get a full screen window for the *shell*
+buffer.
+
+When called in the *shell* buffer returns you to the buffer you were
+editing before caling the first time.
+
+Options: `shell-toggle-goto-eob'
+
+\(fn MAKE-CD)" t nil)
+
+;;;***
+\f
 ;;;### (autoloads nil "solarized" "solarized.el" (20894 2195 0 0))
 ;;; Generated autoloads from solarized.el
 
@@ -3844,9 +4055,9 @@ Simple mode to edit YAML.
 ;;;### (autoloads nil nil ("beamer.el" "bind-key.el" "buildd-gnus.el"
 ;;;;;;  "crypt++.el" "dash.el" "filladapt.el" "flymake-easy.el" "ldap-mode.el"
 ;;;;;;  "mingus-stays-home.el" "mingus.el" "moinmoin-mode.el" "nnir.el"
-;;;;;;  "nntodo.el" "randomsig.el" "region-bindings-mode.el" "s.el"
-;;;;;;  "typing.el" "use-package.el" "volatile-highlights.el") (21005
-;;;;;;  64428 273215 312000))
+;;;;;;  "nntodo.el" "puppet-ext.el" "randomsig.el" "region-bindings-mode.el"
+;;;;;;  "s.el" "smartscan.el" "typing.el" "use-package.el" "volatile-highlights.el"
+;;;;;;  "yafolding.el") (21387 41519 637747 783000))
 
 ;;;***
 \f
diff --git a/.emacs.d/elisp/local/magit-simple-keys.el b/.emacs.d/elisp/local/magit-simple-keys.el
deleted file mode 100644 (file)
index cd7690d..0000000
+++ /dev/null
@@ -1,59 +0,0 @@
-;;; magit-simple-keys.el --- simple keybindings for Magit
-
-;; Copyright (C) 2011 Ramkumar Ramachandra
-;; Version: 1.0.0
-;; Adapted-by: Phil Hagelberg
-;; Package-Requires: ((magit "1.0.0"))
-;;
-;; Magit is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
-;;
-;; Magit is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public
-;; License for more details.
-;;
-;; You should have received a copy of the GNU General Public License
-;; along with Magit.  If not, see <http://www.gnu.org/licenses/>.
-
-;;; Commentary:
-
-;; This plug-in overrides the keybindings in magit-key-mode with
-;; simpler keybindings; it does this by picking the most obviously
-;; used command in each key group
-
-;;; Code:
-
-(require 'magit)
-
-(defvar magit-key-mode-mapping
-  '((logging magit-display-log)
-    (running magit-shell-command)
-    (fetching magit-fetch-current)
-    (pushing magit-push)
-    (pulling magit-pull)
-    (branching magit-checkout)
-    (tagging magit-tag)
-    (stashing magit-stash)
-    (merging magit-merge)
-    (submodule magit-submodule-update)))
-
-(defun magit-key-mode-generate (term mapping-function)
-  "Generate alias for the key-group term"
-  (eval
-   `(defalias ',(intern (concat "magit-key-mode-popup-" (symbol-name term)))
-       mapping-function)))
-
-;; generate the aliases using the mapping in key-mode-mapping
-(mapc (lambda (g)
-        (magit-key-mode-generate (car g) (cadr g)))
-      magit-key-mode-mapping)
-
-;;;###autoload
-(eval-after-load 'magit
-  '(require 'magit-simple-keys))
-
-(provide 'magit-simple-keys)
-;;; magit-simple-keys.el ends here