PageRenderTime 41ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/TextRepDefinitions.ahk

https://github.com/richardsugg/TextRep
AutoHotKey | 86 lines | 47 code | 21 blank | 18 comment | 4 complexity | dd0a466e01febae52bf15617cfce8414 MD5 | raw file
Possible License(s): Apache-2.0
  1. #SingleInstance force
  2. #Hotstring *
  3. ;; Perl list available DBI drivers
  4. ::,,lsdbi::perl -MDBI -e 'print join("\n", sort(DBI->available_drivers)) . "\n"'`n
  5. ;; Dojo show the version of dojo
  6. ::,,dv::
  7. ReadFromEvernote("dojo version")
  8. return
  9. ;; encode to base64
  10. ::,,e64::
  11. InputBox, str, Enter a string, String to encode,,,,,,,,%clipboard%
  12. if str {
  13. SendInput perl -MMIME::Base64=encode_base64 -e "print encode_base64('%str%') . \"\n\""
  14. }
  15. return
  16. ;; decode from base64
  17. ::,,d64::
  18. InputBox, str, Enter a string, String to decode,,,,,,,,%clipboard%
  19. if str {
  20. SendInput perl -MMIME::Base64 -e "print decode_base64('%str%') . \"\n\""
  21. }
  22. return
  23. ;; PHP default value
  24. ::,,phpdv::
  25. InputBox, varname, Variable Name, Variable Name
  26. if varname {
  27. InputBox, defvalue, Default Value, Default Value,,,,,,,,false
  28. if defvalue {
  29. SendInput $%varname% = (isset($%varname%) ? $%varname% : "%defvalue%");
  30. }
  31. }
  32. return
  33. ;; Zend PHP ZF1 inline scripts
  34. ::,,inline::
  35. SendInput $scripts = $this->view->inlineScript();
  36. SendInput $scripts->appendFile("/js/" . JS_SRC . "/app/scriptname.js");
  37. return
  38. ;; Zend PHP log info
  39. ::zinfo::Zend_Registry`:`:get("log")->info("");{Left}{Left}{Left}
  40. ;; Zend PHP log warn
  41. ::zwarn::Zend_Registry`:`:get("log")->warn("");{Left}{Left}{Left}
  42. ;; Zend PHP log debug
  43. ::zdebug::Zend_Registry`:`:get("log")->debug("");{Left}{Left}{Left}
  44. ;; Zend PHP log trace
  45. ::ztrace::Zend_Registry`:`:get("log")->trace("");{Left}{Left}{Left}
  46. ;; Zend PHP log exception
  47. ::zexception::Zend_Registry`:`:get("log")->exception("", Zend_Log`:`:CRIT);{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}
  48. ;; Zend PHP log err
  49. ::zerr::Zend_Registry`:`:get("log")->err("");{Left}{Left}{Left}
  50. ;; Zend PHP log log
  51. ::zlog::Zend_Registry`:`:get("log")->log("", Zend_Log`:`:INFO);{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}{Left}
  52. ;; Zend PHP log info
  53. ::zinfo::Zend_Registry`:`:get("log")->info("");{Left}{Left}{Left}
  54. ;; date in YYYY-mm-dd format
  55. ::,,date::
  56. SendInput %A_YYYY%-%A_MM%-%A_DD%
  57. return
  58. ;; time in HH::MM::SS format
  59. ::,,time::
  60. SendInput %A_Hour%:%A_Min%:%A_Sec%
  61. return
  62. ;; Perl - file age in seconds
  63. ::,,fileage::my $secs = (stat($filename))[9];
  64. ;; Perl - start a new module
  65. ::,,newpm::h2xs -P -AXc -n