dns-rndc: do rndc reload of current buffers filename.

rebinding keys in cfengine3-mode and dns-mode.

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/elpa/archives/gnu/archive-contents b/elpa/archives/gnu/archive-contents
index e20ff3afcd718e73ff2507dba80312c2dd84cdbf..e2f33a5d050161a8348fefb1faff81bb5fa9721d 100644 (file)
--- a/elpa/archives/gnu/archive-contents
+++ b/elpa/archives/gnu/archive-contents
@@ -2,56 +2,70 @@
  (ack .
       [(1 3)
        nil "Interface to ack-like source code search tools" tar
-       ((:keywords "tools" "processes" "convenience")
+       ((:keywords quote
+                  ("tools" "processes" "convenience"))
        (:url . "https://github.com/leoliu/ack-el"))])
  (ada-mode .
-          [(5 0)
+          [(5 0 1)
            ((wisi
              (1 0)))
            "major-mode for editing Ada sources" tar
-           ((:url . "http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html"))])
+           ((:keywords quote nil)
+            (:url . "http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html"))])
  (adaptive-wrap .
                [(0 5)
                 nil "Smart line-wrapping with wrap-prefix" single
                 ((:url . "http://elpa.gnu.org/packages/adaptive-wrap.html")
-                 (:keywords))])
+                 (:keywords quote nil))])
  (adjust-parens .
                [(3 0)
                 nil "Indent and dedent Lisp code, automatically adjust close parens" tar
-                ((:url . "http://elpa.gnu.org/packages/adjust-parens.html"))])
+                ((:keywords quote nil)
+                 (:url . "http://elpa.gnu.org/packages/adjust-parens.html"))])
  (all .
       [(1 0)
        nil "Edit all lines matching a given regexp" single
        ((:url . "http://elpa.gnu.org/packages/all.html")
-       (:keywords "matching"))])
+       (:keywords quote
+                  ("matching")))])
+ (ascii-art-to-unicode .
+                      [(1 4)
+                       nil "a small artist adjunct" single
+                       ((:url . "http://elpa.gnu.org/packages/ascii-art-to-unicode.html")
+                        (:keywords quote nil))])
  (auctex .
-        [(11 87 2)
+        [(11 87 3)
          nil "Integrated environment for *TeX*" tar
-         ((:url . "http://www.gnu.org/software/auctex/"))])
+         ((:keywords quote nil)
+          (:url . "http://www.gnu.org/software/auctex/"))])
  (cl-lib .
-        [(0 3)
+        [(0 5)
          nil "Properly prefixed CL functions and macros" single
          ((:url . "http://elpa.gnu.org/packages/cl-lib.html")
-          (:keywords))])
+          (:keywords quote nil))])
  (coffee-mode .
              [(0 4 1 1)
               nil "Major mode for CoffeeScript files" single
               ((:url . "http://github.com/defunkt/coffee-mode")
-               (:keywords "CoffeeScript major mode"))])
+               (:keywords quote
+                          ("coffeescript" "major" "mode")))])
  (company .
-         [(0 6 12)
+         [(0 7)
           nil "Modular in-buffer completion framework" tar
-          ((:keywords "abbrev" "convenience" "matching")
+          ((:keywords quote
+                      ("abbrev" "convenience" "matching"))
            (:url . "http://company-mode.github.io/"))])
  (csv-mode .
           [(1 2)
            nil "Major mode for editing comma/char separated values" single
            ((:url . "http://centaur.maths.qmul.ac.uk/Emacs/")
-            (:keywords "convenience"))])
+            (:keywords quote
+                       ("convenience")))])
  (debbugs .
-         [(0 5)
+         [(0 6)
           nil "SOAP library to access debbugs servers" tar
-          ((:keywords "comm" "hypermedia")
+          ((:keywords quote
+                      ("comm" "hypermedia"))
            (:url . "http://elpa.gnu.org/packages/debbugs.html"))])
  (dict-tree .
            [(0 12 8)
@@ -63,220 +77,259 @@
               (0 3)))
             "Dictionary data structure" single
             ((:url . "http://www.dr-qubit.org/emacs.php")
-             (:keywords "extensions" "matching" "data structures"))])
+             (:keywords quote
+                        ("extensions" "matching" "data structures trie" "tree" "dictionary" "completion" "regexp")))])
  (diff-hl .
-         [(1 5 1)
+         [(1 5 3)
           ((cl-lib
             (0 2)))
           "Highlight uncommitted changes" tar
-          ((:keywords "vc" "diff")
+          ((:keywords quote
+                      ("vc" "diff"))
            (:url . "https://github.com/dgutov/diff-hl"))])
  (dismal .
         [(1 5)
          ((cl-lib
            (0)))
          "Dis Mode Ain't Lotus: Spreadsheet program Emacs" tar
-         ((:url . "http://elpa.gnu.org/packages/dismal.html"))])
+         ((:keywords quote nil)
+          (:url . "http://elpa.gnu.org/packages/dismal.html"))])
  (djvu .
        [(0 5)
        nil "Edit and view Djvu files via djvused" single
        ((:url . "http://elpa.gnu.org/packages/djvu.html")
-        (:keywords "files" "wp"))])
+        (:keywords quote
+                   ("files" "wp")))])
  (docbook .
          [(0 1)
           nil "Info-like viewer for DocBook" single
           ((:url . "http://elpa.gnu.org/packages/docbook.html")
-           (:keywords "docs" "help"))])
+           (:keywords quote
+                      ("docs" "help")))])
  (ediprolog .
            [(1 0)
             nil "Emacs Does Interactive Prolog" single
             ((:url . "http://elpa.gnu.org/packages/ediprolog.html")
-             (:keywords "languages" "processes"))])
+             (:keywords quote
+                        ("languages" "processes")))])
  (eldoc-eval .
             [(0 1)
              nil "Enable eldoc support when minibuffer is in use." single
              ((:url . "http://elpa.gnu.org/packages/eldoc-eval.html")
-              (:keywords))])
+              (:keywords quote nil))])
  (enwc .
        [(1 0)
        nil "The Emacs Network Client" tar
-       ((:keywords "enwc" "network" "wicd" "manager" "nm")
+       ((:keywords quote
+                   ("enwc" "network" "wicd" "manager" "nm"))
         (:url . "http://elpa.gnu.org/packages/enwc.html"))])
  (epoch-view .
             [(0 0 1)
              nil "Minor mode to visualize epoch timestamps" single
              ((:url . "http://elpa.gnu.org/packages/epoch-view.html")
-              (:keywords "data" "timestamp" "epoch" "unix"))])
+              (:keywords quote
+                         ("data" "timestamp" "epoch" "unix")))])
  (f90-interface-browser .
                        [(1 1)
                         nil "Parse and browse f90 interfaces" single
                         ((:url . "http://github.com/wence-/f90-iface/")
-                         (:keywords))])
+                         (:keywords quote nil))])
  (flylisp .
          [(0 2)
           nil "Color unbalanced parentheses and parentheses inconsistent with indentation" single
           ((:url . "http://elpa.gnu.org/packages/flylisp.html")
-           (:keywords))])
+           (:keywords quote nil))])
  (ggtags .
-        [(0 7 8)
+        [(0 7 12)
          ((emacs
            (24)))
          "emacs frontend to GNU Global source code tagging system" single
          ((:url . "https://github.com/leoliu/ggtags")
-          (:keywords "tools" "convenience"))])
+          (:keywords quote
+                     ("tools" "convenience")))])
+ (gnugo .
+       [(2 3 1)
+        nil "play GNU Go in a buffer" tar
+        ((:keywords quote nil)
+         (:url . "http://elpa.gnu.org/packages/gnugo.html"))])
  (heap .
        [(0 3)
        nil "Heap (a.k.a. priority queue) data structure" single
        ((:url . "http://www.dr-qubit.org/emacs.php")
-        (:keywords "extensions" "data structures" "heap" "priority queue"))])
+        (:keywords quote
+                   ("extensions" "data structures" "heap" "priority queue")))])
  (ioccur .
         [(2 4)
          nil "Incremental occur" single
          ((:url . "http://elpa.gnu.org/packages/ioccur.html")
-          (:keywords))])
+          (:keywords quote nil))])
  (jgraph-mode .
              [(1 0)
               nil "Major mode for Jgraph files" single
               ((:url . "http://elpa.gnu.org/packages/jgraph-mode.html")
-               (:keywords "tex" "wp"))])
+               (:keywords quote
+                          ("tex" "wp")))])
  (js2-mode .
           [(20140114)
            ((emacs
              (24 1)))
            "Improved JavaScript editing mode" tar
-           ((:keywords "languages" "javascript")
+           ((:keywords quote
+                       ("languages" "javascript"))
             (:url . "https://github.com/mooz/js2-mode/"))])
  (jumpc .
        [(3 0)
         nil "jump to previous insertion points" single
         ((:url . "http://elpa.gnu.org/packages/jumpc.html")
-         (:keywords))])
+         (:keywords quote nil))])
  (lex .
       [(1 1)
        nil "Lexical analyser construction" tar
-       ((:url . "http://elpa.gnu.org/packages/lex.html"))])
+       ((:keywords quote nil)
+       (:url . "http://elpa.gnu.org/packages/lex.html"))])
  (lmc .
-      [(1 2)
+      [(1 3)
        nil "Little Man Computer in Elisp" single
        ((:url . "http://elpa.gnu.org/packages/lmc.html")
-       (:keywords))])
+       (:keywords quote nil))])
  (load-dir .
           [(0 0 3)
            nil "Load all Emacs Lisp files in a given directory" single
            ((:url . "http://elpa.gnu.org/packages/load-dir.html")
-            (:keywords "lisp" "files" "convenience"))])
+            (:keywords quote
+                       ("lisp" "files" "convenience")))])
  (markchars .
            [(0 2 0)
             nil "Mark chars fitting certain characteristics" single
             ((:url . "http://elpa.gnu.org/packages/markchars.html")
-             (:keywords))])
+             (:keywords quote nil))])
  (memory-usage .
               [(0 2)
                nil "Analyze the memory usage of Emacs in various ways" single
                ((:url . "http://elpa.gnu.org/packages/memory-usage.html")
-                (:keywords "maint"))])
+                (:keywords quote
+                           ("maint")))])
  (minimap .
-         [(1 0)
+         [(1 1)
           nil "Sidebar showing a \"mini-map\" of a buffer" single
           ((:url . "http://elpa.gnu.org/packages/minimap.html")
-           (:keywords))])
+           (:keywords quote nil))])
  (muse .
        [(3 20)
        nil "Authoring and publishing tool for Emacs" tar
-       ((:keywords "hypermedia")
+       ((:keywords quote
+                   ("hypermedia"))
         (:url . "http://mwolson.org/projects/EmacsMuse.html"))])
  (nhexl-mode .
             [(0 1)
              nil "Minor mode to edit files via hex-dump format" single
              ((:url . "http://elpa.gnu.org/packages/nhexl-mode.html")
-              (:keywords "data"))])
+              (:keywords quote
+                         ("data")))])
  (nlinum .
         [(1 2)
          nil "Show line numbers in the margin" single
          ((:url . "http://elpa.gnu.org/packages/nlinum.html")
-          (:keywords "convenience"))])
+          (:keywords quote
+                     ("convenience")))])
  (notes-mode .
             [(1 30)
              nil "Indexing system for on-line note-taking" tar
-             ((:url . "http://elpa.gnu.org/packages/notes-mode.html"))])
+             ((:keywords quote nil)
+              (:url . "http://elpa.gnu.org/packages/notes-mode.html"))])
  (num3-mode .
-           [(1 1)
+           [(1 2)
             nil "highlight groups of digits in long numbers" single
             ((:url . "http://elpa.gnu.org/packages/num3-mode.html")
-             (:keywords))])
+             (:keywords quote
+                        ("faces" "minor-mode")))])
  (oauth2 .
-        [(0 9)
+        [(0 10)
          nil "OAuth 2.0 Authorization Protocol" single
          ((:url . "http://elpa.gnu.org/packages/oauth2.html")
-          (:keywords "comm"))])
+          (:keywords quote
+                     ("comm")))])
  (omn-mode .
           [(1 0)
            nil "Support for OWL Manchester Notation" single
            ((:url . "http://elpa.gnu.org/packages/omn-mode.html")
-            (:keywords))])
+            (:keywords quote nil))])
  (org .
-      [(20140113)
+      [(20140303)
        nil "Outline-based notes management and organizer" tar nil])
  (quarter-plane .
                [(0 1)
                 nil "Minor mode for quarter-plane style editing" single
                 ((:url . "http://elpa.gnu.org/packages/quarter-plane.html")
-                 (:keywords "convenience wp"))])
+                 (:keywords quote
+                            ("convenience" "wp")))])
  (queue .
        [(0 1)
         nil "Queue data structure" single
         ((:url . "http://www.dr-qubit.org/emacs.php")
-         (:keywords "extensions" "data structures" "queue"))])
+         (:keywords quote
+                    ("extensions" "data structures" "queue")))])
  (rainbow-mode .
               [(0 9)
                nil "Colorize color names in buffers" single
                ((:url . "http://elpa.gnu.org/packages/rainbow-mode.html")
-                (:keywords "faces"))])
+                (:keywords quote
+                           ("faces")))])
  (register-list .
                [(0 1)
                 nil "Interactively list/edit registers" single
                 ((:url . "http://elpa.gnu.org/packages/register-list.html")
-                 (:keywords "register"))])
+                 (:keywords quote
+                            ("register")))])
  (shen-mode .
            [(0 1)
             nil "A major mode for editing shen source code" tar
-            ((:keywords "languages" "shen")
+            ((:keywords quote
+                        ("languages" "shen"))
              (:url . "http://elpa.gnu.org/packages/shen-mode.html"))])
  (sisu-mode .
            [(3 0 3)
             nil "Major mode for SiSU markup text" single
             ((:url . "http://elpa.gnu.org/packages/sisu-mode.html")
-             (:keywords "text" "processes" "tools"))])
+             (:keywords quote
+                        ("text" "processes" "tools")))])
  (smart-operator .
                 [(4 0)
                  nil "Insert operators with surrounding spaces smartly" single
                  ((:url . "http://xwl.appspot.com/ref/smart-operator.el")
-                  (:keywords))])
+                  (:keywords quote nil))])
  (sml-mode .
           [(6 4)
            nil "Major mode for editing (Standard) ML" single
            ((:url . "http://elpa.gnu.org/packages/sml-mode.html")
-            (:keywords "SML"))])
+            (:keywords quote
+                       ("sml")))])
  (sokoban .
-         [(1 0 4)
-          nil "Sokoban game for emacs" tar nil])
+         [(1 4)
+          nil "Implementation of Sokoban for Emacs." tar
+          ((:keywords quote
+                      ("games"))
+           (:url . "http://elpa.gnu.org/packages/sokoban.html"))])
  (svg-clock .
            [(0 5)
             nil "Analog clock using Scalable Vector Graphics" single
             ((:url . "http://elpa.gnu.org/packages/svg-clock.html")
-             (:keywords "demo" "svg" "clock"))])
+             (:keywords quote
+                        ("demo" "svg" "clock")))])
  (tNFA .
        [(0 1 1)
        ((queue
          (0 1)))
        "Tagged non-deterministic finite-state automata" single
        ((:url . "http://www.dr-qubit.org/emacs.php")
-        (:keywords "extensions" "matching" "data structures"))])
+        (:keywords quote
+                   ("extensions" "matching" "data structures tnfa" "nfa" "dfa" "finite state automata" "automata" "regexp")))])
  (temp-buffer-browse .
-                    [(1 1)
+                    [(1 2)
                      nil "temp buffer browse mode" single
                      ((:url . "http://elpa.gnu.org/packages/temp-buffer-browse.html")
-                      (:keywords "convenience"))])
+                      (:keywords quote
+                                 ("convenience")))])
  (trie .
        [(0 2 6)
        ((tNFA
@@ -285,53 +338,64 @@
          (0 3)))
        "Trie data structure" single
        ((:url . "http://www.dr-qubit.org/emacs.php")
-        (:keywords "extensions" "matching" "data structures"))])
+        (:keywords quote
+                   ("extensions" "matching" "data structures trie" "ternary search tree" "tree" "completion" "regexp")))])
  (undo-tree .
            [(0 6 5)
             nil "Treat undo history as a tree" single
             ((:url . "http://www.dr-qubit.org/emacs.php")
-             (:keywords "convenience" "files" "undo" "redo" "history" "tree"))])
+             (:keywords quote
+                        ("convenience" "files" "undo" "redo" "history" "tree")))])
  (uni-confusables .
                  [(0 1)
-                  nil "Unicode confusables table" tar nil])
+                  nil "Unicode confusables table" tar
+                  ((:keywords quote nil)
+                   (:url . "http://elpa.gnu.org/packages/uni-confusables.html"))])
  (vlf .
-      [(1 2)
-       nil "View Large Files" single
-       ((:url . "https://github.com/m00natic/vlfi")
-       (:keywords "large files" "utilities"))])
+      [(1 5)
+       nil "View Large Files" tar
+       ((:keywords quote
+                  ("large files" "utilities"))
+       (:url . "https://github.com/m00natic/vlfi"))])
  (w3 .
      [(4 0 49)
       nil "Fully customizable, largely undocumented web browser for Emacs" tar
-      ((:keywords "faces" "help" "comm" "news" "mail" "processes" "mouse" "hypermedia")
+      ((:keywords quote
+                 ("faces" "help" "comm" "news" "mail" "processes" "mouse" "hypermedia"))
        (:url . "http://elpa.gnu.org/packages/w3.html"))])
  (websocket .
            [(1 1)
             nil "Emacs WebSocket client and server" tar
-            ((:keywords "Communication" "Websocket" "Server")
+            ((:keywords quote
+                        ("communication" "websocket" "server"))
              (:url . "http://elpa.gnu.org/packages/websocket.html"))])
  (windresize .
             [(0 1)
              nil "Resize windows interactively" single
              ((:url . "http://elpa.gnu.org/packages/windresize.html")
-              (:keywords "window"))])
+              (:keywords quote
+                         ("window")))])
  (wisi .
        [(1 0)
        ((cl-lib
          (0)))
        "Utilities for implementing an indentation/navigation engine using a generalized LALR parser" tar
-       ((:url . "http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html"))])
+       ((:keywords quote nil)
+        (:url . "http://stephe-leake.org/emacs/ada-mode/emacs-ada-mode.html"))])
  (wpuzzle .
-         [(1 0)
+         [(1 1)
           nil "find as many word in a given time" single
           ((:url . "http://elpa.gnu.org/packages/wpuzzle.html")
-           (:keywords))])
+           (:keywords quote nil))])
  (xclip .
        [(1 3)
         nil "use xclip to copy&paste" single
         ((:url . "http://elpa.gnu.org/packages/xclip.html")
-         (:keywords "convenience" "tools"))])
+         (:keywords quote
+                    ("convenience" "tools")))])
  (yasnippet .
            [(0 8 0)
             nil "Yet another snippet extension for Emacs." tar
-            ((:keywords "convenience" "emulation")
+            ((:keywords quote
+                        ("convenience" "emulation"))
              (:url . "http://github.com/capitaomorte/yasnippet"))]))

diff --git a/elpa/archives/marmalade/archive-contents b/elpa/archives/marmalade/archive-contents
index 797ab417ecb58289e51a6ef303b46c5827757277..6c2177ae760b573db2dc55e40f4837b32d0f8bae 100644 (file)
--- a/elpa/archives/marmalade/archive-contents
+++ b/elpa/archives/marmalade/archive-contents
@@ -1 +1 @@
-(1(haml-mode .[(3 1 3)((ruby-mode (1 0)))"Major mode for editing Haml files"single])(paredit .[(22)()"minor mode for editing parentheses  -*- Mode: Emacs-Lisp -*-"single])(sass-mode .[(3 0 14)((haml-mode (3 0 14)))"Major mode for editing Sass files"single])(perspective .[(1 9)()"switch between named \"perspectives\" of the editor"single])(slime .[(20100404 1)()"Superior Lisp Interaction Mode for Emacs"single])(slime-replsingle])(nose-mode .[(0 1)((nose (0 1 1)))"Minor mode for running nose tests."tar])(refheap .[(0 0 6)((json (1 2)))"A library for pasting to https://refheap.com"single])(jam-mode .[(0 3)()"Font-lock support for Jam files"single])(fakir .[(0 1 8)((noflet (0 0 8)) (dash (1 3 2)) (kv (0 0 19)))"fakeing bits of Emacs -*- lexical-binding: t -*-"single])(flycheck-haskell .[(0 1)((flycheck (0 16)) (haskell-mode (13 7)) (dash (2 4 0)) (f (0 11 0)))"Flycheck: Haskell configuration"tar]))
\ No newline at end of file
+(1(haml-mode .[(3 1 5)((ruby-mode (1 0)))"Major mode for editing Haml files"single])(paredit .[(22)()"minor mode for editing parentheses  -*- Mode: Emacs-Lisp -*-"single])(perspective .[(1 9)()"switch between named \"perspectives\" of the editor"single])(slime .[(20100404 1)()"Superior Lisp Interaction Mode for Emacs"single])(slime-repl .[(20100404)((slime (20100404)))"Read-Eval-Print Loop written in Emacs Lisp"single])(ac-cider-compliment .[(0 1 0)((cider (0 5 0)) (auto-complete (1 4)))"auto-complete sources for Clojure using"single])(project-explorer .[(0 13)((cl-lib (0 3)) (es-lib (0 3)) (es-windows (0 1)) (emacs (24)))"A prosp;can be found at: http://www.emacswiki.org/emacs/LaTeXPreviewPane"tar])(flycheck-tcl .[(0 4)((flycheck (0 17)))"A flycheck checker for Tcl using ActiveState's tclchecker"single])(maildir .[(0 0 23)((kv (0 0 17)) (dash (2 3 0)) (s (1 9 0)) (noflet (0 0 8)))"Simple maildir based MUA."tar])(google-translate .[(0 5)()"Emacs interface to Google Translate"single])(creds .[(0 0 4)()"a simple parser credential file lib"tar]))
\ No newline at end of file

diff --git a/init.el b/init.el
index 6646f9480aec04b382b7754ef49e69291d61e153..e7b47b53cea0686949d674033e9a08530636cff2 100644 (file)
--- a/init.el
+++ b/init.el
@@ -368,6 +368,30 @@ bundle " name "
 }")
 )
 
+(add-hook 'cfengine3-mode-hook
+  (lambda ()
+    (define-key cfengine3-mode-map "\C-cb" 'cfe-insert-bundle)
+    (define-key cfengine3-mode-map "\C-cu" 'cfe-config-adduser)
+    ))
+
+
+(defun dns-rndc ()
+"Do rndc reload of current buffers filename."
+(interactive)
+(string-match "/\\([^/]*\\)$" buffer-file-name)
+(let* ((zonefile (match-string 1 buffer-file-name))
+       )
+  (if (y-or-n-p (format "rndc reload %s?" zonefile))
+      (shell-command (concat "rndc reload " zonefile ) ) )
+  )
+
+)
+
+(add-hook 'dns-mode-hook
+  (lambda ()
+    (define-key dns-mode-map "\C-cr" 'dns-rndc)
+    ))
+
 ;; (defun cfe-lookup-docs ()
 ;;  "Search current word from buffer in online docs."
 ;;  (interactive)
@@ -380,10 +404,6 @@ bundle " name "
 ;;                )))
 
 
-;;(defun scpload (&rest args)
-;;"scp copy from pottwal"
-;;   (shell-command ( scp andreas@pottwal: emacstmp/))
-;;)
 
 (defun eshell/ssh (&rest args)
 "Secure shell"
@@ -538,7 +558,6 @@ vi style of % jumping to matching brace."
 (define-key global-map "\C-c\M-c" 'centered-cursor-mode)
 
 (define-key global-map "\C-c\C-f" 'load-git-cfengine)
-(define-key global-map "\C-cb" 'cfe-insert-bundle)
 
 (define-key global-map "\C-c\C-w" 'fixup-whitespace)