[Qemacs-commit] qemacs dired.c

[Charlie Gordon]

CVSROOT:        /sources/qemacs
Module name:    qemacs
Changes by:     Charlie Gordon <chqrlie>        15/06/24 12:38:53

Modified files:
        .              : dired.c 

Log message:
        dired-mode: added dired-toggle-dot-files on `.`

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/qemacs/dired.c?cvsroot=qemacs&r1=1.52&r2=1.53

Patches:
Index: dired.c
===================================================================
RCS file: /sources/qemacs/qemacs/dired.c,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- dired.c     19 Jun 2015 14:09:31 -0000      1.52
+++ dired.c     24 Jun 2015 12:38:53 -0000      1.53
@@ -922,12 +922,25 @@
 {
     DiredState *ds;
     char target[MAX_FILENAME_SIZE];
+    char dirname[MAX_FILENAME_SIZE];
 
     if (!(ds = dired_get_state(s, 1)))
         return;
 
     dired_get_filename(s, target, sizeof(target), -1);
-    dired_build_list(s, ds->path, target);
+    pstrcpy(dirname, sizeof(dirname), ds->path);
+    dired_build_list(s, dirname, target);
+}
+
+static void dired_toggle_dot_files(EditState *s, int val)
+{
+    if (val == -1)
+        val = !dired_show_dot_files;
+    if (dired_show_dot_files != val) {
+        dired_show_dot_files = val;
+        dired_refresh(s);
+        put_status(s, "dot files are %s", val ? "visible" : "hidden");
+    }
 }
 
 static void dired_display_hook(EditState *s)
@@ -1150,6 +1163,8 @@
           "dired-previous-line", dired_up_down, -1)
     CMD0( 'r', KEY_NONE,
           "dired-refresh", dired_refresh)
+    CMD1( '.', KEY_NONE,
+          "dired-toggle-dot-files", dired_toggle_dot_files, -1)
     /* g -> refresh all expanded dirs ? */
     /* l -> relist single directory or marked files ? */
     CMD0( '^', KEY_LEFT,