Paper Folders Too

[totmad1]

PaperFolders is further proof of Don's ability to see into the future.
It has just been recently reported that MS is "Looking into Virtual Folders for Win 9".

I have used a couple of scripts Papyrus and PaperList.
The list created by PaperList has now got to be too long for my use.
(I'm not fond of scrolling by the arrows. still trying to use mouse scroll by habit.)
Originally I used

Code: Select all

"goto PaperFolders folder|<xydata>\Paper"  #340;goto"<xypaper>";

then goto subfolder and choose paperfolder to open

Code: Select all

"open this PF|<xyicons>\PaperOpen10r.ico"  PaperFolder("<curitem>", , , ""l"");  sortby Index, a;

I finally got around to creating a script.

Code: Select all

"PaperFOLDERS 2.5|<xyicons>\PaperOpen11.ico";
     $dir1 = listfolder(<xypaper>, , 2 + 4, "|");
      #340; // new tab
  $cs = listfolder("<xypaper>", "*.txt", 5);
  $cs = replace($cs, ".txt", "");
       $cs = $dir1 . "|-|-|" . $cs  ;
  $c = popupmenu($cs);
   if (exists("<xypaper>\$c") == 2) {
      $ds = listfolder("<xypaper>\$c", "*.txt", 5);
      $ds = replace($ds, ".txt", "");
      $w = popupmenu($ds);
       if ($w) {goto "paper:$c\$w";}
	   sortby Index, a;
      $c = "";
     }
  if ($c) {goto "paper:$c";}sortby Index, a;
  setcolumns("Name.386,Size.66,Type.141,Modified.144,Ext.45,Created.144,", 2);
     #372; // autosize columns

The next 2 scripts I created as an experiment and then found a use.

Code: Select all

"Open 2 PaperFolders"
    focus P1; #340; goto paper:Articles1;  sortby size, a;
    focus P2; #340; goto paper:ArticlesREAD;sortby index, d;
"Tag && Move"
      $SelectedItems = get("selecteditemspathnames","<crlf>");
   tag "READ", , 1; // comment out or delete if not required
      $iPath =  get("path", i);
      $aPath =  get("path", a);
   copyto $iPath, ":list", , ; 
    paperfolder( $aPath, $SelectedItems, "<crlf>", "ds"); // deletes selected from list 

While creating some PaperFolders I came across a situation when a list only contained
a few items but I wanted to add more but with a seperator. So I created underline text
files and icon. I placed underline folder in the Paper folder(easy to find).

The zipfile also contains some Papers icons with the gfie file they were created with.
gfie is the format used by Greenfish icon editor there is a portable version at
http://portableapps.com/apps/graphics_p ... o-portable

PaperopenIcons.png (45.63 KiB) Viewed 2274 times

PaperFolderToo.zip

(12.47 KiB) Downloaded 228 times

EDITED 30-10-2014
saw this thread http://www.xyplorer.com/xyfc/viewtopic. ... &start=270
read about request of SC "move" and "prepend" and thought I'd have a go at scripting it.
Of course already had "Move" with tagging so only had to complete "prepend" script.

Code: Select all

"Move with prepend |<xyicons>\xy-script.ico";
       $Fulllst="";
      $SelectedItems = get("selecteditemspathnames","<crlf>");
      $iPath =  get("path", i);
      $aPath =  get("path", a);
      $t1=regexreplace($iPath,"paper:",,);
      focus PI;
      $lst=readfile("<xypaper>\$t1.txt");
        foreach($Item, $SelectedItems, "<crlf>") {
             $c=gettokenindex($Item, $lst, "<crlf>");
              if ($c == 0) {
               $Fulllst= $Fulllst<crlf>$Item ;
                } }
               $Fulllst= $Fulllst<crlf>$lst;
        goto paper:TEMP;
  writefile("<xypaper>\$t1.txt", $Fulllst, "o", );
    paperfolder( $aPath, $SelectedItems, "<crlf", "ds");
     goto paper:$t1;