Template "new #"
-
aren’t you a known plugin author?
Well that’s a bit of an overstatement of my abilities. I recognize a difference between talented programmers creating a plugin vs. me taking their source code and adding a few features here and there. Now if there was a way to write plugins in Perl … :-)
Cheers.
-
IF "new " < "$(FULL_CURRENT_PATH)" THEN SEL_SETTEXT "My Copyright (c) 2019" ENDIFAs a startup in NppExec would do it, but only when N++ first starts, not when “File->New” from an already opened N++ instance. To bad NppEventExec wasn’t built into NppExec. I could add it or just bite the bullet and install (Python | Lua)Script.
Cheers.
-
@Michael-Vincent said:
Now if there was a way to write plugins in Perl … :-)
Amen to that!
I kept on hoping that you would at least write the PerlScript plugin, so I could stop using PythonScript. But I guess since I now have marginally more perlmonk XP than you, it would be more expected to be me. But I have the excuse that I’ve never compiled a Notepad++ plugin, and have virutally no experience with perlguts… so it will probably be a while before I can do it. (At one point, I at least started a perl module (Win32::Mechanize::NotepadPlusPlus ) to use Win32::API and Win32::GuiTest to automate Notepad++ from outside notepad++, so I don’t have to wait until I learn Notepad++ plugins or perlguts… but I never get very far. I am having trouble sending the right messages. Hmm, maybe one day, I’ll put it into a public github, and see if you or anyone else here or on perlmonks were able to help me see why my messages aren’t working. But to do that, I’d have to find enough time to remind myself what my cryptic comments mean, and come up with a simple example. Maybe I’ll try to find the time sooner rather than later. :-)
-
so I could stop using PythonScript.
Isn’t this already qualifying a ban, or at least a downvote?? :-D
I guess a possible way to go would be to write a small c++ plugin which builds
the bridge to FFI-Platypus. -
@Ekopalypse said:
so I could stop using PythonScript.
Isn’t this already qualifying a ban, or at least a downvote?? :-D:-D
I’ve been playing with Perl since the 90s when I started playing with writing cgi scripts for my
....edu/~username/webpage, so I’m rather more familiar with Perl than Python. If PerlScript had already existed when I started automating Notepad++, I would have used that rather than PythonScript. I’d still be a Notepad++ user (which is the most important thing around here), and I’d probably be faster at hacking up scripting solutions for Notepad++ if I could be working in my more familiar language (which would be a bonus around here).write a small c++ plugin
Therein lies the rub. I know enough C to hack a c++ program… but I’m not fluent in the ins-and-outs, and the only compiler I have is the mingw-based gcc that comes with the 32 and 64bit versions of strawberry perl. I’ve never even been able to compile the initial dummy plugin. (Unfortunately, @Michael-Vincent [under his previous incarnation of @vinsworldcom178] never showed progress on https://notepad-plus-plus.org/community/topic/16149/demo-plugin-docking-not-working-with-mingw-build , so I never got an example of how to do it. He can confirm, but I think he finally switched to VS2017)
Like I said, some day I’d like close communication between the Perl and Notepad++, but it’s a lot of effort, whatever direction you go.
-
Caveat, I don’t know anything about the FFI-Platypus but, recently, I was playing around with cffi, which is a python-ffi and it seems, as far as I’ve understood, that both have the same origin.
With cffi it is, more or less, simple to build a dll.
My first test was something about 50 lines of code and a slightly modified plugin.h, which then was compiled (function within cffi) to a dll.
Npp loaded it and I was able to get a hello world. :-)
But the best thing was, that this generated a dll, which had the python interpreter included.So, with this naive approach in mind and hoping that
Platypus can do the same or similar thing it shouldn’t be that difficult. -
@Ekopalypse said:
But the best thing was, that this generated a dll, which had the python interpreter included.
Interesting. I’m not sure you’ve said enough for me to understand what you did, or how I would port that over to FFI-Platypus. But we’ve probably spent to much time hijacking @michael-vincent’s thread.
My initial skim to the intro of the FFI-Platypus docs make it sound like a way to access an external library (DLL) from within Perl; it doesn’t sound like a way to embed Perl into an external DLL. But I’m probably misunderstanding what you’ve said, and/or haven’t read enough of the docs to understand its full capability.
If you had the time (not necessarily right now, but in the near future), to write up a more detailed sequence of events of how you did that in python / cffi – probably as a post in the Plugin Development area – with embedded code or links to github code, I might be able to practice that sequence in python until I understand it, then see if I can replicate it in Perl / FFI-Platypus. (And that separate topic would give a place to ask questions of each other, and I could share my eventual Perl version, if anything ever came of it.)
-
My initial skim to the intro of the FFI-Platypus docs make it sound like a way to access an external library (DLL) from within Perl
was my first thought as well but then I read that it is using libffi, as cffi does, then I thought, ok, so it is just to find out how cffi does this internally and then one should be
able to do the same with perl. Hopefully I’m right.But yes, agreed, and sorry @michael-vincent for hijacking, enough off topic :-)
I should be able to post a little howto on monday/tuesday next week.
-
No worries - great discussion. I’ve found @PeterJones is my twin apparently:
perlmonk XP
playing with Perl since the 90s when I started playing with writing cgi scripts for my …edu/~username/ webpage
the only compiler I have is the mingw-based gcc that comes with the 32 and 64bit versions of strawberry perl
To answer your question - I did install VS2017 Community in order to compile N++ plugins since I could never get the MinGW route working for plugins with dockable components.
I too thought of writing a PerlScript plugin by looking at the code for both PythonScript and LuaScript thinking it’d be relatively easy to swap Python | Lua for Perl, but boy was I mistaken! Hats off to those authors, but I’d still love to see PerlScript someday.
Cheers.
-
I solved it a different way. Need “manual” intervention, but I can run a simple NppExec script in any document and get the copyright inserted:
::template NPP_CONSOLE keep NPE_CONSOLE -- v+ SET LOCAL TEMPLATESDIR = $(NPP_DIRECTORY)\plugins\TEMPLATES SET LOCAL TEMPLATE = IF "$(ARGC)"=="0" GOTO GETINPUT IF "$(ARGC)"=="1" THEN dir $(TEMPLATESDIR) GOTO END ENDIF IF "$(ARGC)">="2" THEN IF "$(ARGV[1])"=="__INPUTBOX__" THEN GOTO GETINPUT ELSE SET LOCAL TEMPLATE = $(ARGV[1]) ENDIF ENDIF GOTO EXECUTE :GETINPUT INPUTBOX "Template Extension ." IF "{$(INPUT)}"=="{}" THEN cmd /c explorer.exe /e,"$(TEMPLATESDIR)" GOTO END ENDIF SET LOCAL TEMPLATE = $(INPUT) :EXECUTE cmd /c if exist "$(TEMPLATESDIR)\$(TEMPLATE)-TMPL.$(TEMPLATE)" echo "$(TEMPLATESDIR)\$(TEMPLATE)-TMPL.$(TEMPLATE)" IF "$(OUTPUTL)" != "$(TEMPLATESDIR)\$(TEMPLATE)-TMPL.$(TEMPLATE)" GOTO ERROR IF "$(TEMPLATE)"~="COPYRIGHT" THEN SCI_SENDMSG SCI_GETCURRENTPOS SET LOCAL ORIGINALPOS = $(MSG_RESULT) // Lines start at 0, but we want to be under shebang line if exists // so 0, select 2 characters and compare to #! SCI_SENDMSG SCI_GOTOLINE 0 SCI_SENDMSG SCI_SETCURRENTPOS 2 IF "$(CURRENT_WORD)"=="#!" THEN SCI_SENDMSG SCI_GOTOLINE 1 ELSE // GOTOLINE clears the previous selection SCI_SENDMSG SCI_GOTOLINE 0 ENDIF SCI_SENDMSG SCI_GETCURRENTPOS SET LOCAL STARTPOS = $(MSG_RESULT) SEL_LOADFROM "$(TEMPLATESDIR)\$(TEMPLATE)-TMPL.$(TEMPLATE)" SCI_SENDMSG SCI_SETSELECTIONSTART $(STARTPOS) NPP_MENUCOMMAND Edit\Comment/Uncomment\Single Line Comment SCI_SENDMSG SCI_GOTOPOS $(ORIGINALPOS) ELSE NPP_OPEN "$(TEMPLATESDIR)\$(TEMPLATE)-TMPL.$(TEMPLATE)" // cd $(SYS.USERPROFILE) NPP_MENUCOMMAND "File\Save As..." ENDIF GOTO END :ERROR NPP_CONSOLE on echo No template for `.$(TEMPLATE)' at: echo $(TEMPLATESDIR)\$(TEMPLATE)-TMPL.$(TEMPLATE) :END NPE_CONSOLE -- v- -
Wow. I bet you are also very good at CMD.exe batch file programming! :)
-
